سلام من این برنامه رو نوشتم مربوط به جدول دانشجو هست ولی جواب نمیده
Dim db As Database
Dim rs As Recordset
Private Sub Command1_Click()
rs.AddNew
rs.Fields(0) = Val(Text1.Text)
rs.Fields(1) = Text2.Text
rs.Fields(2) = Val(Text3.Text)
rs.Update
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
rs.FindFirst "code=" & Text4.Text
If rs.NoMatch = True Then
MsgBox "not found"
Else
Call lader
End If
End Sub
Private Sub Command4_Click()
Dim x As Variant
x = MsgBox("ÍÐÝ ÔæÏ", vbYesNo, "ÍÐÝ")
If x = vbYes Then
rs.Delete
rs.Close
Set rs = db.OpenRecordset("danesh", dbOpenDynaset)
End If
End Sub
Private Sub Command5_Click()
Set db = DBEngine.OpenDatabase("C:\Users\acer\Documents\dan eshjo.mdb")
Set rs = db.OpenRecordset("danesh", dbOpenDynaset)
End Sub
Private Sub Form_Load()
Call Command5_Click
Call loader
End Sub
Private Sub loader()
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Text3.Text = rs.Fields(2)
End Sub
از منوی project قسمت refrence گزینه microsoft DAO 3.6 رو هم تیک زدم
یه بانکی به نام daneshjo هم ساختم ولی نمیدونم چرا جواب نمیده. به نظرم یه کاری نکردم و جا انداختمش میشه راهنماییم کنید و بگید باید چیکار کنم؟
با سپاس بی پایان