VB 根据INI文件连接网络上的SQL2000

Question

[SQLSERVERDB]
SERVER=192.168.0.2
DBNAME=ggg
UID=sa
PWD=
[ASSIGNMENTNORULE]
RULE=1
[StartRunTime]
Minute =5
[space_time]
minutes=5
以上分别是什么意思啊？INI文件可以读取具体要怎么写连接语句,连接网络上的SQL2000数据库

Answer 1

用这个ini文件来填充你的sql连接字符串

Answer 2

    P_Connect.ConnectionString = "PROVIDER=MSDASQL;Driver={SQL Server};Server=192.168.0.2;uid=sa;pwd=;database=ggg;"

Answer 3

把ini文件读出后放入这几个字符串
strServer="192.168.0.2"
strUid="sa"
strPassword=""
strDbname="ggg"P_Connect.ConnectionString = "PROVIDER=MSDASQL;Driver={SQL Server};Server=" & strServer & ";uid=" & strUid & ";pwd=" & strPassword & ";database=" & strDbname & ";"

Answer 4

INI文件读取，写入控制，和例程
http://download.csdn.net/source/669094
http://download.csdn.net/source/672708

Answer 5

我做过的代码：
Private 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 LongPrivate Sub Form_Load()
     '读取BOMAI.INI配置
    Dim A As Long
    Dim T1 As String * 10
    Dim T2 As String * 10
    Dim T3 As String * 10
    Dim T4 As String * 10
    ''读取信息
    'T1 = Space$(10) ''事先定义读取值的字串宽度
    'T2 = Space$(10)
    'T3 = Space$(10)
   ' T4 = Space$(10)
    ''读取ABC.INI文件中TIP字段中START的值并打印出来
    ''当函数返回值为0时说明读取数据出错
    A = GetPrivateProfileString("sqldatabase", "computername", "", T1, 10, App.Path & "\bomai.ini")
    A = GetPrivateProfileString("sqldatabase", "username", "", T2, 10, App.Path & "\bomai.ini")
    A = GetPrivateProfileString("sqldatabase", "password", "", T3, 10, App.Path & "\bomai.ini")
    A = GetPrivateProfileString("sqldatabase", "databasename", "", T4, 10, App.Path & "\bomai.ini")
    If A = 0 Then MsgBox "找不到所需字段，请检查INI文件设置。"
    Text1 = T1
    Text2 = T2
    Text3 = T3
    Text4 = T4
    
    strComputerName = Text1.Text  '计算机名，本地可用Local
    strUserName = Text2.Text            '登录名.
    strPwd = Text3.Text
    strDBaseOne = Text4.Text     '数据库名称
    '连接数据库字符串，用于adodc
    strDatabaseConn = "Provider=SQLOLEDB.1;Persist Security Info=false;Password='" & strPwd & "';User ID='" & strUserName & "';Initial Catalog='" & strDBaseOne & "';Data Source='" & strComputerName & "'"End Sub