用evb做一数据库软件。
我用access数据库。连接数据库时不行。
Dim connDatabase As ADOCe.Connection
Set connDatabase = CreateObject("ADOCE.Connection.3.0")
connDatabase.ConnectionString = "data source =" & App.Path & "\evb.mdb"
connDatabase.Open
Form1.Show
提示找不到evb.mdb。
查资料有人这样写。
Set objCon = CreateObject("ADOCE.Connection.3.0")
objCon.Open "data source = \My Documents\Jun.cdb"
但我不知*.cdb数据库是怎样得到的。那access可以转化吗。能的话又怎样转化。
关键是让我用evb和数据库连起来该怎么做????急
我用access数据库。连接数据库时不行。
Dim connDatabase As ADOCe.Connection
Set connDatabase = CreateObject("ADOCE.Connection.3.0")
connDatabase.ConnectionString = "data source =" & App.Path & "\evb.mdb"
connDatabase.Open
Form1.Show
提示找不到evb.mdb。
查资料有人这样写。
Set objCon = CreateObject("ADOCE.Connection.3.0")
objCon.Open "data source = \My Documents\Jun.cdb"
但我不知*.cdb数据库是怎样得到的。那access可以转化吗。能的话又怎样转化。
关键是让我用evb和数据库连起来该怎么做????急
下面程序是通常连接的,(不是EVB)
可以参考: Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
CN.Open Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
------------------------------------------------
你的这些可能有问题
data source = \My Documents\Jun.cdbconnDatabase.ConnectionString = "data source =" & App.Path & "\evb.mdb"
我看大家都用.cdb文件连接数据库。现在是.cdb文件怎么得到。