您的位置：程序门 -> vb -> 基础类



请帮我看一段代码,谢谢了!


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


请帮我看一段代码,谢谢了!
发表于：2007-05-12 10:47:33 楼主
'点查询按钮
private   sub   cmd1_click（)
        dim   strsql                     as   string
        dim   conn                         as   new   adodb.connection
        dim   rs                             as   new   adodb.recordset
        strsql   =   "select   顾客财产一览表.[料号],[日期],[客户名称],[品名],[经手人],[保管人],[是否归还],[预计归还日期],[实际归还日期],[归还人],[备注],顾客财产转出登记表.[转出人],[转出单位],[联系人],[联系人电话],[预计转回日期],[实际转回日期],[接受人]   from   顾客财产一览表,顾客财产转出登记表   where   [料号]   =   ' "   &   text22.text   &   " ' "
        if   connectdb（conn,   gstrconn,   60)   <>   vbtrue   then   exit   sub
       
        rs.open   strsql,   conn,   adopenstatic
        if   not   rs.eof   then
                'text28.text   =   rs.fields（0)
                text28.text   =   rs.fields（1)
                text26.text   =   rs.fields（2)
                text25.text   =   rs.fields（3)
                text36.text   =   rs.fields（4)
                text31.text   =   rs.fields（5)
                text27.text   =   rs.fields（6)
                text32.text   =   rs.fields（7)
                text37.text   =   rs.fields（8)
                text38.text   =   rs.fields（9)
                text24.text   =   rs.fields（10)
                text29.text   =   rs.fields（11)
                text34.text   =   rs.fields（12)
                text35.text   =   rs.fields（13)
                text40.text   =   rs.fields（14)
                text33.text   =   rs.fields（15)
                text39.text   =   rs.fields（16)
                text30.text   =   rs.fields（17)
        else
        msgbox   "没有您要的记录！ ",   vbokonly   +   vbinformation,   "注意 "
        end   if
        rs.close
        set   conn   =   nothing
end   sub
这是要查询两个表，可是我不知道那里错了。请高手指教~！
发表于：2007-05-12 11:16:411楼 得分:0
不清不楚！
那里错了呢？出了什么错了呢？
问问题要说清楚啊！！
发表于：2007-05-12 17:29:032楼 得分:0
该回复于2007-12-28 18:04:11被管理员或版主删除
发表于：2007-05-12 20:10:183楼 得分:0
strsql   =   "select   顾客财产一览表.[料号],[日期],[客户名称],[品名],[经手人],[保管人],[是否归还],[预计归还日期],[实际归还日期],[归还人],[备注],顾客财产转出登记表.[转出人],[转出单位],[联系人],[联系人电话],[预计转回日期],[实际转回日期],[接受人]   from   顾客财产一览表,顾客财产转出登记表   where   [料号]   =   ' "   &   text22.text   &   " ' "
这条sql语句有问题,你要查二个表,那么这二个表之间会一个连接条件,   就是顾客财产一览表与顾客财产转出登记表   这二个表之间应该有一个字段去连接,才能进行查询,不然系统不知道应该怎样去查询另一个对应的是哪几条数据
发表于：2007-05-12 20:32:174楼 得分:0
不清不楚！
那里错了呢？出了什么错了呢？
问问题要说清楚啊！！
发表于：2007-05-12 21:48:325楼 得分:0
顾客财产一览表.[料号]   应该是这样写吧   [顾客财产一览表.料号]     后面的也是
还有这两个表要有一个关系，比如   ...   where   顾客财产一览表.userid   =   顾客财产转出登记表.id     ...

发表于：2007-05-13 08:41:556楼 得分:0
该回复于2007-12-28 18:04:11被管理员或版主删除
发表于：2007-05-13 12:36:107楼 得分:0
该回复于2007-12-28 18:04:11被管理员或版主删除

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击