作者a0813 (英九辣宝贝)
看板Visual_Basic
标题[VBA ] 连接ORACLE SQL读回来的中文变问号
时间Tue Apr 20 21:54:54 2021
大家好，最近想用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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1618926896.A.8C0.html
※ 编辑: a0813 (218.173.80.250 台湾), 04/20/2021 23:37:19
1F：→ Iories: 乱猜的 改成SELECT N'中文' 04/22 12:31
2F：→ a0813: 感谢I大，这样确实可以让中文显示，但因为有些情况需要去捞 04/22 14:42
3F：→ a0813: ALL_TAB_COMMENTS的栏位，请问当这个情形出现在栏位里的时 04/22 14:44
4F：→ a0813: 候有解吗@@? 04/22 14:44
5F：→ a0813: 查了一下找到UNISTR(栏位)，试过以後可行，再次感谢I大提供 04/22 14:54
6F：→ a0813: 方法 04/22 14:55