数据库的简单问题
我想用data控件连接一个任选的数据库,并让一个textbox与该数据库中一个表的一个字段连接,可以在textbox中输入数据修改数据库。假设被选中的数据库中含有一个表tabtext,表中含有一个字段Qcode。以下程序为什么实现不了?
Private Sub Command1_Click()
Dim fname As String
CommonDialog1.Action = 1
fname = CommonDialog1.FileName
Data1.DatabaseName = fname
Data1.RecordSource = "select * from tabtext"
Set Text1.DataSource = Adodc1
Text1.DataField = "QCODE"
End Sub