程式碼如下
Dim strSQL As String
Set Conn = New ADODB.Connection
Conn.Open "driver=Microsoft Dbase Driver(*.dbf);dbq=e:\wind\data"
strSQL = "SELECT C1,C3,C8,C4 FROM cdata"
Set rsBasic = New ADODB.Recordset
rsBasic.Open strSQL, Conn, adOpenKeyset, adLockReadOnly
可是所有中文取出後皆變成亂碼,數字則正常
使用 Data Control 取出就不會變亂碼
好心人 救救我吧
Dim strSQL As String
Set Conn = New ADODB.Connection
Conn.Open "driver=Microsoft Dbase Driver(*.dbf);dbq=e:\wind\data"
strSQL = "SELECT C1,C3,C8,C4 FROM cdata"
Set rsBasic = New ADODB.Recordset
rsBasic.Open strSQL, Conn, adOpenKeyset, adLockReadOnly
可是所有中文取出後皆變成亂碼,數字則正常
使用 Data Control 取出就不會變亂碼
好心人 救救我吧
全站熱搜
留言列表