hi there! can you please help me? this codes doesnt have any reponse from the database .. these codes is for case sensitivity of the usernametxtbox and if satisfied, the secretquestion textbox will automatically display the correct secret question. help me pls!
Dim i As Integer
Dim PassResult As String = ""
Dim con As New OleDbConnection("Provider=Microsoft.ace.oledb.12.0;data source=C:\Users\user\Desktop\CBFMNHS Enrollment System\CBFMNHS Enrollment System\bin\Debug\Enrollment System.accdb")
cmda = New OleDbCommand("Select * from EditAccount", con)
con.Open()
rid = cmda.ExecuteReader()
rid.Read()
While rid.Read()
PassResult = rid.Item(1)
End While
i = String.Compare(TextBox1.Text, PassResult, False)
If i = -1 Then
MsgBox("wrong Input")
ElseIf i = 0 Then
If rid.Read = True Then
TextBox4.Text = rid(5)
End If
End If