08-08-24, 09:21 PM
السلام عليكم ورجمة الله
احبتى فى الله لا ادرى لدى فورم للتسجيل الدخول الى البرنامج وعند ملئ الالتكست بوكس باسم المستخدم وكلمة المرور ويخرج رساله الدخول صحيح يخرج من البرنامج لا ادرى اين الخطأ
هذا هو الكود
احبتى فى الله لا ادرى لدى فورم للتسجيل الدخول الى البرنامج وعند ملئ الالتكست بوكس باسم المستخدم وكلمة المرور ويخرج رساله الدخول صحيح يخرج من البرنامج لا ادرى اين الخطأ
هذا هو الكود
كود :
Private Sub BTNLOG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLOG.Click
cmd = New OleDbCommand("select * from users where username=@username and pwd=@pwd", con3)
cmd.Parameters.Add(New OleDbParameter("@username", OleDbType.VarChar)).Value = TXTNAME.Text
cmd.Parameters.Add(New OleDbParameter("@pwd", OleDbType.VarChar)).Value = TXTPASS.Text
If con3.State = 1 Then con3.Close()
con3.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
'Dim frm As New HOME
'==================== لجلب اسم المستخدم فى الفواتير ====================
FULLNAME = dr(3)
Me.Close()
HOME.Show()
End If
MsgBox("دخول صحيح", MsgBoxStyle.Information, "نجاح")
End Sub
