Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号) Dim cn As New ADODB.Connection Dim rs As New ADODB.RecordsetPrivate Sub Combo1_Click() rs.Open "SELECT * FROM TABLENAME LEFT JOIN TABLEB ON TABLENAME.ID = TABLEB.ID WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic If Not rs.EOF Then Label1.Caption = rs!ID Label2.Caption = rs!Memo End If End SubPrivate Sub Form_Load() cn.ConnectionString = "" cn.Open '查询字符串可以上这里查 'http://www.connectionstrings.com/ End Sub
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Combo1_Click()
rs.Open "SELECT * FROM TABLENAME LEFT JOIN TABLEB ON TABLENAME.ID = TABLEB.ID WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Label1.Caption = rs!ID
Label2.Caption = rs!Memo
End If
End SubPrivate Sub Form_Load()
cn.ConnectionString = ""
cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/
End Sub
具体的有
内连接:一对一。一对多、多对多
外连接:左连接、右连接、全外连接具体的你可以去看看sql的书,在sql中做连接回比较方便,而且易于调试、发现问题。速度不会慢的。