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

Private

Sub

Command1_Click()

Dim

Cnn

As

New

ADODBConnection

Dim

Rs

As

New

ADODBRecordset

Dim

ConnStr

As

String

ConnStr

=

"Provider=MicrosoftJetOLEDB40;Data

Source="

&

AppPath

&

"\notemdb"

CnnOpen

ConnStr

CnnCursorLocation

=

adUseClient

RsOpen

"Select

From

表

where

=条件",

Cnn,

adOpenKeyset,

adLockPessimistic

把&

AppPath

&

"\notemdb这个换成你的数据库就行了

VB access,添加/删除/修改记录代码 给你一个示例,这个是用户登录系统

'准备工作: 数据库 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

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

动态创建数据库

引用 microsoft DAP 36 Object Library

Dim myDB As DAODatabase

Set myDB = CreateDatabase(AppPath + "\111mdb", dbLangGeneral) '如果不存在数据库

Set myDB = OpenDatabase(AppPath + "\111mdb") '如果存在数据库

Dim str_SQL As String

str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"

myDBExecute str_SQL

str_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"

myDBExecute str_SQL

myDBClose

向已经建好的数据库中添加记录

建立数据库a，表名字b,字段c，文本格式,在窗体上画一command ,画一个文本框，这个代码就是将文本内容写入数据库

要先引用microsoft activeX data object 25 library

代码如下：

Private Sub Command1_Click()

Dim cnDk As New ADODBConnection

Dim strDk As String

Dim rDk As New ADODBRecordset

Dim sql As String

strDk = "DBQ=" & AppPath & "\amdb;Driver={Microsoft Access Driver (mdb)};"

cnDkOpen strDk

sql = "insert into b (c) values ('" & text1text& "')"

cnDkExecute sql

cnDkClose

Set cnDk = Nothing

End Sub

在数据库中添加多条记录

只要可以进行输入文本的都可以

改一下这些吧，你单击一次就提示输入一次，输完了自动保存

改后

Data1RecordsetAddNew

Data1RecordsetFields("username") = trim(inputbox("请输入名字"))

Data1Recordset("password") =val(trim(inputbox("请输入电话")))

Data1UpdateRecord

——————————————————————————————

Data1RecordsetAddNew

Data1RecordsetFields("username") = "张三|"

Data1Recordset("password") = "fsdfsd"

Data1UpdateRecord

Data1RecordsetAddNew

Data1RecordsetFields("username") = "李四|"

Data1Recordset("password") = "fsdf432d"

Data1UpdateRecord

Data1RecordsetAddNew

Data1RecordsetFields("username") = "王五|"

Data1Recordset("password") = "f42342d"

Data1UpdateRecord

MsgBox "adad"

========================================================================================

vb+access 数据库的记录的添加与删除

Dim cn As New ADODBConnection

Dim rs As New ADODBRecordset

Private Sub Command2_Click()

Set rs = cnExecute("select from wenzhang where 内容='" & Text1Text & "'")

If Text1Text = "" Then

MsgBox ("文章不能为空！")

ElseIf rsEOF = False Then

MsgBox ("文章不能重复！")

Else

cnExecute ("insert into wenzhang values('" & Combo1Text & "','" & Text3Text & "','" & Text4Text & "','" &

Text1Text & "')")

MsgBox ("ok")

End If

End Sub

'添加按钮

Private Sub Command3_Click()

Dim myval As String

Set rs = cnExecute("select from wenzhang where 内容='" & Text1Text & "'")

If rsEOF Then

myval = MsgBox("是否保存文章？", vbInformation + vbYesNoCancel, "提示")

If myval = vbYes Then

cnExecute ("insert into wenzhang values('" & Combo1Text & "','" & Text3Text & "','" & Text4Text & "','" &

Text1Text & "')")

MsgBox ("保存成功")

Else

Combo1Text = ""

End If

Else

Text1Text = ""

Combo1Text = ""

End If

End Sub

'删除按钮

Private Sub Command4_Click()

If Text1Text = "" Then

MsgBox ("不能删除空记录！")

Else

Dim myval As String

myval = MsgBox("是否删除文章？", vbInformation + vbYesNo, "提示")

If myval = vbYes Then

Set rs = cnExecute("delete from wenzhang where 内容 ='" & Text1Text & "'")

MsgBox ("删除成功！")

End If

End If

End Sub

'连接数据库

Private Sub Form_Load()

cnConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=\vbnet\tempmdb;Persist Security Info=False"

cnCursorLocation = adUseClient

cnOpen

End Sub

VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：

1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 26 library和 microsoft activeX Data objects recordset 26两个组件，这是在连接数据前所必做的工作。

2、接下来定义ADO的连接对象，如下所示：

Set conn = New ADODBConnection

Set rs = New ADODBRecordset

第一种方法采用的是无源的数据库连接方法

connConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

connConnectionTimeout = 30

connOpen

rsOpen "select 用户名,密码 from login where 用户名='" & Trim(Combo1Text) & "' And 密码='" & Trim(Text1Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText

If rsEOF = True And rsBOF Then

m = MsgBox("请重新登录", vbExclamation)

Text1Text = ""

Text1SetFocus

Else

Form1Hide

End If

rsClose

这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：

Set conn = New ADODBConnection

Set rs = New ADODBRecordset

connConnectionString = "DSN=login;uid=sa;pwd=;"

connConnectionTimeout = 30

connOpen

rsOpen "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText

Dim i As String

For t = 0 To Val(rsRecordCount) - 1

i = Trim(rsFields("用户名")Value)

rsMoveNext

Combo1AddItem i

Next t

rsClose

VBNET中有控件可以真接接点击属性进行连接配置

SqlConnect数据连接控件点击ConnectionString属性进行配置就可以了

VBNET中没有RecordSet了取而代之的是DataSet

在VBnet中可以先用SqlConnection对像来连接数据库再用SqlDataAdapter对像来读取数据并填充到DataSet里然后就可以进行数据绑定了

例:

dim conn as SqlConnection

dim da as SqlDataAdapter

dim ds as Dataset

set conn = new SqlConnection

connConnectionString="server=serverIP;database=databasename;uid=userid;pwd=password";

connopen

da = new SqlDataAdapter (<sql>,conn)

dafill(ds)

以上就是关于vb连接ACCESS数据库实例全部的内容，包括:vb连接ACCESS数据库实例、vb连接access数据库SQL语句、请朋友帮忙：VB2008 *** 作Access数据库。完成连接、添加、修改、删除、读某个列值至变量等完整的代码示例谢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！