21-03-13, 10:17 PM
22-03-13, 06:35 AM
هذا كود مع استخدام قاعة البيانات واسمها موجود وكل البيانات موجوده
PHP كود :
Option Explicit
Dim M As String
Private Sub Command1_Click()
If Data1.Recordset.RecordCount = 0 Then
MsgBox "You`r Message"
Exit Sub
End If
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Text1.Text = Data1.Recordset.Fields!UserName And Text2.Text = Data1.Recordset.Fields!Password Then
M = Data1.Recordset.Fields!Mag
Unload Me
Form2.Show
Exit Sub
Else
Data1.Recordset.MoveNext
End If
Loop
MsgBox "ولد رائع ،، عفوآ البيانات خاطئه :) "
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\DataBase.mdb"
Data1.RecordSource = "Table1"
End Sub