Hamedm
سه شنبه 25 اسفند 1383, 19:06 عصر
سلام
چند وقت پیش توی یک پروژه که داشتم با DAO مینوشتم با DAO دچار مشکل شدم برای حل این مشکل به پیشنهاد یکی از دوستان رفتم سراغ ADO. منم که تا اون موقع با ADO کار نکرده بودم مجبور شدم برم یاد بگیرم.
حالا در اولین قدم به مشکل برخوردم. ببخشید که اگه کمی سوالم پیش پا افتاده است.
1. چگونه میتوانم با ADO یک جدول درست کرد.
2.برای کد زیر پیغام زیر رو داد. بنظر شما ایراد از کجاست؟
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=F:\1.mdb"
CN.Mode = adModeReadWrite
CN.Open Pro
Set RS.ActiveConnection = CN
RS.Source = "Is"
RS.Open
RS.MoveFirst
While Not RS.EOF
For i = 1 To RS.Fields.Count - 1
RS.Fields(i).Value = Str(i)
Next i
RS.MoveNext
Wend
RS.Close
CN.Close
End Sub
از راهنمایی هاتون ممنون :flower:
موفق باشید و پرتوان :)
چند وقت پیش توی یک پروژه که داشتم با DAO مینوشتم با DAO دچار مشکل شدم برای حل این مشکل به پیشنهاد یکی از دوستان رفتم سراغ ADO. منم که تا اون موقع با ADO کار نکرده بودم مجبور شدم برم یاد بگیرم.
حالا در اولین قدم به مشکل برخوردم. ببخشید که اگه کمی سوالم پیش پا افتاده است.
1. چگونه میتوانم با ADO یک جدول درست کرد.
2.برای کد زیر پیغام زیر رو داد. بنظر شما ایراد از کجاست؟
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=F:\1.mdb"
CN.Mode = adModeReadWrite
CN.Open Pro
Set RS.ActiveConnection = CN
RS.Source = "Is"
RS.Open
RS.MoveFirst
While Not RS.EOF
For i = 1 To RS.Fields.Count - 1
RS.Fields(i).Value = Str(i)
Next i
RS.MoveNext
Wend
RS.Close
CN.Close
End Sub
از راهنمایی هاتون ممنون :flower:
موفق باشید و پرتوان :)