السلام عليكم
أخواني ممكن طلب بسيط!!
وهو أريد شرح الكود التالي:
وهو يقومبالبحث فقط أريد شرح مفصل سطرسطر.
وشكراً لجهودكم :rolleyes:
Dim Cn As ADODB.Connection
Dim RS As New ADODB.Recordset
Dim SQL As String
Private Sub Command1_Click()
On Error Resume Next
SQL = "SELECT Index.Name, Index.Phone, Index.adress FROM [Index] WHERE (((Index.Name)='" & Text1.Text & "'));"
RS.Open SQL, Cn, adOpenDynamic, adLockOptimistic
If Not RS.EOF Then
Text1.Text = RS("NAME")
Text2.Text = RS("Phone")
Text3.Text = RS("adress")
Else
MsgBox "لم نجد الاسم الذي تبحث عنه"
End If
RS.Close
End Sub
Private Sub Form_Activate()
Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=elsahaba; Data Source=" & App.Path & "\data.mdb"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
On Error Resume Next
SQL = "SELECT Index.Name, Index.Phone, Index.adress FROM [Index] WHERE (((Index.Name)='" & Text1.Text & "'));"
RS.Open SQL, Cn, adOpenDynamic, adLockOptimistic
If Not RS.EOF Then
Text1.Text = RS("NAME")
Text2.Text = RS("Phone")
Text3.Text = RS("adress")
Else
MsgBox "لم نجد الاسم الذي تبحث عنه"
End If
RS.Close
End If
End Sub