EXCEL中如何去动态取SQL中的数据

Question

问题是这样的.SQL 数据库中有一张表记录了.物料相关信息.我想在EXCEL中,去查询取这张表中的信息.(如我在EXCEL中录入了一个名称.双击后自动去用这个名称去查询SQL数据库.得到相应的,物料编码,物料规格等.分别写入到这个单元格的后面2个单元格.)
谁有思路.谢谢!

Answer 1

  sub getdata
    Dim cn As ADODB.Connection
    Dim re As ADODB.Recordset
    Dim cnstring As String
    Dim sql As String
    Set cn = New Connection
        cnstring = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\ADAM\ADAM_DataAccess\" & filename & ".mdb"
        cn.ConnectionString = cnstring
        cn.Open
        Set rs = New Recordset
            sql = "SELECT 物料编码,物料规格 FROM 表 where 名称 = ” & 你的单元格如 cell(m,n)
        rs.Open sql, cn, 3, 1
  
        cell(m+1,n).Clear
     
           cell(m+1,n).CopyFromRecordset rs
            rs.Close
            cn.Close
            Set rs = Nothing
            Set cn = Nothing
                  
End Sub

Answer 2

你可以设置一个按钮  选中名称的那个单元格，再按你的按钮，“你的单元格那里”改成Selection.Text

Answer 3

你可以设置一个按钮  选中名称的那个单元格，再按你的按钮运行这个sub，“你的单元格那里”改成Selection.Text

Answer 4

你还不如直接在VB里面操作SQL数据库,然后把结果输出到Excel. 代码基本是一样的.
否则你就得专门保存好这个表, 免得不小心删除了就麻烦了.