نحوه ذخيره اطلاعات يك فرم اكسس در بانك sql

[atlas_mh]

خواهشمند است كدي جهت ذخيره اطلاعات يك فرم در حالت unbound در بانك sql ارائه بفرماييد.

[amirzazadeh]

خواهشمند است كدي جهت ذخيره اطلاعات يك فرم در حالت unbound در بانك sql ارائه بفرماييد.
دوست عزيز اين كد رو در يك كامند باتن قرار داده و نام فيلد ها وجدولتون رو مطابق بانمونه خودتون تغيير بدين.


Dim Cn As New Adodb.Connection
Dim Rs As New Adodb.Recordset

Cn.ConnectionString = "Driver={SQL Server};" & _
"Server=your server name;" & _
"Database=your sql database name;UID=user name;PWD=password;"


Cn.Mode = adModeReadWrite
Cn.Open

Rs.Open "Select * From table name ", Cn, adOpenDynamic, adLockOptimistic, 1

Rs.AddNew

Rs.Fields("field name") = Text0
Rs.Fields("field name2") = Text2
Rs.Updateفرض براين بوده كه جدول شما داراي دوفيلد بوده است
..................................
موفق باشيد