φίλε,
για δες αυτη τη λύση
έχεις μια απλή windows form application με ένα textbox και ένα Button
η βάση που χρησιμοποιώ είναι η Nortwind και ο πίνακας categories. όταν κάποιος πατάει το κουμπί φέρνει την Idenity column του πίνακα αυτού στο textbox
'the import statements
Imports
System.Data.SqlClient
Imports
System.Data
Public
Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'change the connection string accordingly
Dim strDBConnection As String = "Data Source=FOFO-PC;Initial Catalog=Northwind;Integrated Security=True"
Dim dbConnection As SqlConnection
dbConnection =
New SqlConnection(strDBConnection)
Dim strSelectSql As String = "select o.name + '.' + c.name from syscolumns c, sysobjects o where(c.status & 128 = 128) and o.id = c.id and o.name='categories' order by o.name"
dbConnection.Open()
Dim selectSqlCommand As New SqlCommand(strSelectSql, dbConnection)
Dim sqlData As New SqlDataAdapter(selectSqlCommand)
Dim dsSelectData As New DataSet()
sqlData.Fill(dsSelectData)
Dim strPrimaryKeyName As String = Convert.ToString(dsSelectData.Tables(0).Rows(0)(0))
TextBox1.Text = strPrimaryKeyName
End Sub
End
Class
ελπίζω να βοηθήσει...
Νικόλαος Καντζέλης
BSc, MSc, MCAS, MCPD, MCITP, MCTS,MCP, MCT