如何用vba function代替vlookup

kinlog

请教老师们，vlookup似乎只能在excel表里面查找，如果数据放在sql的表内 我该如何去vlookup呢？
我想是不是可以vba function代替vlookup呢

microyip

你这个问题是不是问错了？是不是应该问，如何读取SQL啊？

kinlog

microyip 发表于 2018-7-23 11:35
你这个问题是不是问错了？是不是应该问，如何读取SQL啊？

Public Function Myvlookup(inn)
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
        cnn.Open "Provider=sqloledb;Server=192.168.1.10;Database=student;Uid=sa;Pwd=123;"
    sql = "select * from st_serial where Code='" & inn & "'"
    Set rs = cnn.Execute(sql)
    Myvlookup = rs.Fields(2).Value
    cnn.Close
    Set cnn = Nothing
End Function

我这样写不行

microyip

kinlog 发表于 2018-7-23 15:30
Public Function Myvlookup(inn)
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

这个，你不如先教我一下，如何凭空想象一下你的数据库以及里面的数据？

kinlog

microyip 发表于 2018-7-23 16:46
这个，你不如先教我一下，如何凭空想象一下你的数据库以及里面的数据？

对对对，就假设有一个数据可库“student”里面有一个“st_serial”表里面有“Code”这个唯一的内容大概“AA-05131401”这样的和后面“姓名”、“学号”、“年龄”、“籍贯”等等字段，
然后在excel里面A列会录入这个Code的数据，希望在后面可以匹配出姓名籍贯

microyip

kinlog 发表于 2018-7-23 17:11
对对对，就假设有一个数据可库“student”里面有一个“st_serial”表里面有“Code”这个唯一的内容大概“ ...

我去，还真“教”啊，你没明白我的意思，没有实际数据库，具体什么情况根本无法预料，好吗？

microyip

要么试试把

1. Myvlookup = rs.Fields(2).Value

复制代码

改成

1. If Not (rs.EOF and rs.BOF) then  Myvlookup = rs.GetRows

复制代码

kinlog

microyip 发表于 2018-7-23 17:18
要么试试把

改成

哈哈哈哈哈，谢谢，你写的是可以
原来我自己写的也可以，
就是反应慢
谢谢