ACCESS代码中的类型不匹配问题

ty_1029

早上问了个SQL语句的转换,按照提示,做了一下,出现类型不匹配的问题,查了一下,都是字符串的用"  ",数据性的用' ',可我改来改去,还是不可以,为了方便期间,我把条件放成3个,其中两个字段是文本类型,两个是数字类型(可以看表的类型设置)
请大家帮个忙,要求是按照附件上的表和窗体，能够按照查询中的"查询1"中的条件,该写在窗体"自助查询"中的确定按纽事件中,将结果显示在LISTVIEW中去,详细的请看附件.
其中自助查询子窗体是我用子窗体实现的,我现在想用LISTVIEW来实现这个功能,拜托各位了~~~

1\原来的帖子: http://www.office-cn.net/vvb/thread-68398-1-1.html

2\

ty_1029

请大家帮我该一下自助查询窗体中的代码~~

ACMAIN_CHM

加了一个函数

Private Function sChkWhere(sWhere As String) As String
    If sWhere = "" Then
        sChkWhere = sWhere & " where"
    Else
        sChkWhere = sWhere & " and"
    End If
End Function

查询按钮内代码如下

Private Sub 查询_Click()
    Dim sSQL As String
    sSQL = "select tnoid, tnam, dgnum from DBBackup"
   
    Dim sWhere As String
    If Not IsNull(Me.Text1.Value) And Not Trim(Me.Text1.Value) = "" Then
        sWhere = sChkWhere(sWhere) & " tnoid like '%" & Me.Text1.Value & "%'"
    End If
   
    If Not IsNull(Me.Text2.Value) And Not Trim(Me.Text2.Value) = "" Then
        sWhere = sChkWhere(sWhere) & " tnam like '%" & Me.Text2.Value & "%'"
    End If
   
    If Not IsNull(Me.Text5.Value) And Not Trim(Me.Text5.Value) = "" Then
        sWhere = sChkWhere(sWhere) & " dgnum >= " & Me.Text5.Value
    End If
   
    If Not IsNull(Me.Text6.Value) And Not Trim(Me.Text6.Value) = "" Then
        sWhere = sChkWhere(sWhere) & " dgnum <= " & Me.Text5.Value
    End If
   
    sSQL = sSQL & sWhere
   
    Debug.Print sSQL
    ListView1.ListItems.Clear
   
    Dim rs As New ADODB.Recordset
    Dim itemX
   
    rs.Open sSQL, CurrentProject.Connection
    Do While Not rs.EOF
        Set itemX = ListView1.ListItems.Add()
        itemX.Text = rs!tnoid
        itemX.SubItems(1) = rs!tnam
   
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
End Sub



******************
*  一切皆有可能  *
******************
同一贴子不回复第二次
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

ty_1029

非常感谢ACMAIN_CHM 的热情帮助~~

不知道有没有好的办法和方法可以复制或导出LISTVIEW中显示的数据啊~

期待~~~

koutx

3楼已给出准确方案，偶帮你将样库改了一下，虽方法有异但已通过。既然已作好了就发给你参考吧。
Listview中的数据不就是Recordset中的吗？怎么导出就不是问题了。

ty_1029

3楼已给出准确方案，偶帮你将样库改了一下，虽方法有异但已通过。既然已作好了就发给你参考吧。
Listview中的数据不就是Recordset中的吗？怎么导出就不是问题了。
34883
koutx 发表于 2009-2-6 18:01

能明示吗?
小弟菜的很,不好意思啊,呵呵~~

顺便问一下,我自己没有测试,用这样的方式查询数据速度快,还是利用子窗体那样速度快啊~~~

koutx

如欲导出为Excel，可搜索论坛相应贴子，有详细样本。至于哪个快，应该是子窗体莫属吧。