VB 数据库,该怎么解决

2012-01-19

VB 数据库我想在combox中显示数据表中的一列，可是语句cn.ConnectionString providerMicrosoft.Jet.OLE

VB 数据库
我想在combox中显示数据表中的一列，可是语句cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;DRIVER=Microsoft Access Driver (*.mdb);SourceDB=" & path
一直出现变量或with变量未设置的错误

VB code

Dim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim cmd As ADODB.CommandDim path As StringPrivate Sub Form_Load()path = App.path + "\db1.mdb"cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;DRIVER=Microsoft Access Driver (*.mdb);SourceDB=" & pathcn.Openrs.Open "select 编号 from info", cnWhile Not rs.EOFhun_c.AddItem rs!编号rs.MoveNextWendrs.Closecn.CloseEnd Sub

[解决办法]
你没有实例化cn,要加一句 set cn=new adodb.connection
[解决办法]
dim conn as new connection

热点排行