首页 > 数据库技术 > 详细

金蝶VB插件开发,获取后台数据库数据

时间:2017-07-19 16:41:32      阅读:1073      评论:0      收藏:0      [点我收藏+]
Private Sub m_BillInterface_MenuBarClick(ByVal BOSTool As K3ClassEvents.BOSTool, Cancel As Boolean)
 
    TODO: 请在此处添加代码响应事件
 
 
    Select Case BOSTool.ToolName
    Case "test"                    //按钮为test的响应该事件
        此处添加处理test 菜单对象的 Click 事件
           Dim i%
        Dim cn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim strcn As String, strsql As String

        strcn = "provider=sqloledb;server=127.0.0.1;uid=sa;pwd=123;database=AIS20170629134733;"    //数据库相关信息

        strsql = "select FName from t_stock "          //查询金蝶后台数据表的SQL语句查询(仓库数据)

        cn.Open strcn  

        rs.Open strsql, cn


        MsgBox rs("FName")
    
        cn.Close
        
        


  
    Case Else
    End Select

End Sub

 

金蝶VB插件开发,获取后台数据库数据

原文:http://www.cnblogs.com/erph/p/7206486.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!