根据sheet表单元格物料编码查询出 库存数量

rendiule01

根据sheet表 用户在单元格A列输入物料代码，在B列 对应（从sql server 数据库 库存表 ）查询该物料代码的出 库存数量

盼盼198310

sql="select 库存数量 from 库存表 where 物料代码='"&range("a"&i)&"'"

rendiule01

盼盼198310 发表于 2023-2-5 10:43
sql="select 库存数量 from 库存表 where 物料代码='"&range("a"&i)&"'"

能否不要移动到b列，A列 knd_no代码输入完毕后直接查询出knd_name



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  i = Target.Row
If i > 2 And Range("A" & i) <> "" Then

Dim conn As Object, xRs As Object
    Set conn = CreateObject("ADODB.Connection")

    conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;UID=sa;PWD=密码;Initial Catalog=dataSQL;Data Source=192.168.1.1"
    Set xRs = CreateObject("ADODB.RecordSet")
    sSq1 = "Select KND_NAME from KND WHERE KND_NO='" & Range("A" & i) & "'"
    xRs.Open sSq1, conn, 1, 3

    Sheet1.Range("B" & i).CopyFromRecordset xRs
    xRs.Close
    conn.Close
    Set xRs = Nothing
    Set conn = Nothing

End If

End Sub

rendiule01

求大佬相助