怎样动态改变连接ADO程序的数据库表

Question

用代码：
    ado1.ConnectionString = cnHhsoft
    ado1.RecordSource = "select * from 表 where 字段1= '在职职工'"
    ado1.Refresh你的记录是在TextBox里显示的吗？

Answer 1

一般TextBox的记录绑定是和ADODC控件之间。

Answer 2

问题出在你没有刷新ADO数据控件(refresh）。
比较方便的做法是将Option做成一个数组：
1 在option1的属性窗口index项中输入0；
2 把option2改名为option1，index设置为1；
3 把option3改名为option1，index设置为2。
添加下列代码：dim tblname(2) as stringprivate sub form1_load()
tblname(0) = "在职"
tblname(1) = "退休"
tblname(2) = "病退"
end subprivate sub option1_click(byval Index as integer)
ADO1.RecordSourece＝tblname(Index)
ADO1.refresh
end sub

Answer 3

我的“人事管理”库里有“在职库”“病退库”“内退库”表，我要点击Option控件时动态改变数据表的连接，现在用下面的语句后能改变数据表可为什么Text数据控件里不能显示相应的字段，提示“末找到方法或数据成员”错误这是为什么？ 用工具栏的属性窗口里改变DataSource、DataField能显示。
Private Sub Option1_Click()
ado1.RecordSource = "在职库"
ado1.Refresh
Text1(0).DataSource = "ado1"
Text1(0).DataField = "ID"
End Sub
 
Private Sub Option2_Click()
ado1.RecordSource = "退休库"
Text1(1).DataSource = "tuixiu"
Text1(2).DataField = "ID"
tuixiu.Refresh
End Sub

Answer 4

1.option2_click中，改变了ado1的RecordSource,应调用ado1.refresh
2.改变记录源时，注意要绑定的记录字段是否存在

Answer 5

我ado2在加from窗体上，把它的名称该tuixiu了。