VBA创建数库连接时如何解决中文字段乱码问题

Monicazhang

我用下面创建了一个数据库连接,但是连接表的中文字段是乱码,请问有什么办法可以解决吗?
    Function autocheck1()
              Dim tb As TableDef
              Dim DB  As Database
              Set DB = CurrentDb
              '更新表的连接串
              For Each tb In DB.TableDefs
                      If tb.Connect Like "*loc_rpt*" Then              '判断是否为目标连接表
                          tb.Connect = "ODBC;DRIVER=SQL Server;SERVER=23.156.108.57;DATABASE=xxx;Trusted_Connection=no;UID=xxx;PWD=xxx;"
                          tb.RefreshLink
                      End If
              Next
    End Function

zhaozyuan

暂时还没有碰到过

Monicazhang

问题解决了,加一个AutoTranslate=no就可了

gtxing

Monicazhang 发表于 2009-12-25 13:39
问题解决了,加一个AutoTranslate=no就可了

楼主，AutoTranslate=no是在哪里加，我也遇到了同个问题

jack5d

AutoTranslate 只是做編碼自動設為windows當前語系,
無法解決簡繁之間轉換問題的