تحيه طيبه ممكن نعرف شرح هذا الكود
myusername = t_username.Text
mypassword = t_password.Text
mydataset.Clear()
Dim Str As String = "select * from users where username='" & myusername & "' and password='" & mypassword & "'", con_str
MyAdapter = New OleDbDataAdapter(Str, Con)
MyAdapter.Fill(mydataset, "USERname")
If mydataset.Tables("USERname").Rows.Count > 0 Then
addstate = mydataset.Tables("USERname").Rows(0).Item("add")
delstate = mydataset.Tables("USERname").Rows(0).Item("delete")
editstate = mydataset.Tables("USERname").Rows(0).Item("edit")
Dim x As New k1
x.Show()
Me.Hide()
Else
MessageBox.Show("ادخل اسم المستخدم وكلمة المرور الصحيحة")
End If
المطلوب شرح معني
1 ـ myusername
2 ـ Try
Con.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
وتحياتي للجميع