Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "dsn=FZYCTEST;uid=XH;pwd=XH;"
cn.ConnectionString = str
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from xh_test", cn, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = rs
End SubPrivate Sub Form_Load()
Adodc1.Visible = False
End Sub我在ADODC的属性中的记录源的命令类型是ADCMDTEXT
命令文本是:select * from xh_test
怎么老是提示无法初始化数据绑定?
我快晕了,救救我
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "dsn=FZYCTEST;uid=XH;pwd=XH;"
cn.ConnectionString = str
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from xh_test", cn, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = rs
End SubPrivate Sub Form_Load()
Adodc1.Visible = False
End Sub我在ADODC的属性中的记录源的命令类型是ADCMDTEXT
命令文本是:select * from xh_test
怎么老是提示无法初始化数据绑定?
我快晕了,救救我
改为 cn.CursorLocation = adUseClient
建议使用ADO对象。请多多指教!
到网上搜下adodc1看看代码有什么区别就可以了