哈哈,管他白猫黑猫,能拿耗子就行呀 Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.CursorLocation = adUseClient cn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path + "\PASS1.mdb;" Dim ret As ADODB.Recordset Set ret = New ADODB.Recordset ret.ActiveConnection = cn ret.Open "select * from 变更索引" Set DataGrid1.DataSource = ret
Provider ODBC 数据库 Microsoft OLE DB Provider for ODBC Microsoft® Index Server Microsoft OLE DB Provider for Microsoft Index Server Microsoft® Active Directory Service Microsoft OLE DB Provider for Microsoft Active Directory Service Microsoft® Jet 数据库 OLE DB Provider for Microsoft Jet Microsoft® SQL Server Microsoft SQL Server OLE DB Provider Oracle 数据库 Microsoft OLE DB Provider for Oracle
问一下 Data Source=" + App.Path + "\PASS1.mdb;" 什么意思? thx
Access2000是这样的Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False;User id=Admin;Password=Admin;
cnn1.Open
但是提示无法打开,提示“工作信息丢失……………………”
????
不过先谢谢 griefforyou(为你伤心)了!!
如果不嫌麻烦的话请教一Provider有那些(再什么时候用)以及Persist Security Info怎么设置?
initial catalog是什么??
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path + "\PASS1.mdb;"
Dim ret As ADODB.Recordset
Set ret = New ADODB.Recordset
ret.ActiveConnection = cn
ret.Open "select * from 变更索引"
Set DataGrid1.DataSource = ret
因此,最好用微软内设的东西帮帮忙。
建一个**.UDL(要把扩展名打开),打开后进行配置连接,成功后,再用文本文档打开,就OK了
很好用,可以直接多种连接!
记得要加分!!
ODBC 数据库 Microsoft OLE DB Provider for ODBC
Microsoft® Index Server Microsoft OLE DB Provider for Microsoft Index Server
Microsoft® Active Directory Service Microsoft OLE DB Provider for Microsoft Active Directory Service
Microsoft® Jet 数据库 OLE DB Provider for Microsoft Jet
Microsoft® SQL Server Microsoft SQL Server OLE DB Provider
Oracle 数据库 Microsoft OLE DB Provider for Oracle
Data Source=" + App.Path + "\PASS1.mdb;"
什么意思?
thx
ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=DBName;Jet OLE DB:Database Password=Pass"
第二种
ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" DBName;Pwd=Pass;"
什么意思????!!
当然是数据源=当前应用程序.路径 +(表示连接) 数据库名了
(Data Source= " + App.Path + "\PASS1.mdb; ")
app.path是当前程序运行的路径,后边连文件名要根据情况加"\"号,
pass1.mdb是access建的数据库文件,复制了放在程序目录下,这回可以了吧?