VB中用ADO与Access怎样连接？
像Open。Set之类的。
这个悬赏的没多贴，回答好的另追加50。
最新回答
苏仙小可爱
2024-06-07 06:37:14
首先 工程->引用->DAO。。这个楼主应该会的吧
然后在画一个 Datagrid控件 （为了看数据库的内容，也可用其他的），其位置在常用控件的最后一个。
接着粘贴如下代码
当然在此之前，楼主要建立一个数据库，数据库名为students ，在建立一个表，命名为stu
（当然也可以取其它的名称），保存在此VB文件所在文件夹。。
Dim cn As New ADODB.Connection '定义一个新的连接
Dim rs As New ADODB.Recordset '定义一个新的记录
Private Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\students.mdb" ' 打开此路径的数据库
rs.CursorLocation = adUseClient '游标设置
rs.Open "select * from stu", cn, adOpenStatic, adLockOptimistic '打开stu中的所有记录，*代表所有的记录
Set DataGrid1.DataSource = rs ' 与 DataGrid控件链接。
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs.Close
cn.Close
End Sub
这么讲够详细了吧，不懂的可以HI我。
安旭薇
2024-06-07 06:40:59
dim rs as new ADODB.recorder ‘声明数据集对象
con.open "Provider=Microsoft.jet.oledb.4.0;data source=数据库名称.mdb;persist security info=false" '打开数据库连接
if rs.state<>adstateclosed then rs.close ’打开数据集前先关闭
rs.open "select * from 你的数据表名称",con,adopendynamic,adlockpessimistic '这里打开数据集，其中的sql语句也可换成你自己需要的语句。后面的参数根据你的需要更改，会自动弹出提示的
……………… ‘其它语句
因为代码是自己敲的，所以大小写区分不是很好，你输入时会自动转化的，试试吧
与君醉笑三千场
2024-06-07 07:08:51
(其他版本的也可以)
在模块中定义
Dim Rs As Recordset
Public conn As New ADODB.Connection
然后在form_load中定义数据库
Private Sub Form_Load()
dFile = "d:\test.mdb" '设置数据库名称
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dFile
conn.open
end sub
'然后就可以在别的过程中使用sql来访问数据库了
sql = "select * from 表名"
Rs.open conn, 1, 3
rs.movenext
Rs.Close
等等SQL语句都可以用。
热门标签
