'声明数据库连接对象
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下载本文
