为什么我用ado控件绑定textBox控件的时候会出现实时错误'713'类没有注册的问题呀?
我用adodc控件绑定其他表格控件,如datagrid就是正常的呀!
代码如下:
Adodc1.RecordSource = "select * from unit"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1Set Text1.DataSource = Adodc1 ‘?出问题!
我用adodc控件绑定其他表格控件,如datagrid就是正常的呀!
代码如下:
Adodc1.RecordSource = "select * from unit"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1Set Text1.DataSource = Adodc1 ‘?出问题!
Text1.DataField = "xx"
Dim Connstr As String
Dim strSql As String
Connstr = "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\db1.mdb;persist security info=false"
Adodc1.ConnectionString = Connstr
Adodc1.CommandType = adCmdText
Dim sq As String
strSql = "select * from table"
Adodc1.RecordSource = strSql
Adodc1.Refresh
Set DataGrid1.DataSource = Nothing
Set DataGrid1.DataSource = Adodc1
Set Text1.DataSource = Adodc1
Text1.DataField = "Name"
End Sub
谢谢!