当前位置:编程学习 > wap >>

EVB数据库问题

Dim cn As ADOCE.Connection
Dim rs As ADOCE.Recordset

Set cn = CreateObject("ADOCE.Connection.3.0")
cn.ConnectionString = "data  source=" & App.Path & "\student.cdb"
cn.Open
If cn.State = 1 Then
Text1.Text = "OK"
Else
Text1.Text = "no"
End If
Set rs = CreateObject("ADOCE.Recordset.3.0")
rs.Open "select * from stu_data", cn
Text1.Text = rs.RecordCount

cn.Close
Set rs = Nothing
Set cn = Nothing

数据库显示连上了,但是报错:给定的表不存在,student.cdb是转换过来的,原来的ACCESS中有stu_data这个表,难道转换后丢了?换了几个.cdb文件都是一样错误,不知怎么回事啊。
补充:移动开发 ,  Windows Phone
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,