کار با چند پایگاه داده

[REZADG]

با سلام
ببخشید دوستان من میخوام برنامه ای بنویسم که کاری با نام بانک نداشته باشه و تمام بانک هایی که در پوشه ی دتا کنار برنامه هاست کار کنه
پیشا پیش ممنون

[Pr0grammer]

هدفتون چیه؟! منظورم اینه که میخواین از بانک هایی که توی برنامه ازش backup گرفته شده ، بشه دوباره توی برنامه انتخاب و اطلاعاتش رو لود کرد؟! :متفکر:

[REZADG]

نه منظورم اینه که با نام پایگاه کار نداشته باشه و هر پایگاهی که دم دست بود استفاده کنه

[Pr0grammer]

ببینید این کارتونو راه میندازه :متفکر: :


Dim DBPath As String
If CommonDialog1.ShowOpen Then
DBPath = CommonDialog1.FileName
Adodc1.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" +DBPath
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * From [Table1]"
Set DataGrid1.DataSource = Adodc1
End If
موفق باشید