برای اتصال به بانکهای اکسس با adodb ایا میتونیم یک کانکشن بسازیم

[m_vb1386]

چند تا بانک اکسس دارم به نامهای db1,db2,db3 ایا میتونم با یک حلقه for براشون کانکشن و رکوردست بسازم یا باید برای هرکدوم کانکشن هاورکورد ست رو جدا گونه بسازم؟
البته دومی رو نتونستم

[r0ot$harp]

دوست عزیز اگر درست متوجه شده باشم شما می خواهید چندین بانک رو با حلقه در یک زمان باز کنید !!!


این نمونه سورس :




Dim RS() As New ADODB.Recordset

Dim CN() As New ADODB.Connection

Private Sub Form_Load()
ReDim CN(3)

ReDim RS(3)

For i = 1 To 3

Dim ConnectionString As String

ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DataBase Folder\DB" & i & ".mdb" & ";Persist Security Info=False"

CN(i).CursorLocation = CursorLocationEnum.adUseClient
CN(i).Provider = "Microsoft.jet.OLEDB.4.0"
CN(i).Open ConnectionString, "admin"
Next i

For f = 1 To 3

Debug.Print CN(f).State

RS(f).Open "Select * from [Accounts]", CN(f), adOpenKeyset, adLockOptimistic

Debug.Print RS(f).RecordCount

Next f

End Sub





باتشکر احسان

[aminkk]

با تشكر از sanaz13x.
خانوم ساناز من هيچي از كد شما نفهميدم اما معلومه كه باعث امنيت زياد بانك اطلاعاتي ميشه.
ميشه راجب كد هاش توضيح بدين؟من خيلي دوست دارم ياد بگيرم.
فقط مي دونم كه به صورت آرايه باز كردين. اما ميشه كامل خط به خط توضيح بنويسين؟؟
يك دنيا ممنونتون ميشم.

[TneshTB]

سلام دوست عزیز همانطوری که خودت هم گفتی میتونی انجام بدی