自定义连接字符串

最新推荐文章于 2024-03-29 12:07:46 发布

wsd309

最新推荐文章于 2024-03-29 12:07:46 发布

阅读量1.3k

点赞数

文章标签： string oracle function microsoft server integer

本文链接：https://blog.csdn.net/wsd309/article/details/272846

版权

放到INI文件里！
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 Long

Public Function FG_GetPrivateProfileString( _
                                          ByRef StrSection As String, _
                                          ByRef StrEntry As String _
                                          ) As String

    Dim StrReturnedString    As String * 255
    Dim IntRet               As Integer
    Dim StrFileName          As String



    If Trim(StrSection) = "" Or Trim(StrEntry) = "" Then
        Exit Function
    End If
    StrFileName = "/Stock.ini"
    IntRet = GetPrivateProfileString( _
                StrSection, StrEntry, _
                "Default", _
                StrReturnedString, 255, App.Path & StrFileName)

    If IntRet <> 0 Then
        FG_GetPrivateProfileString = Left(StrReturnedString, IntRet)
    End If

End Function

连接字符串
lstrConnect = "DRIVER={microsoft odbc for oracle};" & _
                  "UID=" & FG_GetPrivateProfileString("ORACLE", "uid") & ";" & _
                  "PWD=" & FG_GetPrivateProfileString("ORACLE", "pwd") & ";" & _
                  "SERVER=" & FG_GetPrivateProfileString("ORACLE", "server") & ""
Stock.ini文件中的内容！
[ORACLE]
uid=a
pwd=a
server=b