VB 如何与 ACCESS 数据库连接
方法 1
建立一个模块
将工程的启动设置为 SUB MAIN
在模块里写下面代码
Public db As Database
Public rs As Recordset
Sub main()
set db=db.opendatabase("数据库路径") (建议用相对路径--就是把数据库文件和工程文件放在同一目录
下--相对路径就是 APP.PATH+"数据库名带后缀")
第一启动窗体(如:form1).show
end sub
以后在其他窗体中如果要调用数据库只用在窗体中写代码
set rs=openrecordset(<可以是数据库的表--如"student",也可以是查询语句--如"select* form student">)
这时数据库的内容都存在 FILE 集合里
比方说 set rs=openrecordset("select* form student")
rs.file(0)就是 SQL 语句查询结果的第一列
rs.files 就是整个结果
使用 text1.text=rs.file(0)就可以把文本框于查询结果绑定起来
如果要对数据库进行修这时用以下代码:
db.Execute (<SQL 语句--如"insert into student(sno,sname) value("","")">)
方法 2
工程--部件--选择 microsoft data bound grid control 5.0
然后在窗体中添加左边工具栏的 DATA 和 DBGRID 控件
选择 DBGRID 将属性 DATASOURCE 设置为 DATA 控件的名字(如 DATA1)
然后选择 DATA 将属性 CONNECT 设置为 ACCESSS 2000
设置 DATABASENAME 选择数据库的存放路径
最后设置 RECORDSET 为需要连接的表的名字
运行就可以看到 DATAGRID 中显示了数据库的信息
方法 3
Dim con as ADODB.Connection
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\
db1.mdb;Persist Security Info=False"
或者
Dim con as new ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\
db1.mdb;Persist Security Info=False"
con.open
不要忘了加引用数据库引擎
评论0