VB中查询多个(最多可能有几百个)表
VB中查询多个(最多可能有几百个)表并用adodc和datagrid两控件显示,A表的第N行(例如第11行)显示在datagrid的第一行,B表的第N行(例如第11行)显示在datagrid的第二行,表的第N行(例如第11行)显示在datagrid的第三行,D表的第N行(例如第11行)显示在datagrid的第四行,依此类推,如何实现?敬请帮忙。
[解决办法]
如果你一次查询需要很多表,那说明你的数据库结构设计有问题。
[解决办法]
For i = LBound(tablename) To UBound(tablename)
S = S & "Union All SELECT * From " & tablename(i) & " Where ID =511 "
Next
S = Right(S, Len(S) - 9)
Adodc.RecordSource = s
Adodc.Refresh
[解决办法]
楼上多输了个5
For i = LBound(tablename) To UBound(tablename)
S = S & "Union All SELECT * From " & tablename(i) & " Where ID =11 "
Next
S = Right(S, Len(S) - 9)
Adodc.RecordSource = s
Adodc.Refresh