VB6中怎么打不开数据库？

Question

你用的DAO
没有打开tabledef啊建议用ado把，dao淘汰了  Dim dbsample As adodb.Connection
  Dim Connection As ADODB.Connection
  Set dbsample = New Connection
你引用的ado哪个版本的库欢迎到www.myvc.net编程好望角

Answer 1

看看msdn去Set database = workspace.OpenDatabase (dbname, options, read-only, connect)

Answer 2

谢谢各位我的配置是NT4.0(WIN2000),ACCESS 2000,都不行。我想用ADO,谁能写一段可以用的代码

Answer 3

DAO 请先用access转化成97的格式的数据库

Answer 4

对对，ADO比DAO好使得多 ！

Answer 5

建议用ADO。
如果真要用DAO，将
Set db = OpenDatabase("E:\db1.mdb", True, False, "access")
改为
Set db = dbengine.OpenDatabase("E:\db1.mdb", True, False, "ms access;")
如果数据库有密码，则
Set db = dbengine.OpenDatabase("E:\db1.mdb", True, False, "ms access; pwd=xxxxx")

Answer 6

可以试试以下方法：Public gcnn As ADODB.ConnectionSet gcnn = New ADODB.Connectiongcnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb"
    gcnn.ConnectionTimeout = 150
    gcnn.Open

Answer 7

Dim cn As new adodb.connection
Dim rs As new adodb.Recordset
cn.connectionstring="provider=microsoft SqL Server;..."
cn.open
rs.open "select * from yourtable",cn,addynaset,adreadonly
rs.close
cn.close