連接其他資料庫時,如何可以不用再輸入帳密

帖子: 20
主題: 5
精華: 0
積分: 61
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 台灣桃園
註冊時間: 2010-9-1
最後登錄: 2019-4-26

2^#

發表於 2012-2-20 15:32 | 只看該作者

我無法下載附件，你可以試試以下的方法

Const HOST$ = "xxx.xxx.xxx.xxx"  ' Server hosting the Oracle db
Const DBNAME$ = "主機名稱"
Const ORACLE_USER_NAME$ = "使用者名稱"
Const ORACLE_PASSWORD$ = "密碼"

連接時的語法
         ' Connect DB
         strConOracle = "Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)"
         strConOracle = strConOracle & "(HOST=" & HOST & ")(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=" & DBNAME
         strConOracle = strConOracle & "))); uid=" & ORACLE_USER_NAME & " ;pwd=" & ORACLE_PASSWORD & ";"
         Set oConOracle = CreateObject("ADODB.Connection")
         Set oRsOracle = CreateObject("ADODB.RecordSet")
         oConOracle.Open strConOracle

VANESSA

帖子: 100
主題: 37
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2007
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2010-8-11
最後登錄: 2024-3-12

論壇贊助勳章

3^#

發表於 2012-2-20 16:02 | 只看該作者

回復 2# doom834

謝謝您,但是我試沒有成功,如果我是連到這個資料庫http://100.00.000.000/HFMOfficeProvider/HFMOfficeProvider.aspx.
資料庫名稱:abcde
帳號:fghij
密碼:12345
那我該如何修改?

帖子: 20
主題: 5
精華: 0
積分: 61
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 台灣桃園
註冊時間: 2010-9-1
最後登錄: 2019-4-26

4^#

發表於 2012-2-20 17:00 | 只看該作者

理論上是降子改
Const HOST$ = "100.00.000.000"
Const DBNAME$ = "abcde"
Const ORACLE_USER_NAME$ = "fghij"
Const ORACLE_PASSWORD$ = "12345"

連接資料庫時：
         ' Connect DB
         strConOracle = "Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)"
         strConOracle = strConOracle & "(HOST=" & HOST & ")(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=" & DBNAME
         strConOracle = strConOracle & "))); uid=" & ORACLE_USER_NAME & " ;pwd=" & ORACLE_PASSWORD & ";"
         Set oConOracle = CreateObject("ADODB.Connection")
         Set oRsOracle = CreateObject("ADODB.RecordSet")
         oConOracle.Open strConOracle

         Set oRsOracle = oConOracle.Execute(My_SQL) 'My_SQL請自行定義你的sql

         For I = 1 To oRsOracle.Fields.Count

            Sheets("TEST").Cells(1, I).Value = oRsOracle.Fields(I - 1).Name

         Next I

         Do While Not oRsOracle.EOF

            Sheets("TEST").Cells(2, 1).CopyFromRecordset oRsOracle

         Loop

VANESSA

帖子: 100
主題: 37
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2007
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2010-8-11
最後登錄: 2024-3-12

論壇贊助勳章

5^#

發表於 2012-2-21 11:55 | 只看該作者

回復 4# doom834

要吸收這個程式的意思,對我而言有點困難需要一些時間,先謝謝您的幫忙

帖子: 20
主題: 5
精華: 0
積分: 61
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 台灣桃園
註冊時間: 2010-9-1
最後登錄: 2019-4-26

6^#

發表於 2012-2-21 17:19 | 只看該作者

提醒你一下，我這個連接的資料庫是Oracle的方式，
若你連接的資料庫是access或SQL Server，那寫法可能要有所變更，
例如用連接access則要改成

連接資料庫時：
' Connect DB
Dim My_con As New ADODB.Connection
Dim My_set As ADODB.Recordset

My_FileName = "aaa.mdb" '請自行輸入你access的檔案名稱
My_con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\" & My_FileName & ";"
My_SQL = "select * from test_table" 'My_SQL請自行定義你的sqlㄝ，例如：My_SQL= "select * from XXXX(此為你的資料表名稱)
Set My_set = My_con.Execute(My_SQL)
For I = 1 To My_set.Fields.Count
Cells(1, I).Value = My_set.Fields(I - 1).Name
Next I

Do While Not My_set.EOF
Cells(2, 1).CopyFromRecordset My_set
Loop