mohsen.dbnet
شنبه 20 تیر 1394, 09:59 صبح
با سلام خدمت دوستان و اساتید محترم
بنده تو ثبت اطلاعات دو TextBox در جدول مشکل داشتم.
کدهایی که برای ثبت انجام دادم در ادامه آمده ولی هیچ کدم اطلاعات رو ثبت نکرد. ممنون می شم کمکم کنید.
1
-----------------------------------------------
Dim insertstring As String
insertstring = "INSERT INTO Age (ID, Age) VALUES (" & txt1.Value & "," & txt2.Value & ");"
DoCmd.RunSQL insertstring
2
----------------------------------------------
Dim insertstring As String
insertstring = "INSERT INTO Age (ID, Age) VALUES ('" & _
txt1.Value & "','" & _
txt2.Value & "');"
DoCmd.RunSQL insertstring
3
-----------------------------------------------
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("Age")
With rst
.AddNew
.Fields("ID") = txt1.Value
.Fields("Age") = txt2.Value
.Update
End With
بنده تو ثبت اطلاعات دو TextBox در جدول مشکل داشتم.
کدهایی که برای ثبت انجام دادم در ادامه آمده ولی هیچ کدم اطلاعات رو ثبت نکرد. ممنون می شم کمکم کنید.
1
-----------------------------------------------
Dim insertstring As String
insertstring = "INSERT INTO Age (ID, Age) VALUES (" & txt1.Value & "," & txt2.Value & ");"
DoCmd.RunSQL insertstring
2
----------------------------------------------
Dim insertstring As String
insertstring = "INSERT INTO Age (ID, Age) VALUES ('" & _
txt1.Value & "','" & _
txt2.Value & "');"
DoCmd.RunSQL insertstring
3
-----------------------------------------------
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("Age")
With rst
.AddNew
.Fields("ID") = txt1.Value
.Fields("Age") = txt2.Value
.Update
End With