یک سوال ساده دیگه در مورد ADO

[Hamedm]

سلام

دوستان یک سوال ساده دیگه در مورد ADO:
کد زیر چرا مقادیر را به بانک اضافه نمیکنه؟

Private Sub Command1_Click()
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Pro = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb"
CN.Mode = adModeReadWrite
CN.Open Pro
RS.Open "Persons", CN, adOpenKeyset, adLockBatchOptimistic
RS.AddNew
For i = 0 To RS.Fields.Count - 1
RS.Fields(i).Value = "H" & i
Next i
RS.Update
RS.Close
CN.Close
End Sub

موفق باشید و پرتوان :)

[ali2914]

سلام معذرت من این روزایه اخر سال حواسم پرته! :oops: بی خیال RS.Update بشین!
عمل می کنه اما روش درست نیست اشکال کد شما یه جایه دیگه بود که من حواسم نبود .
CN.CursorLocation = adUseClient
کد صحیح اینه:



Private Sub Command1_Click()
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Pro = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb"
CN.CursorLocation = adUseClient
CN.Mode = adModeReadWrite
CN.Open Pro
RS.Open "Persons", CN, adOpenKeyset, adLockBatchOptimistic
RS.AddNew
For i = 0 To RS.Fields.Count - 1
RS.Fields(i).Value = "H" & i
Next i
RS.Update
RS.Close
CN.Close
End Sub

[ali2914]

در ضمن کتابهای اختصاصی ADOوADO.NET هم در بازار هست که می تونین استفاده کنین .سرعت یادگیری شما هم بیشتر می شه.bye

[Hamedm]

سلام

از راهنمایی شما ممنون. :flower:

در ضمن کتابهای اختصاصی ADOوADO.NET هم در بازار هست که می تونین استفاده کنین .

میشه معرفی کنید.

موفق باشید و پرتوان

[ali2914]

راهنمای دسترسی به پایگاه تحت وبADO-انتشارات ناقوس ترجمه مهندس بهزاد اکبری
متاسفانه ADO قدیمی شده و ADO.NET جاشو گرفته من خودم ADO.NET کار نکردم اما تا جایی که می دونم تفاوتهای زیادی با ADO داره کتابی هم که معرفی کردم مال 3 سال پیشه! کتابهای جدیدتر مربوط به ADO.NET می شه

[ali2914]

اصلاح شد! :oops:

[Hamedm]

سلام


عمل می کنه اما روش درست نیست
اگه عمل میکنه چرا درست نیست؟ :گیج:

در ضمن کد شما هم اطلاعات رو در فیلدها ذخیره نمیکنه. :(

موفق باشید و پرتوان

[ali2914]

حق با شماست.بررسی می کنم