vb中调用不同表中的数据

我用的是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
温馨提示:内容为网友见解,仅供参考
第1个回答  2008-03-14
你可以设定一个参数,根据参数值不同连接不同数据库
第2个回答  2008-03-15
窗体载入时候进行真假判断
如果为真,执行第一条语句
如果为假,执行第二条语句

vb中调用不同表中的数据
在控件的单击事件中实现 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 = "" ...

vb 中第一个窗口调用第二个窗口的数据
添加模块,在模块中设置全局变量:Public X As String 在窗体1:X = Text1.Text 在窗体2:Text1.Text = X

在VB中,如何引用其他窗体中的数据。 例如在form1中的text1中输入字符...
Form2的代码可以使用:直接输出在窗体上需要一个Label。Private Sub Form_Load()Label1.Caption = Form1.Text1.Text End Sub 这样可以实现打开窗体后立即显示Form1文本框Text1的文本。希望能帮助到楼主。

怎么通过VB达到同时从多个EXCEL表中取出指定的数据 谢谢!!!
VB 中有Workbooks函数,可以指定xls文件。用法为:Workbooks("BOOK1").Sheets("Sheet1").Ranges(...)你试试就知道了

vb 如何查找两个表中的数据,让结果显示在一张表中
VB可编写SQL结构化查询语句关联两个数据表,将查询结果放置于一个记录集。使用As语句将表名引用作别名。如示例代码中的from字句中:JWCK_BM as cs,jwl_chuk as sl 使用两表能关联字段关联。如示例代码中的where字句中 :cs.备件代码 = sl.备件代码。将整个SQL查询语句赋值给Adodc控件的RecordSource...

如何用VB对多个EXCEL表格中的数值进行修改操作
确保这个文件夹只有这些Excel文件,且若打开某一文件,数据就能看见——即不用点其他sheet。建一新Excel,也存到该文件夹。仅打开该新Excel,同时按Alt和F11,点菜单的插入,模块,粘贴如下代码:Sub Find()Application.ScreenUpdating = False Dim MyDir As String MyDir = ThisWorkbook.Path & "\\"ChD...

一个工作表提取另一个工作表格数据的VB编程?
请注意,这个示例代码中的列索引可能需要根据您的实际数据表格进行调整。在此示例中,我们假设 Sheet1 中的日期在第一列,物料名称在第二列,数量在第五列。同时,我们假设 Sheet2 中的日期在第一列,物料名称在第二列,汇总数量在第三列。要运行此代码,请按 Alt + F11 打开 Visual Basic for ...

请问如何用VB把两个excel表格中的各一列输入数组
Dim S() As String, i As Integer, j As Integer Dim Rows1() As String, Rows2() As String Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application")'以下读入1.xls中的Sheet1内的E列数据到数组Rows1...

用VB怎样对两个表格中的数据进行对比?
员工待遇统计表中数据范围为“3至11行”,关键字所在的位置为(i行1列)和(i行2列)。4.所要做的就是从表1中找出表2中已经存在的记录,并且做好相应的标记,以便供查看。为此,按键盘上的快捷组合键“Alt+F11”进入VBA编辑模式。或者切换至“开发工具”选项卡,点击“Visual Basic”按钮进入VBA...

VB中,下一个窗口想要调用上一个窗口的输出数据,该怎么做。
朋友。你要把窗口2中的平均值定义为一个全局变量。如:在窗口2的通用段中,dim aver as single,然后在其中的过程中,把平均值赋值给这个变量。这样才可以在别的窗口调用它。而且,调用的时候要加上窗体名。比如你这里在调用的时候,就要用form2.aver 不知我这么说你能不能明白。朋友。

相似回答
大家正在搜