打包后出现的问题,请指教:

Question

怎么改变数据库连接的设置Provider=SQLOLEDB.1;Persist Security Info=False;Password=;User ID=sa;Initial Catalog=job;Data Source=server1
谢谢了!我要使data source属性重新指定.

Answer 1

1.放到ini文件中
2.使用odbc可以避免

Answer 2

放到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 LongPublic 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 IfEnd 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你做相应的更改就可以用了啊！
现在也是好用的！

Answer 3

我是用的SQL 数据库连接的数据控件

Answer 4

'这样就可以实现重新设置，你只要改动连接字符串即可
'假设你使用ADODB数据控件Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;Password=;User ID=sa;Initial Catalog=job;Data Source=server1"
    Adodc1.Recordset = "select * from 表"
    Adodc1.Refresh
    
End Sub