# VB6 SP3 + SQL 6.5 = 乱码 ??

Posted by Koi on May 28, 1999 at 11:32:21:

使用版本 VB6 中文企业版 (SP3) + SQL Server 6.5 (SP5)

状况:

使用 ADO 2.1 开启资料库, 将资料填入 combobox, 结果资料内容变为乱码??
不知道大家有没有一样的情形??

Dim rs as New ADODB.Recordset
Dim sql$, sConn$

sql$ = "select u_id,u_name from users"
sConn$ = "Driver={SQL Server};Server=NTDB;Database=arco;UID=sa;PWD=;

rs.ActiveConnection = sConn$
rs.Source = sql$
rs.Open

Do While Not rs.EOF
cboUser.AddItem Trim$("" & rs(1))
cboUID.AddItem Trim$("" & rs(0)), cboUser.NewIndex
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

结果 cboUser 里面的中文变成乱码! 在此之前, 用 VB6 SP2 都好好的...

Follow Ups:

- Re: VB6 SP3 + SQL 6.5 = 乱码 ?? 陈春雨 23:28:32 5/28/99 (0)