在此本人使用ADO对象访问ACCESS数据库,但ADO对象在使用前你先要进行添加,启动VB6后,单击菜单“工程-引用”,打开引用对话框,选择“Microsoft ActiveX Data Objects 20 Library”,将其勾选,(以20版本为例,实际可以选择系统中的最高版本如本人的就是26版本),然后在当前目录下建立一个名为“学生”的ACCESS数据库,其中表名为“表”,字段共有:学号,姓名,年龄,性别四个字段,接下来就是设计界面了(自己设计)
现在介绍如何使用代码访问ACCESS数据库:
在代码窗口中编写一个返回字符型的函数
Function Connection() As String
'数据库的连接设置配置
Connection = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath + "\学生mdb"
End Function
该函数用于连接数据库用
Private Form_Load()
Dim cnn As New ADODBConnection
Dim Rst As New ADODBRecordset
cnnOpen Connection
Set Rst = New ADODBRecordset
RstOpen "select from 表", cnn, adOpenKeyset, adLockOptimistic
End Sub
注:
Dim cnn As New ADODBConnection创建一个ADO数据库连接对象
Dim Rst As New ADODBRecordset为创建一个ADO数据库记录对象
select from 表 是SQL查询语言,这里为数据源,意思就是打开数据库“学生”中的表“表”
下面是将数据库表中的字段值显示出来的一个过程
Sub View()
Dim i As Integer
For i = 0 To 2
Text1(i) = RstFields(i)'text1为控件数组
Next
If (RstFields(3) = True) Then
Text1(3) = "男"
Else
Text1(3) = "女"
End If
End Sub
要访问ACCESS数据库就这样可以实现,访问SQL也差不多,稍有不同,回答完毕,如还有问题请继续和我联系,本人是专使用VB+SQL/Delphi+SQL开发数据库管理系统的程序员。
别忘了采纳我的回答,谢谢!
数据库连接1连接Access (参数一, “”)
在你的连接命令里 参数一 不正确,应该写文件的路径 文本型
例如:
数据库连接1连接Access ("D:\testmdb", “”)
Access是基于文件的,web服务器当然无法调用,这是原理问题。 不过你可以在WEB服务器上架设 Microsoft Replication Manager 40 后就可以用过同步来完成通过 INTERNET 进行的数据共享了。 如果你架设***的话可以,因为那是和在本机上access以文件形式 *** 作mdb一样的。 方法一: 你用类似 sql server 等软件转一下。 >
以上就是关于如何打开MDB数据库全部的内容,包括:如何打开MDB数据库、易语言之mdb数据库连接的问题、如何在本地连接网上虚拟主机上的mdb数据库等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)