如果用这段代码。 Public strConnectString As String Public rsTable As New ADODB.Recordset Private Sub Form_Load() strConnectString = "C:\Document and Settings\zy\MyDocument\VB1.mdb" End SubPrivate Sub Command1_Click() Dim cn As New ADODB.Connection Dim rsTable As New ADODB.Recordset cn.ConnectionString = strConnectString cn.Open rsTable.CursorLocation = adUserClient rsTable.Open "select 公司名称 from 公司表" Set rsTable.ActiveConnection = Nothing cn.Close reTable.Filter = "Name=vvvv" settextName.DataSource = rsTable End Sub 它总是弹出rsTable As New ADODB.Recotdset1用户定义类型未定义。 怎么改?
工程--引用--Microsoft ActiveX Data Objects 2.x Libary
发生了重复定义: 1. Public rsTable As New ADODB.Recordset2. Dim rsTable As New ADODB.Recordset
然后放到listview里面
Public strConnectString As String
Public rsTable As New ADODB.Recordset
Private Sub Form_Load()
strConnectString = "C:\Document and Settings\zy\MyDocument\VB1.mdb"
End SubPrivate Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
cn.ConnectionString = strConnectString
cn.Open
rsTable.CursorLocation = adUserClient
rsTable.Open "select 公司名称 from 公司表"
Set rsTable.ActiveConnection = Nothing
cn.Close
reTable.Filter = "Name=vvvv"
settextName.DataSource = rsTable
End Sub
它总是弹出rsTable As New ADODB.Recotdset1用户定义类型未定义。
怎么改?
1. Public rsTable As New ADODB.Recordset2. Dim rsTable As New ADODB.Recordset
如果数据库用的是Access,就简单了,但要记住得把它转换成以前的版本,才能被VB调用,原因不详,我也很想知道为什么,希望有高手能够告诉我
rs.open"sqlstring",cn,1,1____中
"sqlstring"应该为"& sqlstring &"