اتصال دو بانک اطلاعاتی

[amir_rahman]

سلام
من تاره به برنامه نویس های ویژوال اضافه شدم قبلا فقط با فاکس پرو کار می کردم ولی دیگر فاکس پرو کفاف نیاز ما رو نداره :لبخند:
می خواستم بدونم چی جوری می شه دو تا بانک اطلاعاتی ذو به هم متصل کرد (تو ویژوال بیسیک )
یعنی مثلا تو یکی اطلاعات شناسنامه ای داره که برای محل صدور یک کد داره و تو بانک دیگه به ازای هر کد یک شهر رو مشخص می کند چه جوری می شه با انتخاب مثلا رکورد Xاز باکن اطلاعات شناسنامه ای شهر محل صدور نمایش داده بشه
خیلی ممنون

[adhami]

با سلام
من برای اتصال با بانک اکسس از adodb استفاده می کنم تیکه کد زیر را می گذارم امیدوارم بتونید از آن استفاده کنید .
Dim code_sh As Integer
code_sh = Val(text1.Text)

Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\yourbank.mdb;Persist Security Info=False"
With cmd
.ActiveConnection = cnn
.CommandText = "select * from code where code_shahr =" & code_sh
.CommandType = adCmdText
End With
Set rst = cmd.Execute
Do While rst.EOF = False

txtpercode.Text = rst.Fields(0).Value