EVB数据库问题
Dim cn As ADOCE.ConnectionDim 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