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 |
'THIS IS USED TO LOAD DEFAULT PASSWORD FROM THE DB TABLE Dim cmd As New SqlCommand Dim rdr As SqlDataReader Dim da As New SqlDataAdapter Dim ds As New DataSet Dim con As 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") cmd = New SqlCommand("select Level from Details where Name='" & TextBox1.Text & "'", con) con.Open() rdr = cmd.ExecuteReader While rdr.Read TextBox7.Text = rdr("Level") End While con.Close() |

Leave a comment