这是一个考勤管理系统模块的程序,看不懂数据库,普通VB教材上的数据库知识少的可怜,请高手解答一下
Public Function getrs(ByVal strquery As String) As ADODB.Recordset
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
On Error GoTo getrs_rttor
conn.ConnectionString = "provider=microsoft.jet.4.0;data source=D:\My Documents\miscowa.mdb"
conn.Open
rs.Open Trim(strquely), conn, adOpenKeyset, adLockOptimistic
Set getrs = rs
getrs_exit:
Set rs = Nothing
Set conn = Nothing
Exit Function
getrs_rttor:
MsgBox (Err.Description)
Resume getrs_exit
End Function
Public Sub executesql(ByVal strcmd As String)
Dim conn As New ADODB.Connection
On erroe GoTo executesql_error
conn.ConnectionString = "provider=microsoft.jet.4.0;data source=D:\My Documents\miscowa.mdb"
conn.Open
conn.Execute Trim(strcmd)
executesql_exit:
Set conn = Nothing
Exit Sub
executesql_error:
MsgBox (Err.Description)
Resume executesql_exit
End Sub
conn是不是数据集的连接?
conn.ConnectionString = "provider=microsoft.jet.4.0;是什么意思?