'下面是代码示意
'Dim conn As ADODB.Connection
'Dim rs As ADODB.RecordSet
'Dim sql As String
'grid是DataGrid控件名称
'下面的代码执行前conn已经正确Open了If rs.State = adStateOpen Then
rs.Close
End If
sql = "select ......"
rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText
grid.Columns.Item(0).DataField = "field1"
grid.Columns.Item(1).DataField = "field2"
grid.Columns.Item(2).DataField = "field3"
Set grid.DataSource = rs在装过VB的机器上运行正常,而到没装过VB的机器上运行则跳出错误:"Cannot initialize data bindings",不知道怎么回事
(注:这段代码用到的msvbvm60.dll、MSDATGRD.OCX、odbcjt32.dll已经拷到目标机上了,难道打包时VB运行时库没打全?)
'Dim conn As ADODB.Connection
'Dim rs As ADODB.RecordSet
'Dim sql As String
'grid是DataGrid控件名称
'下面的代码执行前conn已经正确Open了If rs.State = adStateOpen Then
rs.Close
End If
sql = "select ......"
rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText
grid.Columns.Item(0).DataField = "field1"
grid.Columns.Item(1).DataField = "field2"
grid.Columns.Item(2).DataField = "field3"
Set grid.DataSource = rs在装过VB的机器上运行正常,而到没装过VB的机器上运行则跳出错误:"Cannot initialize data bindings",不知道怎么回事
(注:这段代码用到的msvbvm60.dll、MSDATGRD.OCX、odbcjt32.dll已经拷到目标机上了,难道打包时VB运行时库没打全?)
还有一个可能,你把msvbvm60.dll、MSDATGRD.OCX、odbcjt32.dll已经拷到目标机上了,但是没有注册(Regsvr32)它们。
grid.Columns.Item(0).DataField = "field1"
grid.Columns.Item(1).DataField = "field2"
grid.Columns.Item(2).DataField = "field3"
conn.CursorLocation = adUseClient