高手帮帮忙

[my202com4]

请问联合查询的SQL给几个

[tztz520]

Private Sub Command2_Click()
Dim db As New ADODB.Connection
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\dev.mdb"
db.Open
rs.Open "select table1.id,table1.username,table2.id from table1,table2 where table1.id=table2.id", db
Do While Not rs.EOF
Debug.Print rs.Fields(0).Value
Debug.Print rs.Fields(1).Value
rs.MoveNext
Loop
End Sub

[recollectpainer]

SELECT * FROM TableName WHERE 条件1
union
SELECT * FROM TableName WHERE 条件2
union
SELECT * FROM TableName WHERE 条件3
union
SELECT * FROM TableName WHERE 条件4

[recollectpainer]

上面的 TableName 一般是同一个表哈
不同的表但某些字段相同的就在 SELECT 中指定相同的字段名