vb连接ACCESS数据库实例

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

'先建立一个公共模块

Option Explicit

Public Function GetConnStr() As String

Dim ConnString As String

'连接Access

ConnString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\数据库名Persist Security Info=False"

GetConnStr = ConnString

End Function

Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean

'打开数据库连接，连接成功返回true，出错时返回false

Set Conn = New ADODB.Connection

'出错处理

On Error GoTo Error_box

Conn.Open GetConnStr

OpenConn = True

Exit Function

Error_box:

MsgBox "连接数据库失败！请重新连接！"

OpenConn = False

Exit Function

End Function

Public Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String)

'执行SQL语句

Dim Conn As ADODB.Connection

'出错处理

On Error GoTo Error_box

'打开数据库连接

If OpenConn(Conn) Then

Conn.Execute SQL

msg = " *** 作执行成功！"

End If

Exit Sub

Error_box:

msg = "执行错误: " &Err.Description

Set Conn = Nothing

Exit Sub

End Sub

'*********************************************************************************************************************

'添加数据

Call ExecuteSQL("INSERT INTO 表名称(字段1,字段2,字段N) VALUES ('值1','值2','值N')", msg)

'注意:以上字段值如果为表达式并且是文本类型应采用如此格式:'" &表达式 &"',如果是数值应为" &表达式 &"

'删除数据

Call ExecuteSQL("DELETE FROM 表名称", msg)

'修改数据

Call ExecuteSQL("Update 表名称 SET 要修改的字段名='" &Trim(Text1.Text) &"' WHERE 条件='" &表达式 &"'", msg)

'如:

Call ExecuteSQL("Update G借债 SET 姓名='" &Trim(Text1(0).Text) &"' WHERE 姓名='" &Lbl_str.Caption &"'", msg)

---