vb中调用不同表中的数据

来源：百度知道 编辑：UC知道 时间：2024/06/02 07:07:52
我用的是adodc空间和SQL SERVER2000数据库，在同一个窗体，不想改变控件的数量，只想改变代码，能够实现点击同一个控件，调用不同的数据库中的表格，如何实现？不知道我叙述清楚没，谢谢！

在控件的单击事件中实现

Dim X As Integer '模块级变量

Private Sub 控件名称_Click()
If X = 0 Then
X = 1
Adodc1.ConnectionString = "" '第一个数据库链接语句
Adodc1.RecordSource = "" '第一个数据表的SQL语句
ElseIf X = 1 Then
X = 0
Adodc1.ConnectionString = "" '第二个数据库链接语句
Adodc1.RecordSource = "" '第二个数据表的SQL语句
End If
End Sub

你可以设定一个参数,根据参数值不同连接不同数据库

窗体载入时候进行真假判断
如果为真，执行第一条语句
如果为假，执行第二条语句