|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
'prepare the connection properties' Dim con As SqlConnection Dim cmd As SqlCommand Dim strg As String Dim dr1 As SqlDataReader 'prepare your connection string' con = New SqlConnection(“Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\ED-CARLOS\Documents\Visual Studio 2010\Projects\save\save\Info.mdf;Integrated Security=True;User Instance=True”) con.Open() strg = "select top 1 ID from Details order by ID desc" 'MsgBox(strg) cmd = New SqlCommand(strg, con) dr1 = cmd.ExecuteReader() If dr1.HasRows = True Then While dr1.Read() = True TextBox4.Text = dr1(0) TextBox6.Text = dr1(1) End While TextBox4.Text += 1 |
ibrahim salifu
send me the link to download
Edcartech
Which download link please ?
Edcartech
Bro what link do you need ?