mohammad-gh
شنبه 20 فروردین 1390, 13:59 عصر
با سلام
چندی پیش با تلاش بسیار موفق شدم به صورت صحیح کارکترها رو به بانک MY sql واقع در روی هاست وارد کنم
با این کدها :
webcon.ConnectionString = "Server='" & iphost.Text & "';Database='" & databasehost.Text & "';Uid='" & userhost.Text & "';Pwd='" & pashost.Text & "';charset=utf8"
Dim cmd As MySqlCommand = New MySqlCommand()
cmd.Connection = webcon
cmd.CommandText = "SET NAMES 'latin1' COLLATE 'latin1_swedish_ci'"
'--------------------- ----------------
Dim objCommandp As MySqlCommand = New MySqlCommand()
objCommandp.CommandText = "INSERT INTO nuke_stories(sid,catid,aid,title,time,hometext,bod ytext,comments,counter,topic,informant,notes,ihome ,alanguage,acomm,haspoll,pollid,score,ratings,rati ng_ip,associated) VALUES('',0,'admin',@titlen,'2011-3-10',@bodyn,'',0,1,0,'admin','',0,'',0,0,0,0,0,0,'' )"
objCommandp.Connection = webcon
objCommandp.Parameters.AddWithValue("@titlen", titlenews.Text.Trim)
objCommandp.Parameters.AddWithValue("@bodyn", bodynews.Text.Trim)
webcon.Open()
cmd.ExecuteNonQuery()
objCommandp.ExecuteNonQuery()
webcon.Close()
اما حالا مشکل جدیدی دارم
همانطور که می بینید کدینگ تیبل من روی mysql ، هاست Latin بود
وقتی می خواهم اطلاعات رو از هاست بخونمو تو یه دیتا گرید بریزم کارکترها رو ذرست نشون نمیده
از دو دستور
set NAMES utf8
هم استفاده کردم
لطفا راهنمایی نمایید
این هم نمونه کدها برای واکشی اطلاعات
Dim cmd1 As MySqlCommand = New MySqlCommand("set NAMES utf8", webcon)
Dim idcountst, st AsInteger
Dim objDatatablest AsNew DataTable
Dim titleutf AsString
objDatatablest.Clear()
MySqlDataAdapter = New MySqlDataAdapter("select * from nuke_stories", webcon)
webcon.Open()
cmd1.ExecuteNonQuery()
MySqlDataAdapter.Fill(objDatatablest)
webcon.Close()
باز هم یادآور میشوم کارهای insert، update و delete درست انجام میشه
چندی پیش با تلاش بسیار موفق شدم به صورت صحیح کارکترها رو به بانک MY sql واقع در روی هاست وارد کنم
با این کدها :
webcon.ConnectionString = "Server='" & iphost.Text & "';Database='" & databasehost.Text & "';Uid='" & userhost.Text & "';Pwd='" & pashost.Text & "';charset=utf8"
Dim cmd As MySqlCommand = New MySqlCommand()
cmd.Connection = webcon
cmd.CommandText = "SET NAMES 'latin1' COLLATE 'latin1_swedish_ci'"
'--------------------- ----------------
Dim objCommandp As MySqlCommand = New MySqlCommand()
objCommandp.CommandText = "INSERT INTO nuke_stories(sid,catid,aid,title,time,hometext,bod ytext,comments,counter,topic,informant,notes,ihome ,alanguage,acomm,haspoll,pollid,score,ratings,rati ng_ip,associated) VALUES('',0,'admin',@titlen,'2011-3-10',@bodyn,'',0,1,0,'admin','',0,'',0,0,0,0,0,0,'' )"
objCommandp.Connection = webcon
objCommandp.Parameters.AddWithValue("@titlen", titlenews.Text.Trim)
objCommandp.Parameters.AddWithValue("@bodyn", bodynews.Text.Trim)
webcon.Open()
cmd.ExecuteNonQuery()
objCommandp.ExecuteNonQuery()
webcon.Close()
اما حالا مشکل جدیدی دارم
همانطور که می بینید کدینگ تیبل من روی mysql ، هاست Latin بود
وقتی می خواهم اطلاعات رو از هاست بخونمو تو یه دیتا گرید بریزم کارکترها رو ذرست نشون نمیده
از دو دستور
set NAMES utf8
هم استفاده کردم
لطفا راهنمایی نمایید
این هم نمونه کدها برای واکشی اطلاعات
Dim cmd1 As MySqlCommand = New MySqlCommand("set NAMES utf8", webcon)
Dim idcountst, st AsInteger
Dim objDatatablest AsNew DataTable
Dim titleutf AsString
objDatatablest.Clear()
MySqlDataAdapter = New MySqlDataAdapter("select * from nuke_stories", webcon)
webcon.Open()
cmd1.ExecuteNonQuery()
MySqlDataAdapter.Fill(objDatatablest)
webcon.Close()
باز هم یادآور میشوم کارهای insert، update و delete درست انجام میشه