کمک در اسکریپت اتصال به بانک access
سلام دوستان
پس از کلی گشتن و خوندن و نگاه کردن آخرش یه چیزی نوشتم و می خوام اساتید محترم عیب های این اسکریپت رو پیدا کنند که ببینم کجاشو اشتباه نوشتم. (اگه زیاد مشکل داشت نخندین آخه من تو vb مبتدی هستم)
این اسکریپت به بانک access که دو فیلد نام و شماره داره متصل می شه و بعدش نام و شماره رو (تمام نام ها و شماره های موجود در بانک) در کنار هم در یک فایل ذخیره می کنه.
کد:
Public connect()
Dim cn As ADODB.connection
Set cn = New ADODB.connection
Dim rs As ADODB.Recordset
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data"
Source = "c:\db1.mdb"
Info = False
cn.Open (connstring)x
Set rs = New ADODB.Recordset
adLockOptimistie , rs.Open, Source, Name, en, OpenKeyset
Distinct "select * from table1"
rs.MoveFirst
Open "c:\db1.mdb" For Output As #1
Do
rs.fields(0) = tmp
Print #1, tmp
rs.MoveNext
Loop Until (rs.EOF)x
Close #1
rs.Close
cn.Close
End Sub
