vb 自定义函数怎么定义和调用

来源：百度知道 编辑：UC知道 时间：2024/06/10 12:48:04
Function conn() As Boolean
Dim adoconn As adocb.Connection
Set adoconn = New ADODB.Connection
t1 = GetFromIni("database", "server", ".\\thjl.ini")
Debug.Print t1
t2 = GetFromIni("database", "user", ".\\thjl.ini")
t3 = GetFromIni("database", "password", ".\\thjl.ini")
t4 = GetFromIni("database", "data", ".\\thjl.ini")
constr = "Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog=" & t4 & ";Data Source=" & t1 & ""
adoconn.ConnectionString = constr
adoconn.CursorLocation = adUseClient
adoconn.Open constr, t2, t3
End Function

我定义的函数，VB连接sql，我定义的是不是有问题，该怎么调用呢

修改一下你的代码

改成
function conn() As adodb.connection
Dim adoconn As adocb.Connection
Set adoconn = New ADODB.Connection
t1 = GetFromIni("database", "server", ".\\thjl.ini")
Debug.Print t1
t2 = GetFromIni("database", "user", ".\\thjl.ini")
t3 = GetFromIni("database", "password", ".\\thjl.ini")
t4 = GetFromIni("database", "data", ".\\thjl.ini")
constr = "Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog=" & t4 & ";Data Source=" & t1 & ""
adoconn.ConnectionString = constr
adoconn.CursorLocation = adUseClient
adoconn.Open constr, t2, t3
conn = adoconn
End function

这样你可以在使用时如下
rs.open sql,conn
当然,你的代码还得改进,比如错误处理之类的.还有
你也可以做成 property ,这样用起来更形象