读书人

VB 数据库,该怎么解决

发布时间: 2012-01-19 20:57:58 作者: rapoo

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

读书人网 >VB

热点推荐