请问,如何用类编写数据库访问程序?
能帮我该正和完善这个程序吗?
Option Explicit
Private conn As New ADODB.Connection
Private rs As New ADODB.Recordset
Private cmd As New ADODB.Command
Public H_ID As String
Public myDate As Date
Private Sub Class_Initialize()
Set conn.Open = ""
Set cmd.ActiveConnection = conn
rs.CursorLocation = adUseClient
cmd.CommandText = "SELECT * from patient"
rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
End Sub
Public Sub AddGlassList()
rs.AddNew
rs!H_ID = H_ID
rs!Name = Name
rs!Date = myDate
rs.Update
End Sub