请问怎么在数据库连接字符串里使用变量

来源:百度知道 编辑:UC知道 时间:2024/05/14 19:58:14
Public Sub DbConn()
cnnstring = "driver=mysql odbc 3.51 driver; server=127.0.0.1; database=czmoli; uid=root; pwd=root"
conn.CursorLocation = adUseClient
conn.Open cnnstring
End Sub

我想改成INI读取,但是不成功,谁能帮忙改下
Public Sub DbConn()
Dim Ret1 As String * 100
Dim Ret2 As String * 100
Dim Ret3 As String * 100
Dim Ret4 As String * 100
GetPrivateProfileString "Information", "Ipnum", "0", Ret1, 100, App.Path & "\ini.ini"
GetPrivateProfileString "Information", "Datab", "0", Ret2, 100, App.Path & "\ini.ini"
GetPrivateProfileString "Information", "Unid", "0", Ret3, 100, App.Path & "\ini.ini"
GetPrivateProfileString "Information", "Upass", "0", Ret4, 100, App.Path & "\ini.ini"
cnnstring = "driver=mysql odb

再问一次,为什么定义成定长字符串
Dim Ret4 As String * 100

直接定义
dim ret4 as string

cnnstring = "driver=mysql odbc 3.51 driver; server="& ret1 &"; database="& ret2 &"; uid="& ret3 &"; pwd="& ret4