[VBA ] 連接ORACLE SQL讀回來的中文變問號
大家好,最近想用EXCEL寫個VBA來連接公司的ORACLE SQL做為輔助工具
但發現只要是讀取系統的表
(像ALL_TAB_COMMENTS或在SELECT當中有用到CASE WHEN的部份,返回的中文就會變問號)
但如果是直接SELECT資料裡是中文的部份,卻又沒有問題
另外如果用EXCEL本身的外部資料來源來匯入的話,即使是有上述情形的SELECT,返回
的也是正確的中文,以下附上程式碼,想請教大家這可能是什麼問題,
以及該如何處理呢? 謝謝
Private Sub CommandButton1_Click()
Dim con As Object, com As Object, rec As Object
Set con = CreateObject("ADODB.Connection")
Set com = CreateObject("ADODB.Command")
Set rec = CreateObject("ADODB.Recordset")
On Error GoTo ADO_Err
'星號部分依實際設定自行修改, 即 ORACLE TNS 的設定
con.Open
"DSN=dbserver;UID=oradba;DBQ=***.***.***.***/**;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;"
& _
NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;MLD=0;ODA=F;STE=F;TSZ=8192;AST=FLOAT;NLS_LANG=TRADITIONAL
CHINESE_TAIWAN.AL32UTF8;"
With com
.ActiveConnection = con
.CommandType = 1 '1=adCmdText 4=adCmdStoredProc
.CommandText = Cells(1, 1)
'.CommandText = "SELECT '中文' FROM DUAL" '這樣會返回"??"
'.CommandText = "SELECT NAME FROM CUSTOMER_INFO" 這樣即使有中文也
可以正常顯示
End With
Debug.Print com.CommandText
Set rec = com.Execute
'整個複製到工作表
Range("A2:Z100000").ClearContents
Dim index As Integer
index = 1
For Each Item In rec.Fields
Cells(2, index) = Item.Name
index = index + 1
Next
Cells(3, 1).CopyFromRecordset rec
rec.Close: con.Close
1 Set con = Nothing: Set com = Nothing: Set rec = Nothing
Exit Sub
ADO_Err:
MsgBox Err & vbLf & Err.Description, 16
GoTo 1
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 218.173.80.250 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1618926896.A.8C0.html
※ 編輯: a0813 (218.173.80.250 臺灣), 04/20/2021 23:37:19
→
04/22 12:31,
3年前
, 1F
04/22 12:31, 1F
→
04/22 14:42,
3年前
, 2F
04/22 14:42, 2F
→
04/22 14:44,
3年前
, 3F
04/22 14:44, 3F
→
04/22 14:44,
3年前
, 4F
04/22 14:44, 4F
→
04/22 14:54,
3年前
, 5F
04/22 14:54, 5F
→
04/22 14:55,
3年前
, 6F
04/22 14:55, 6F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章