在我看过讲解VB数据库的书上,凡是要对两个数据表进行关联,都是通过DataEnvironmnet来实现,可是我打开数据库却都是用ADO代码来打开,如果想对数据表进行关联该如何实现呢?

解决方案 »

  1.   

    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
      

  2.   

    数据表关联可以在sql语言里做,
    具体的有
    内连接:一对一。一对多、多对多
    外连接:左连接、右连接、全外连接具体的你可以去看看sql的书,在sql中做连接回比较方便,而且易于调试、发现问题。速度不会慢的。