请教：关于ADO的问题？？

zhanguoru01

请各位帮我看看，我想用ADO实现我程序DAO写的程序的功能，不知错现哪里，

两个产生结果为什么不一样，我对ADO还不太熟悉，请多指教谢谢！！

zhuyiwen

修改rivate Sub Requisition_Click()

    Dim Con1 As ADODB.Connection

    Dim Rec1 As ADODB.Recordset

   

    Dim RequisitionCode As String

    Dim tkSQL As String

   

'    Set Con1 = New Connection

    Set Rec1 = New Recordset

   

    Set Con1 = CurrentProject.Connection

   

    RequisitionCode = Format(Date, "YYYY") & Format(Date, "mm") & Format(Date, "dd")

    tkSQL = "SELECT TblRequisition.ChrRequisitionCode " & _

            "FROM TblRequisition " & _

            "WHERE (((TblRequisition.ChrRequisitionCode) Like """ & RequisitionCode & "%" & """)) " & _

            "ORDER BY TblRequisition.ChrRequisitionCode DESC;"

    Rec1.Open tkSQL, Con1, adOpenKeyset, adLockOptimistic

   

    If Rec1.RecordCount < 1 Then

        RequisitionCode = RequisitionCode & "01"

    Else

        RequisitionCode = RequisitionCode & Format(Right(Rec1![ChrrequisitionCode], 2) + 1, "0#")

    End If

    Me.CboRequisitionCode = RequisitionCode

   

'    Con1.Close

'    Set Con1 = Nothing

               

End Sub

zhanguoru01

感谢版主的回答，但能否请版主解释一下，万分感谢！！

zhuyiwen

'    Set Con1 = New Connection

因为currentproject.connection本来就存在, 所以con1不需要新建"%"

Jet 4.0引擎的ADO解析沿用SQL-92语法Rec1.Open tkSQL, Con1, adOpenKeyset, adLockOptimistic

ADO Recordset键集才能求得记录的RecordCount'    Con1.Close

'    Set Con1 = Nothing

引用的CurrentProject.Connection不能关闭和消毁

zhanguoru01

多谢版主！！不知版主能否推荐一些学习ADO方面的资料，请指教谢谢！！

zhuyiwen

以下是引用zhanguoru01在2004-10-11 19:59:13的发言：

多谢版主！！不知版主能否推荐一些学习ADO方面的资料，请指教谢谢！！

在ACCESS的帮助中, 有详细的ADO方面在资料

zhanguoru

再请教版主：模糊查询的问题，多个字符用％，单个字符用什么（我以前用dao时是用*和?），请指教谢谢？？

zhanguoru

顶一下。。。

zhanguoru

顶一下。。。

zhuyiwen

多个字符用“％”，单个字符用“_”