vb连接ACCESS数据库实例

对于没有VB运行库的机器，必须注册VB运行库，程序中的代码不需要改动。 ----------------------------------- 链接数据库的方法比较多，看你采用什么方法链接了，： 1、用ADO链接；2、用Data数据控件链接；3、用ADODB数据控件链接；还有数据库文件是Access 1997Access 2000Access 2003有没有加密？等等等等问题，首先确定这些问题，才能 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击工程-引用，在打开的对话框选择Microsoft AxtiveX Data Objects 28 Library 勾选，然后定义二个对象： Dim conn As New ADODBConnection, rs As New ADODBRecordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： connOpen "Provider=MicrosoftJetOLEDB40;Data Source=F:\library\1mdb;Jet OLEDB:Database Password=" strSQL = "SELECT FROM 数据库中的表" rsOpen strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据 *** 作了，注意，在数据库 *** 作完成后，千万别忘记关闭记录集和数据库链接对象： rsClose connClose

(1) ConnectionString 连接字符串。从以上代码可以看出：你的数据库文件“图书馆查询管理系统mdb”和VB窗体文件在同一个文件夹中；

(2) Adodc1CursorLocation 获取或设置ADODC对象游标库的位置；（有没有这条语句对于连接Access数据库无影响）

(3) CommandType 命令类型。 adCmdText表示你可以使用SQL语句产生Adodc的记录集；

(4）Adodc1RecordSource 数据源设置。strSQL指产生Adodc记录集的SQL语句。

(5) Refresh 刷新。用于刷新Adodc的连接属性，并能重建记录集对象。当在运行状态改变Adodc的数据源连接属性后，必须使用Refresh方法激活这些变化。

首先要在工程的引用中选上Microsoft ActiveX Data Objects 25 Library

然后在事件中就可以定义相关的变量进行连接了

下面的例子可能对您有用：

Private Sub Command1_Click()

Dim Conn As New ADODBConnection

Dim Rs As New ADODBRecordset

ConnOpen connstring ="Provider=MicrosoftJetOLEDB40;Data Source=" & “数据库的路径和名字” & ";Persist Security Info=True;Jet OLEDB:Database Password= & "数据库密码"

sql = "Select From “ & ”表名" & where ID=20"

RsOpen sql, Conn, 1, 3

If NOT rseof then

m_date= rs("日期型字段的名字")

m_data= rs("数值型字段的名字")

end if

上面的例子实现了查询

如果是要添加,删除,更新等 *** 作,只要编写相应的SQL语句,再用

ConnExecute SQL 就可以了,如:

添加的:

SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"

ConnExecute SQL '执行后,就添加了一条记录

删除:

SQL="Delete From [UserInfo] Where User='aaaa'"

ConnExecute SQL '删除用户名为aaaa的用户记录

更新:

SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"

ConnExecute SQL '执行后,修改用户aaaa的密码为abcdefg

以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了

给你一个示例,这个是用户登录系统

'准备工作: 数据库 D:\Mydbmdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录

'点工程->引用 选中 Microsoft Activex Data Objects 21 Library

'控件:添加一个文本框,一个命令按钮

Private Sub Command1_Click()

Dim s As String

Dim Conn As New ADODBConnection

Dim Rs As New ADODBRecordset

ConnOpen "Provider=MicrosoftJetOLEDB40;Data Source=D:\mydbmdb"

'请将数据库名及路径换成你的实际数据库名及路径

Dim UserName As String

Dim Password As String

s = Text1Text

If s = "1" Or s = "2" Then

UserName = InputBox("请输入用户名")

Password = InputBox("请输入用户密码")

sql = "Select From [UserInfo] where User='" & UserName & "'"

'UserInfo请换成你的实际数据表名

RsOpen sql, Conn, 1, 3

If RsEOF Then

MsgBox "没有找到此用户"

Else

If Rs("Password") = Password Then

If s = "1" Then

MsgBox "123"

ElseIf s = "2" Then

MsgBox "456"

End If

Else

MsgBox "密码错误"

End If

End If

End If

End Sub

上面的例子实现了查询

如果是要添加,删除,更新等 *** 作,只要编写相应的SQL语句,再用

ConnExecute SQL 就可以了,如:

添加的:

SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"

ConnExecute SQL '执行后,就添加了一条记录

删除:

SQL="Delete From [UserInfo] Where User='aaaa'"

ConnExecute SQL '删除用户名为aaaa的用户记录

更新:

SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"

ConnExecute SQL '执行后,修改用户aaaa的密码为abcdefg

以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了

下面的代码仅供参考：

imports Systemdataoledb /引用命名空间/

dim cnstr = "provider=microsoftjetoledb40,data source=Access数据库文件位置" /定义连接字符串/

dim cn as oledbconnection = new oledbconnection(cnstr) /定义连接/

cnopen() /打开连接/

sqlstr="select from 或其他sql"

dim cmd as sqlcommand=new sqlcommand()

cmdcommandtext=sqlstr

cmdconnection=cn

/以上是建立执行语句/

cmdexecutenonquery() 不返回结果

cmdexecutescalar() 返回单个结果

cmdexecutereader() 返回结果集

/以上是执行sql语句的方法/

cnclose() /关闭连接/

你要做用户验证的话，先根据用户名查询对应的密码，再判断用户输入的密码和查询结果是不是相同就可以了

用cmdexecutescalar() 这个方法

通过数据对象会数据控件连接ACCESS数据库。

基于ADODC控件和DATAGRID控件的灵活应用。具体做法：

新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 40 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

SQL查询语言主要结构为：

Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]

查询字段必须分别用（西文）逗号分开或就用一个号代替，上述查询中排序语句建议最好应用。

SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT FROM TabelName"作调试，无问题，用一个按钮控件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1控件，再添加ADODC1控件再添其他内容。

以上就是关于vb连接ACCESS数据库实例全部的内容，包括:vb连接ACCESS数据库实例、vb连接access数据库的代码这样写就行了吗、vb 6.0 如何连接access accdb 数据库呢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！