我想实现用sub过程call调用数据库

主题：我想实现用sub过程call调用数据库

peterliu19 [专家分：0] 发布于 2008-04-18 12:36:00

大家帮帮忙啊,我想实现用sub过程call调用数据库
在工具栏数组中
Case Is ="frist"
     Call First
   我如何在sub过程中调用这个啊
Public Sub displayProducts()
cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\db\db1.mdb;"
    cn.Open

    Dim rs As New ADODB.Recordset
    sql = "select top 1 * from 入库单"
    rs.Open sql, cn
        lrtext(0).Text = rs.Fields("入库日期")
        lrtext(3).Text = rs.Fields("仓库")
        lrtext(6).Text = rs.Fields("入库类别")
        lrtext(9).Text = rs.Fields("业务员")
        lrtext(14).Text = rs.Fields("订单号")
        lrtext(1).Text = rs.Fields("采购类型")
        lrtext(4).Text = rs.Fields("供应商")
        lrtext(7).Text = rs.Fields("部门")
        lrtext(10).Text = rs.Fields("保管人")
        lrtext(13).Text = rs.Fields("采购计划号")
        lrtext(2).Text = rs.Fields("入库单号")
        lrtext(5).Text = rs.Fields("收料通知单号")
        lrtext(8).Text = rs.Fields("票据类型")
        lrtext(11).Text = rs.Fields("验收人")
        lrtext(12).Text = rs.Fields("备注")
        i = rs.Fields("id")
    rs.Close

本帖地址： http://bbs.pfan.cn/post/273431.html

回复列表（共5个回复）

沙发

zhanghanyn [专家分：220] 发布于 2008-04-18 16:44:00

没看明白,你要在什么条件下调用啊?
在sub 里直接 call 函数名(参数) 就可以了啊

板凳

peterliu19 [专家分：0] 发布于 2008-04-19 12:44:00

我想在Sub过程中实现下面的数组调用,不会定义..
Select Case Button.Key
          Case "ymsz"                                          '页面设置
              Dyymctbl.Show 1
          Case "yl"                                            '预览
             If Fun_Drfrmyxxpd Then Call bbyl(True)
          Case "dy"                                            '打印
             If Fun_Drfrmyxxpd Then Call bbyl(False)
          Case "xz"                                            '新增
             Call Sub_AddBill
          Case "xg"                                            '修改
             Call Sub_EditBill
          Case "sc"                                            '删除
             Call Sub_DeleteBill
          Case "zh"                                            '增行
             Call zjlrfl
          Case "sh"                                            '删行
             Call Scdqfl
          Case "bc"                                            '保存
             If Fun_Drfrmyxxpd Then Call Sub_SaveBill
          Case "fq"                                            '放弃
             Call Sub_AbandonBill
          Case "cx"                                            '查询
             Call Sub_QueryBill
          Case "first"                                         '首张
             Call Sub_First
          Case "prev"                                          '上张
             Call Sub_Prev
          Case "next"                                          '下张
             Call Sub_next
          Case "last"                                          '末张
             Call Sub_Last
          Case "shen"                                          '审核
             Call Sub_Shen
          Case "qq"                                            '弃审
             Call Sub_Qq
          Case "qs"                                            '全审
             Call Sub_Qs
          Case "qi"                                            '全弃
             Call Sub_Qi
          Case "bz"                                            '帮助
             Call F1bz
          Case "fh"                                            '退出
             Unload Me
       End Select

3 楼

zhanghanyn [专家分：220] 发布于 2008-04-19 15:54:00

private Function ButtonKey_Set(button1 as object)
    Select Case Button1.Key
            ...
            ... '其他都一样
end Function

调用的时候  call buttonkey_set(button)

4 楼

peterliu19 [专家分：0] 发布于 2008-04-21 12:11:00

谢谢你拉,我给你10分拉,但你还是不明白我的意思拉.. 我要调用数据库,这样吧,我不管我写的垃圾代码拉,你帮我写一个在Sub中调用数据库的代码就行,大体意思是在窗体,或者控件中调用Sub过程中的数据库.

5 楼

zhanghanyn [专家分：220] 发布于 2008-04-23 15:47:00

我还不不能完全明白你的意思,我先写一个,你看是不是你要的:

在模块里
public con as new ADODB.Connection
public con_str as string
Public Function ConSql()
    Con_Str = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=sa1;Initial Catalog=stock;Data Source=."
    Con.ConnectionString = Con_Str
    Con.ConnectionTimeout = 4
    Con.CursorLocation = adUseClient
    Con.Open
End Function

调用的时候:
private sub command_click()
   call consql
end sub

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：我想实现用sub过程call调用数据库

回复列表（共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：我想实现用sub过程call调用数据库

回复列表 （共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共5个回复）