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插件開發，獲取後臺數據庫數據