Office中国论坛/Access中国论坛

标题: 请教：关于ADO的问题？？ [打印本页]

作者: zhanguoru01 时间: 2004-10-7 22:41
标题: 请教：关于ADO的问题？？
请各位帮我看看，我想用ADO实现我程序DAO写的程序的功能，不知错现哪里，

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

[attach]7074[/attach]

作者: zhuyiwen 时间: 2004-10-8 06:31
修改

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 时间: 2004-10-8 22:52
标题: 我还有问题？？
感谢版主的回答，但能否请版主解释一下，万分感谢！！

作者: zhuyiwen 时间: 2004-10-9 06:49
' 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 时间: 2004-10-12 03:59
多谢版主！！不知版主能否推荐一些学习ADO方面的资料，请指教谢谢！！

作者: zhuyiwen 时间: 2004-10-12 05:33

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

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

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

作者: zhanguoru 时间: 2004-11-8 19:40
再请教版主：模糊查询的问题，多个字符用％，单个字符用什么（我以前用dao时是用*和?），请指教谢谢？？

作者: zhanguoru 时间: 2004-11-9 02:42
顶一下。。。

作者: zhanguoru 时间: 2004-11-9 17:54
顶一下。。。

作者: zhuyiwen 时间: 2004-11-10 05:22
多个字符用“％”，单个字符用“_”

作者: zhanguoru 时间: 2004-11-11 02:20
多谢您的指点！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)