مساعدة في قواعد البيانات (مستعجل)

Dim db As Database

Dim rs As Recordset

Dim str As String

Private Sub Command1_Click()

"'"& str = "select id from tablename where name='" & Me.Text1

(Set rs = db.OpenRecordset(str

If rs.RecordCount = 0 Then

MsgBox ("Please check your name"), vbCritical

Else

("Me.Text2 = rs.Fields("id

End If

End Sub

Private Sub Form_Load()

("db = OpenDatabase(App.Path + "databasename.mdb

End Sub

ممكن شرح الكود؟ مع الشكر,,,

[MARQ=DOWN]عفواً يا أخ لكن الكود لم يعمل :'( :'( [/MARQ]

الاخ العزيز

هذا البرنامج عملته لاحد اعضاء المنتدي كان في حاجة اليه وفيه كيفية عمل استعلام sql ارجو ان ينفعك ولكن عليك دراسته جيدا

gawal.zip