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