VB.net编程进行数据导入后出现乱码问题

'access 数据表表名：chexing

成都创新互联是一家集网站建设,湘东企业网站建设,湘东品牌网站建设,网站定制,湘东网站建设报价,网络营销,网络优化,湘东网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

'结构id、chexing、chang、kuan、gao

Dim id() As Long

Dim chang() As Long

Dim kuan() As Long

Dim gao() As Long

Private Sub Combo1_Click()

Text1.Text = chang(Combo1.ListIndex)

Text2.Text = kuan(Combo1.ListIndex)

Text3.Text = gao(Combo1.ListIndex)

End Sub

Private Sub Form_Load()

ReDim id(0)

ReDim chang(0)

ReDim kuan(0)

ReDim gao(0)

Combo1.Clear

db = "d:\chexing.mdb"

connstr = "DBQ=" + db + ";DefaultDir=;DRIVER="

Set conn = CreateObject("ADODB.Connection")

conn.Open connstr

websql = "select * from chexing order by id"

Set rs = CreateObject("adodb.recordset")

rs.Open websql, conn, 1, 1

If rs.EOF And rs.BOF Then

Else

Do While Not rs.EOF

Combo1.AddItem rs("chexing")

id(UBound(id)) = rs("id")

ReDim Preserve id(UBound(id) + 1)

chang(UBound(chang)) = rs("chang")

ReDim Preserve chang(UBound(chang) + 1)

kuan(UBound(kuan)) = rs("kuan")

ReDim Preserve kuan(UBound(kuan) + 1)

gao(UBound(gao)) = rs("gao")

ReDim Preserve gao(UBound(gao) + 1)

rs.MoveNext

Loop

End If

rs.Close

Set rs = Nothing

Set conn = Nothing

Combo1.ListIndex = 0

End Sub

vb.net乱码问题

设置网页编码，可以通过Web.Config 配置

具体看你原来的编码设置了

也可以单独给form设置编码

有关vb.net操作文档出现乱码问题

在使用streamReader和streamWriter的时候使用编码参数。

比如：dim sw As New StreamRriter("H:\编程资料\1.txt"，System.Text.Encoding.Default)

dim sr As New StreamWeader("H:\编程资料\2.txt"，true,System.Text.Encoding.Default)

vb.net 加载的新窗口 里面会有传值 数字没问题 中文是乱码 该如何 解决呢 谢谢

一般出现乱码都是在js裏面跳转到哪个类然後得到这个参数的时候中文乱码,有一个非常实用的法,在js你可以这样写:varurl=..;url=encodeURI(url);url=encodeURI(url);//最重要的部分,两次调用encodeURI,就是编码两次然後在跳转到url所在的类,获取这个参数的方法如下:Stringname=request.getParameter("name");name=URLDecoder.decode(name,"utf8");这样就能解决乱码问题了,这种方法还没遇到过不能解决的乱码,

分享文章：Vb.net语言乱码 c语言编程出现乱码的原因
网站网址：http://myzitong.com/article/hpipgs.html