[VBA ] 連接ORACLE SQL讀回來的中文變問號

看板Visual_Basic作者 (英九辣寶貝)時間3年前 (2021/04/20 21:54), 3年前編輯推噓0(006)
留言6則, 2人參與, 3年前最新討論串1/1
大家好,最近想用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
亂猜的 改成SELECT N'中文'
04/22 12:31, 1F

04/22 14:42, 3年前 , 2F
感謝I大,這樣確實可以讓中文顯示,但因為有些情況需要去撈
04/22 14:42, 2F

04/22 14:44, 3年前 , 3F
ALL_TAB_COMMENTS的欄位,請問當這個情形出現在欄位裡的時
04/22 14:44, 3F

04/22 14:44, 3年前 , 4F
候有解嗎@@?
04/22 14:44, 4F

04/22 14:54, 3年前 , 5F
查了一下找到UNISTR(欄位),試過以後可行,再次感謝I大提供
04/22 14:54, 5F

04/22 14:55, 3年前 , 6F
方法
04/22 14:55, 6F
文章代碼(AID): #1WVjqmZ0 (Visual_Basic)
文章代碼(AID): #1WVjqmZ0 (Visual_Basic)