关于ADO的。高分.select的

Question

select a.字段名,b.字段名,c.字段名 from 表1 a,表2 b,表3 c where a.字段名=b.字段名 and a.字段名=c.字段名
就可以了！

Answer 1

要用数据事务.我觉得可以考虑COM+事务.....

Answer 2

Hope this example is useful to you
Private cn  As New ADODB.Connection
Private rs As New ADODB.Recordset
    
Private Sub Command1_Click()
    
End SubPrivate Sub Form_Load()
    Dim strCn As String
    
    
    strCn = "Provider=MSDataShape.1;Data Source=Nwind;" & _
    "Connect Timeout=15;Data Provider=MSDASQL"
    
    cn.Open strCn
    ' Create a Shape command.
    Dim strSh As String
    strSh = "SHAPE {SELECT * FROM [Customers]}  AS Customers " & _
    "APPEND ({SELECT [Orders].CustomerID,[Orders].OrderID,[Orders].OrderDate,[Orders].EmployeeID,[Employees].FirstName,[Employees].LastName FROM [Orders],[Employees] WHERE [Orders].EmployeeID=[Employees].EmployeeID}  AS Orders RELATE " & _
    "CustomerID TO CustomerID) AS Orders "
    
    rs.StayInSync = False
    rs.Open strSh, cn, adOpenStatic, adLockReadOnly
    
    
    Do While Not rs.EOF
        List1.AddItem rs.Fields("CustomerID").Value
        rs.MoveNext
    Loop
End SubPrivate Sub List1_Click()
    Dim rs2 As Variant
    If List1.ListIndex <> -1 Then
        rs.MoveFirst
        rs.Find "CustomerID='" & List1.Text & "'"
        rs2 = rs("Orders")
        List2.Clear
        Do While Not rs2.EOF
            List2.AddItem rs2.Fields("OrderID").Value & vbTab & rs2.Fields("OrderDate").Value & vbTab & rs2.Fields("LastName").Value & " " & rs2.Fields("FirstName").Value
            rs2.MoveNext
        Loop
    End If
    
End SubGood Luck

Answer 3

格式：  select 字段列表，from  表名  where 条件  order by 条件groud  分组
你可以参考msdn的说明。