为何paradox数据导入access中文名字等都变成乱码,用vb读出来也一样,如下:
Name
¹ùÔÆ´¨
ÁõÀò
ÉÛ¾´Á«
κº£Äþ
ÖÜ·¼¶ä
ÂíÑÞÁá
³ÂÐËÈÙ
不知何故,而用BrighiEye Editor打开的时候一切都正常,我的机器已经全部更新过,是否需要转换,还有在ultraedit10.0中如果在视图中选择OEM字符集的话,从access中粘贴过去的内容可以显示为:
---------------------
| Name |
---------------------
| 郭云川 |
---------------------
| 刘莉 |
---------------------
| 邵敬莲 |
---------------------
| 魏海宁 |
---------------------
| 周芳朵 |
---------------------
| 马艳玲 |
---------------------
| 陈兴荣 |
---------------------
请高手指教!
Name
¹ùÔÆ´¨
ÁõÀò
ÉÛ¾´Á«
κº£Äþ
ÖÜ·¼¶ä
ÂíÑÞÁá
³ÂÐËÈÙ
不知何故,而用BrighiEye Editor打开的时候一切都正常,我的机器已经全部更新过,是否需要转换,还有在ultraedit10.0中如果在视图中选择OEM字符集的话,从access中粘贴过去的内容可以显示为:
---------------------
| Name |
---------------------
| 郭云川 |
---------------------
| 刘莉 |
---------------------
| 邵敬莲 |
---------------------
| 魏海宁 |
---------------------
| 周芳朵 |
---------------------
| 马艳玲 |
---------------------
| 陈兴荣 |
---------------------
请高手指教!
这样,一定可以!!!
程序代码:
--------------------------------------------------------------------------
Dim adocon As New ADODB.Connection
Dim rst As New ADODB.Recordset
adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:;Extended Properties=Paradox 5.X"Query = "SELECT top 100 * from person"
Dim sOEM As String
Dim sANSI As String
rst.Open Query, adocon, adOpenStatic
Do While Not rst.EOF
Debug.Print rst("name") & rst("cardcode")
rst.MoveNext
Loop