16-11-13, 09:35 PM
عليك يا اخي ان تعمل ربط و ادخال ايضا
ففي القسم العام
Dim db As DAO.Database
Dim Rs1 As DAO.Recordset
و في كوماند للادخال مثلا
يعني المهم ان تتعامل مع rs1
ففي القسم العام
Dim db As DAO.Database
Dim Rs1 As DAO.Recordset
و في كوماند للادخال مثلا
كود :
Set db = DBEngine.OpenDatabase(App.Path & "\db1.MDB", False, False)
Set Rs1 = db.OpenRecordset("Select * From [soft]", dbOpenDynaset)
rs1.AddNew
rs1!رقم الصنف=text1.text
rs1.update
و استبدل رقم الصنف بكلمة انكليزيةيعني المهم ان تتعامل مع rs1
