vb+access编程指导

'声明数据库连接对象

Public cn As New ADODB.Connection

'声明记录集对象

Public rs As New ADODB.Recordset

'连接数据库

Public Sub OpenConn()

    Set cn = New ADODB.Connection

    Set rs = New ADODB.Recordset

    cn.CursorLocation = adUseClient

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\\data\\Test.mdb; Jet OLEDB:Database password=1234;Persist Security Info=False;"

End Sub

'关闭数据库

Public Sub CloseConn()

If rs.State = True Then

    rs.Close

    Set rs = Nothing

End If

    cn.Close

    Set cn = Nothing

End Sub

'提示窗口

Public Sub msginfo(msg As String)

    MsgBox (msg & "成功！")

End Sub

窗体

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

'天佑汶川、天佑四川、天佑甘肃、天佑中华、天佑善良的人！

'作者：大唐

'发布日期：2008/06/08

'描    述：一个简单的vb6操作ACCESS数据库实例

'网    站：http://www.zhiweikeji.cn/  (智威科技)

'OICQ    ：21792038

'天佑汶川、天佑四川、天佑甘肃、天佑中华、天佑善良的人！

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

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

 '添加数据

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

 Private Sub InsertButton_Click()

 '调用数据库连接过程

  Call OpenConn

 '执行添加sql语句

 cn.Execute "Insert into Users (UserName,UserPassword) values ('admin','admin')"

 '调用信息窗口过程

 Call msginfo("添加")

 '调用数据库关闭过程

 Call CloseConn

 '调用读取数据库过程

 Call ReadData_Click

 End Sub

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

 '修改数据

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

 Private Sub Update_Click()

 '调用数据库连接过程

  Call OpenConn

 '执行更新sql语句

 cn.Execute "Update Users set UserName='update' where UserName='admin'"

 '调用信息窗口过程

  Call msginfo("修改")

 '调用数据库关闭过程

 Call CloseConn

 '调用读取数据库过程

 Call ReadData_Click

 End Sub

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

 '删除数据

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

 Private Sub Delete_Click()

 '调用数据库连接过程

  Call OpenConn

 '执行删除sql语句

 cn.Execute "Delete from Users where  UserName='update'"

 '调用信息窗口过程

 Call msginfo("删除")

 '调用数据库关闭过程

 Call CloseConn

 '调用读取数据库过程

 Call ReadData_Click

 End Sub

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

 '读取数据库

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

 Private Sub ReadData_Click()

 '清楚屏幕信息

  Me.Cls

'调用数据库连接过程

  Call OpenConn

 '执行查询sql语句

 rs.Open "Select * from Users", cn

 '读取记录集内容

 While Not rs.EOF

 '将记录输出到窗体上

 Print rs("UserId"), rs("UserName"), rs("UserPassword")

 rs.MoveNext

 Wend

'调用数据库关闭过程

 Call CloseConn

 End Sub