运行时错误-2147217913数据类型MisMatch在条件表达式中 [英] run time error -2147217913 Data Type MisMatch in criteria experssion

问题描述

请帮助我????????????????????
我正在vb6.0中制作一个软件，它给出了错误数据类型在标准表达式中不匹配我正在制作一个过滤器表单，其中用户输入了Recpt日期，当我在文本框中输入日期范围时，则重复No它给出了错误-条件表达式中的数据类型不匹配.
代码是:-
此
中的错误 rsrecord.Open fatchrecord，getcon，adOpenDynamic，adLockOptimistic

Please Help Me ????????????????????
i am making a software in vb6.0 it gives a error data type mismatch in criteria experssion i am making a filter form in which user enter recpt date and and recpet no when i am enter date range in textbox it gives error -- data type mismatch in criteria experssion.
code is : -
error in this
rsrecord.Open fatchrecord, getcon, adOpenDynamic, adLockOptimistic

Public Sub getconnection()
Set getcon = New ADODB.Connection
getcon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DAK.mdb"
End Sub

Public Sub getrecord()
    getconnection
    getcon.Open
    Dim fatchrecord
    Set rsrecord = New ADODB.Recordset
    If Option4.Value = False And Option5.Value = False And Option6.Value = False And Option7.Value = False And Option8.Value = False And Option9.Value = False And Option10.Value = False And Option11.Value = False And Option12.Value = False And Option13.Value = False And Option14.Value = False And Option15.Value = False And Option16.Value = False Then
    MsgBox ("Please Select Any Option")
    Else

If Option6.Value = True Then
'        If Text3.Text = "" Or Text4.Text = "" Then
'            MsgBox ("Please Enter Date")
'            Exit Sub
'        Else
        fatchrecord = "SELECT DAK.RecptNo, DAK.RecptDt, DAK.Type, DAK.FromWhom, DAK.Name, DAK.Address, DAK.AddressTo, DAK.Sender, DAK.SenderNo, DAK.SenderDt, DAK.Subject, DAK.BriefCon, DAK.MarkTo, DAK.MarkDt, DAK.Remarks, DAK.Action, DAK.tdate, Type.Type_desc, From.From_Desc, From.From_Desig, From.From_Add, MarkTo.Mark_desc, Action.Action FROM (((DAK INNER JOIN [Action] ON DAK.Action = Action.ActionId) INNER JOIN MarkTo ON DAK.MarkTo = MarkTo.Mark_id) INNER JOIN Type ON DAK.Type = Type.Type_id) INNER JOIN [From] ON DAK.FromWhom = From.From_id Where Dak.RecptDt>=""" & CDate(Text3.Text) & """ and Dak.RecptDt<=""" & CDate(Text4.Text) & """"
'        End If
    End If

If Option7.Value = True Then
fatchrecord = "SELECT DAK.RecptNo, DAK.RecptDt, DAK.Type, DAK.FromWhom, DAK.Name, DAK.Address, DAK.AddressTo, DAK.Sender, DAK.SenderNo, DAK.SenderDt, DAK.Subject, DAK.BriefCon, DAK.MarkTo, DAK.MarkDt, DAK.Remarks, DAK.Action, DAK.tdate, Type.Type_desc, From.From_Desc, From.From_Desig, From.From_Add, MarkTo.Mark_desc, Action.Action FROM (((DAK INNER JOIN [Action] ON DAK.Action = Action.ActionId) INNER JOIN MarkTo ON DAK.MarkTo = MarkTo.Mark_id) INNER JOIN Type ON DAK.Type = Type.Type_id) INNER JOIN [From] ON DAK.FromWhom = From.From_id Where DAK.FromWhom='" & Mid(Combo2.Text, 1, 5) & "'"
End If

Set rsrecord.ActiveConnection = getcon
 rsrecord.Open fatchrecord, getcon, adOpenDynamic, adLockOptimistic
 On Error Resume Next
   
rsrecord.MoveLast
' rsrecord.MoveLast

请先生提供此错误的解决方法
对于ACCESS数据库，它紧急

Please Sir Give Solution of this Error
it urgent

推荐答案

您应该使用#符号

例如:

for ACCESS database you should use #symbol

ex:

SELECT * FROM tblEmpDetails WHERE BirthDate = #01/01/1986#

因此请检查如果Option6.Value = True然后
让我知道您是否仍然遇到错误

so check the section If Option6.Value = True Then
let me know if you still facing the error

这篇关于运行时错误-2147217913数据类型MisMatch在条件表达式中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！