问两个简单问题，关于access的连接串，分多的受不了

[xudongdong]

1、链接access数据库的连接串
2、连接网络上的access数据库的连接串

[饮水需思源]

dim ac_tmp as new adodb.connection
dim ar_tmp as new adodb.recordset
With ac_tmp
if .State = adStateOpen Then .Close
.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\tmp.mdb;Mode=ReadWrite;Persist Security Info=False"
.Open
End With

If ar_tmp.State = adStateOpen Then ar_tmp.Close
ar_tmp.Open "select * from tablename", ac_tmp, adOpenKeyset, adLockReadOnly

'如果为网络，则将c:\tmp.mdb改成\\计算机名\目录共享名\tmp.mdb即可

[lxxldd]

up

[lxqlogo0]

'1、链接access数据库的连接串

'首先引用Microsoft Activex Data Objects 2.x Library
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=basic;Data Source=" & App.Path & "\infoTable.mdb"
objrs.Open "select * from infoTable ", objcon, 3, 1
while not objrs.eof
list1.additem objrs.fields(0)
objrs.movenext
wend
2、连接网络上的access数据库的连接串
将Data Source=" & App.Path & "\infoTable.mdb"
改成网络路径即可

[strongfisher]

1》
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\pro\msDATA.mdb;Persist Security Info=True;Jet OLEDB:Database Password=****
2》
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Pro7\c\Program Files\pro\msDATA.mdb;Persist Security Info=True;Jet OLEDB:Database Password=****

[peter310cn]

在vb中有一个空间，ado data control,他又生成连接字符串的功能，按操作提示就可以了！

[qzrxy]

up

[lihonggen0]

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

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

Set DataGrid1.DataSource = Rs

[Wang_xiaoni]

建立ODBC 设置连接字符串为‘DSN=*****(数据据源名称);Data Source=机器名;Persist Security Info=True;Jet OLEDB:Database ....
直接连接不担心数据安全和网络安全吗？