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

[Hamedm]

سلام

چند وقت پیش توی یک پروژه که داشتم با 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:

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

[Behrouz_Rad]

1) برای ایجاد Table، دو راه دارید:
الف) استفاده از دستور اس کیو ال Create Table که با متد Execute شی Connection قابل اجرا است.
سینتکس دستور Create Table به شکل زیر است:

CREATE TABLE table (field1 type [(size)] [NOT NULL] [index1] [, field2 type [(size)] [NOT NULL] [index2] [, ...]] [, CONSTRAINT multifieldindex [, ...]])

یک مثال در این رابطه:

Cnn.Execute "CREATE TABLE MyTable (FirstName TEXT, LastName TEXT);"

ب) استفاده از ADOX که مخفف Activex Data Objects For Data Definition Language and Security است.
Reference این کتابخانه، Microsoft ADO Ext. 2.7 For DDL and Security است.
یک مثال در این رابطه:

Dim cat As New ADOX.Catalog

   Dim tbl As New ADOX.Table



   cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

      "Data Source=.\MyDB.mdb;"



   With tbl

      .Name = "Contacts"

      .Columns.Append "StrName", adVarWChar

      .Columns.Append "StrFamily", adVarWChar

      .Columns.Append "Address", adLongVarWChar

      .Columns("Address").Attributes = adColNullable

   End With



   cat.Tables.Append tbl



   Set cat = Nothing

2) در هنگام ایجاد Recordset، نوع قفلی که باید بر روی رکوردها اعمال شود و نحوه دسترسی به آنها باید مشخص شود. (در کد فوق شما این کار را انجام نداده اید!)
مثال:

Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

      "Data Source=.\MyDB.mdb;"

 RecordSet.Open "Select * From MyTable", Cnn, adOpenKeyset, adLockOptimistic

پیشنهاد می کنم که در اکثر اوقات، Recordset را با تنظیمات فوق ایجاد کنید.
موفق باشید.

[Hamedm]

سلام

آقا بهروز دستت درد نکنه. :flower: :flower: :flower:

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