从数据库取出的记录是乱码，怎么办

FLY000

mysql数据库的默认编码是latin，QTP连接数据库从中取出的记录中文显示为乱码；
在浏览器上设置编码方式为UTF-8，可以数据表记录中的中文字符可以正常显示；

我试过了如下方法都行不通：
1. 修改数据库的编码为utf-8，取出的记录仍然是中文显示为乱码
2. 创建数据库，设置编码为utf-8，导入数据文件，仍然中文显示为乱码
3. 在QTP中将连接数据库取出的值转换为utf-8编码，转化后中文乱码变成其他乱码

附件是需要转换编码的文件

RecordString = ConvertTo(txtPath,cString,"utf-8")

1. 
   
2. Function ConvertTo(FileUrl,ConvertString,CharSet)
   
3.    Call WriteToFile(FileUrl,ConvertString,CharSet)
   
4.    cString= ReadFile(FileUrl,CharSet)
   
5.    ConvertTo = cString
   
6. End Function
   

复制代码

1. 
   
2. Function ReadFile(FileUrl, CharSet)  
   
3.     Dim Str  
   
4.     Set stm = CreateObject("Adodb.Stream")  
   
5.     stm.Type = 2  
   
6.     stm.mode = 3  
   
7.     stm.charset = CharSet  
   
8.     stm.Open  
   
9.     stm.loadfromfile FileUrl  
   
10.     Str = stm.readtext  
    
11.     stm.Close  
    
12.     Set stm = Nothing  
    
13.     ReadFile = Str  
    
14. End Function
    

复制代码

1. 
   
2. Function WriteToFile (FileUrl, Str, CharSet)  
   
3.         Dim fso,f
   
4.         Set fso = CreateObject("Scripting.FileSystemObject")
   
5.    If Not fso.FileExists(FileUrl) Then
   
6.                 Set f = fso.CreateTextFile(FileUrl)
   
7.         Else
   
8.                 Set f = fso.OpenTextFile(FileUrl,8)
   
9.                 f.Close
   
10.                 Set f = nothing
    
11.         End If
    
12. 
    
13.     Set stm = CreateObject("Adodb.Stream")  
    
14.     stm.Type = 2  
    
15.     stm.mode = 3  
    
16.     stm.charset = CharSet  
    
17.     stm.Open  
    
18.     stm.WriteText Str  
    
19.     stm.SaveToFile FileUrl, 2  
    
20.     stm.flush  
    
21.     stm.Close  
    
22.     Set stm = Nothing  
    
23. End Function
    

复制代码

17800455

我想问一下,你用ADODB.Streame写文件

与fso 写文件.

在功能实现上有什么差别吗?

用fso做不到吗?

你的问题,与数据库编码无关,是你写文件与读文件的问题.

FLY000

我想问一下,你用ADODB.Streame写文件

与fso 写文件.

在功能实现上有什么差别吗?

用fso做不到吗?
...
17800455 发表于 2011-6-14 09:16

    ADODB.Streame写文件 可以设置文件的编码stm.charset = CharSet，也就是通过这个方法写和读来实现将原始的latin编码的字符转换为utf-8的编码

FLY000

这个帖子也是讲的编码转换的问题
http://bbs.51testing.com/thread-145790-1-2.html