怎样通过INI与数据库连接！
怎样通过INI与数据库连接！怎样通过INI与数据库连接！怎样通过INI与数据库连接！怎样通过INI与数据库连接！怎样通过INI与数据库连接！ 问题点数：20、回复次数：6Top
1 楼Freshmen007_Bug（）回复于 2005-08-04 16:33:46 得分 0
把INI当作TXT文件处理即可。Top
2 楼niitwxm（不是我的错）回复于 2005-08-04 16:42:58 得分 0
麻烦你说清一点，文本文件怎麽弄Top
3 楼cugbqqinying（晨曦）回复于 2005-08-04 16:46:02 得分 0
用readproperties()吧！！！查查msdn吧！！Top
4 楼Cais_c（菜鸟.阿才）回复于 2005-08-10 09:24:21 得分 0
建立个ini 文件
内容如：
[SQL]
SQL Server= (local)
Default DataBase=database
sql_uid=sa
uid_pwd=sa
然后在程序里比如form_load的时候读取上面这几个值。
SQLsrv <== (local)
SQLdbs <== database
SQLuid <== sa
SQLupw <== sa
Set cn = New ADODB.Connection '连接数据库
cn.ConnectionString = "Provider=SQLOLEDB;Data Source=" & SQLsrv & ";Initial Catalog=" & SQLdbs & ";User Id=" & SQLuid & ";Password=" & SQLupw & ";"
cn.Open
------------------------
以上为 sql 数据库的连接.
Top
5 楼qybao（阿宝）回复于 2005-08-10 09:39:05 得分 0
我估计楼主是不知道怎么读取ini吧
声明windows api
'----------------------------------------------------------------------------------------
' Windows API
'----------------------------------------------------------------------------------------
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String _
) As Long
Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal nDefault As Long, _
ByVal lpFileName As String _
) As Long
可以这样调用
Const MaxLen as long = 1024
Dim strBuffer as string
Dim lngLen as long
strBuffer = Space$(MaxLen)
lngLen = GetPrivateProfileString(strSectionName, strKeyName, strDefaultValue, strBuffer, MaxLen, strIniFileFullPath)
假设ini文件
[SQL]
SQL Server= (local)
Default DataBase=database
sql_uid=sa
uid_pwd=sa
那么
strSectionName = "SQL"
strKeyName = "Default DataBase" '等等
strDefaultValue 一般设置为空字符串""
strIniFileFullPath 为ini文件的路径
楼主自己参考参考msdn
Top
6 楼frankwong（黄梓钿）回复于 2005-08-10 10:30:35 得分 0
保存在注册表最好!只要两个语句就可以
savesetting '写入注册表
getsetting '从注册表读出
具体参考msdnTop
