datagrid 出现"cannot initialize data bindings"错误

三色 2008-02-26 09:26:43
''datagrid binding过程:

dim db1 As New DbOperation
dim r As ADODB.Recordset
Dim sql As String
db1.DB_Connect
sql="..."
Set r = db1.querySQL(sql)
Set DataGrid1.DataSource = r
r.Close
db1.DB_DisConnect

'数据库连接我做成了一个类模块:DbOperation
'声明一个连接
Dim conn As ADODB.Connection
'声明一个数据集对象
Dim rst As ADODB.Recordset
Public Sub DB_Connect()
'建立连接
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 8 '设置连接超时,8s内无法连接视为服务器不可用
conn.Open ConnectString '连接服务器
End Sub

Public Function querySQL(ByVal sql As String) As ADODB.Recordset
'执行查询
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic
'rst.MoveLast 'get RecordCount
Set querySQL = rst
End Function

Public Sub executeSQL(ByVal sql As String)
'执行sql语句
conn.Execute (sql)
End Sub

Public Sub DB_DisConnect()
'关闭连接
conn.Close
'释放连接
Set conn = Nothing
End Sub


''问题:datagrid出现了"cannot initialize data bindings"的错误。我想可能是datagrid没有注册,
所以把把MSDATGRD.OCX复制到目标机器上并用regsvr32进行注册,但是问题依然存在。
说明:我的程序没有打包,直接生成的EXE文件在目标机器上运行。目标机器上已经安装了MDAC。
是不是还有些datagrid相关的组件没有拷到目标机器上啊?
亟待解决,谢谢。
...全文
283 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
三色 2008-02-26
  • 打赏
  • 举报
回复 1
自己解决了,除了需要注册MSDATGRD.OCX外,还需注册msstdfmt.dll
三色 2008-02-26
  • 打赏
  • 举报
回复
没人知道吗?

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧