用ado的方法打开assess数据库，并且数据库的路径是相对路径
用ado的方法打开assess数据库，并且数据库的路径是相对路径（不要用odbc的系统dsn来打开数据库）
问题点数：20、回复次数：8Top
1 楼frankwong（黄梓钿）回复于 2003-08-03 10:52:39 得分 0
先引用ado2.0或更高版本
Set Cn_Local = New Connection
Cn_Local.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\表.mdb"
Cn_Local.Open
(完)
Top
2 楼gpo2002（永吹不休）回复于 2003-08-03 10:55:46 得分 0
lsConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\db1.mdb;Persist Security Info=False"Top
3 楼hihicapcom（hihicapcom）回复于 2003-08-03 13:19:22 得分 0
你其实可以在表单中添加一个adodc控件然后对adodc控件的connectionstring属性进行设置(有向导)-呵呵,接下来就是复制和粘贴了,最后把adodc控件去除,行了.Top
4 楼sunmaoyou（不懂大师）回复于 2003-08-03 21:37:05 得分 0
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection
strdatafile = "db.mdb"
If Right(App.Path, 1) = "\" Then
strdatafile = App.Path & strdatafile
Else
strdatafile = App.Path & "\" & strdatafile
End If
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open strdatafile, "Admin"
rs.ActiveConnection = cn
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "select * from biao", cnTop
5 楼TIANHEI（示其）回复于 2003-08-04 08:23:09 得分 0
dim con as new connection
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
Data Source后直接写数据库名，默认为这个程序文件夹下的数据库。
Top
6 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2003-08-04 08:57:08 得分 0
工程--->引用--->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;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs
Top
7 楼strongfisher（Haiwolf）回复于 2003-08-04 09:01:38 得分 0
Dim CN As New ADODB.Connection
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\pro\msDATA.mdb;Persist Security Info=True;Jet OLEDB:Database Password=****"
CN.Open
Top
8 楼csdngoodnight（居然比我还快，你真行！）回复于 2003-08-04 09:02:48 得分 20
ADO连接：
工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
Option Explicit
Dim WithEvents adoRS As Recordset
Dim db As Connection
'提数据事件
Set db = New Connection
db.CursorLocation = adUseClient
db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1234;"
' ##########################################
'打开密码是1234的Access2000数据库db1.mdb
'不需要密码，就把Jet OLEDB:Database Password=1234;这段去掉
Set adoRS = New Recordset
adoRS.Open "SELECT * FROM 表", db, adOpenStatic, adLockOptimistic
'赋值给 DataGrid 表
Set DataGrid1.DataSource = adoRS
'表刷新
DataGrid1.Refresh
'如果要绑定TextBox(数组)：
'Text1(0).DataField = 字段1
'Text1(1).DataField = 字段2
'.........
Dim oText As TextBox 'TextBox
For Each oText In Me.Text1
Set oText.DataSource = adoRS
Next
'添加事件和保存
adoRS.AddNew
'保存
adoRS![字段a] = text1.Text
adoRS![字段b] = text2.Text
adoRS.UpdateBatch adAffectAll
'删除
adoRS.Delete
'重新赋值给表
adoRS.Requery
Set DataGrid1.DataSource = adoRS
DataGrid1.Refresh
'其他相关操作：
'上一条
If Not adoRS.BOF Then adoRS.MovePrevious
If adoRS.BOF And adoRS.RecordCount > 0 Then
'已到最后返回
adoRS.MoveFirst
End If
'下一条
If Not adoRS.EOF Then adoRS.MoveNext '下一条
If adoRS.EOF And adoRS.RecordCount > 0 Then
'已到最后返回
adoRS.MoveLast
End If
'第一条
If Not adoRS.BOF Then adoRS.MoveFirst
'最末
If Not adoRS.EOF Then adoRS.MoveLastTop
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
