从ACCESS数据库提取数据

fansong

求助各位，在EXCEL中提取ACCESS数据库中的数据，谢谢，具体看附件，多谢各位相助！

zhaogang1960

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$2" Then Exit Sub
    If Target = "" Then Exit Sub
    Dim cnn As Object, rs As Object, SQL$
    If Len([a2]) >= 4 Then
        SQL = "Select 物品编码,物品名称,规格型号 from 编码库 where 物品编码 like '%" & [a2] & "%'"
    Else
        MsgBox "请输入物品编码的4位数以上！", vbInformation, "系统提示"
        Exit Sub
    End If
    Set cnn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\编码库.mdb"
    rs.Open SQL, cnn, 1, 3
    If rs.RecordCount Then
        ActiveSheet.UsedRange.Offset(2).ClearContents
        [a3].CopyFromRecordset rs
    Else
        MsgBox "没有查到！"
    End If
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

zhaogang1960

A2单元格内容变化时自动响应，输入物品编码到4位数以上，这里的4位可以是任何位置上，如果是从头开始需要修改代码，请看附件：
提取数据数据.rar (288.29 KB, 下载次数: 88)

2011-7-10 16:49 上传

点击文件名下载附件

fansong

谢谢，多谢

fansong

受教了，学习了

ndyzx

zhaogang1960 发表于 2011-7-10 16:49
A2单元格内容变化时自动响应，输入物品编码到4位数以上，这里的4位可以是任何位置上，如果是从头开始需要修 ...

学习了，做个记号。