请教：关于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

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不能关闭和消毁

zhuyiwen

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

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

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

zhuyiwen

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