Function conn() As BooleanDim adoconn As adocb.ConnectionSet adoconn = New ADODB.Connectiont1 = GetFromIni("database", "server", ".\\thjl.ini")Debug.Print t1t2 = 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 = constradoconn.CursorLocation = adUseClientadoconn.Open constr, t2, t3End Function我定義的函數，VB連接sql，我定義的是不是有問題，該怎么調用呢
2 回答
楊魅力
TA貢獻1811條經驗 獲得超6個贊
修改一下你的代碼
改成
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 ,這樣用起來更形象
添加回答
舉報
0/150
提交
取消