vb数据库中的ADODB.Recordset是什么意思
这是一个考勤管理系统模块的程序,看不懂数据库,普通VB教材上的数据库知识少的可怜,请高手解答一下PublicFunctiongetrs(ByValstrqueryAsSt...
这是一个考勤管理系统模块的程序,看不懂数据库,普通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;是什么意思? 展开
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;是什么意思? 展开
2个回答
展开全部
adodb是动态数据链接对象
recordset是adodb的一个子类
一般情况下我们定义:
dim
rst
as
new
adodb.recordset
以后直接用rst就可以了。
至于!,例
form1!text1.text
=
"空"
form1.text1.text
=
"空"
两句的效果是一样的。
rst!field("id")等价于rst.field("id")
但是不能用form1!text1!text="空"
recordset是adodb的一个子类
一般情况下我们定义:
dim
rst
as
new
adodb.recordset
以后直接用rst就可以了。
至于!,例
form1!text1.text
=
"空"
form1.text1.text
=
"空"
两句的效果是一样的。
rst!field("id")等价于rst.field("id")
但是不能用form1!text1!text="空"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询