vb里用INI配置文件，怎么连数据库呀，文件格式和连接代码该怎么写，给个例子

[gh502]

vb里用INI配置文件，怎么连数据库呀，文件格式和连接代码该怎么写，给个例子

[ygrobin]

'定义打开连接函数，如打开成功返回0值,此函数仅打开SQL数据库
Public Function OpenConnection(BaseName As String, UName As String, UPass As String, _
Conn As Connection) As Boolean

Set Conn = New ADODB.Connection

strConnstring = "driver={SQL Server};" & _
"server=" & 服务器名 & ";uid=" & 用户名 & ";pwd=" &密码 & _
";database=数据库名称"
Conn.ConnectionString = strConnstring
Conn.ConnectionTimeout = 10

'test = Conn.ConnectionString
On Error GoTo errHandler
OpenConnection = False
Conn.Open strConnstring, UName, UPass
OpenConnection = True

Exit Function
errHandler:
Select Case Err.Number
Case -2147467259
MsgBox "数据库服务器暂停服务，请稍后再试！", vbCritical
OpenConnection = False
Case Else
MsgBox Err.Description & vbCr & "错误号：" & Err.Number, vbCritical + vbOKOnly
OpenConnection = False
End Select
End Function

[lxcc]

http://www.china-askpro.com/msg10/qa40.shtml