thanks. i check the db2 and it has the same table. is my approach correct? i mean connecting other database in an access form. here is my snippet code: ACCESS FORM
'Default database DB1
Private Sub Form_Open(Cancel As Integer)
Dim ssql As String
ssql = "SELECT \[tbl1\].id, \[tbl1\].code,\[tbl1\].mflag, \[tbl2\].cdnum, \[tbl3\].bname"
ssql = ssql & " FROM \[tbl1\] INNER JOIN"
ssql = ssql & " \[tbl2\] ON"
ssql = ssql & " \[tbl1\].id = \[tbl2\].id INNER JOIN"
ssql = ssql & " \[tbl3\] ON \[tbl1\].code = \[tbl3\].code"
ssql = ssql & " WHERE \[tbl1\].mdate ='2011/10/12'"
Me.RecordSource = ssql
Me.UniqueTable = "tbl2"
End Sub
'option to select DB1 or DB2
Private Sub optSel_AfterUpdate()
Dim ssql As String
'DB1
If Me.optSel = 1 Then
ssql = "SELECT \[tbl1\].id, \[tbl1\].code,\[tbl1\].mflag, \[tbl2\].cdnum, \[tbl3\].bname"
ssql = ssql & " FROM \[tbl1\] INNER JOIN"
ssql = ssql & " \[tbl2\] ON"
ssql = ssql & " \[tbl1\].id = \[tbl2\].id INNER JOIN"
ssql = ssql & " \[tbl3\] ON \[tbl1\].code = \[tbl3\].code"
ssql = ssql & " WHERE \[tbl1\].mdate ='2011/10/12'"
Else 'DB2
ADODisconn 'disconnect to DB1
ADOConDB2 'connect to DB2
ssql = "SELECT \[tbl2\].id,\[tbl2\].code,\[tbl2\].mflag,\[tbl2\].cdnum,\[tbl3\].bname"
ssql = ssql & " FROM \[tbl2\] INNER JOIN \[tbl3\] ON "
ssql = ssql & " \[tbl2\].code = \[tbl3\].code"
ssql = ssql & " WHERE \[tbl2\].id > 160"
End If
Me.RecordSource = ssql
Me.UniqueTable = "tbl2"
End Sub
C# コードMicrosoft End User 2000-2008 「「「「「「「「「「「「「「「「「「「「「「「「「「「「 The best things in life are free 」」」」」」」」」」」」」」」」」」」」」」」」」」」」