ورود

نسخه کامل مشاهده نسخه کامل : ذخيره فارسي داخل اكسس



hercool
22-10-2008, 13:28
سلام!
من با استفاده از كد زير چند فيلد را توي ديتا بيس اكسس ذخيره ميكنم
ولي مشكل اينه كه داخل اكسس فارسي نمياد و كد ميشه
همين باعث ميشه كه توي كد سرچ حرف به حرف من خوانده نشه!

چي كار كنم كه فارسي داخل اكسس ذخيره بشه؟!



dsn = "DBQ=" & Server.Mappath("News.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
if D="pic" then SQL = "SELECT * FROM pic" end if
if D="music" then SQL = "SELECT * FROM music" end if
if D="film" then SQL = "SELECT * FROM film" end if
if D="sher" then SQL = "SELECT * FROM sher" end if
if D="dl" then SQL = "SELECT * FROM dl" end if
if D="lerning" then SQL = "SELECT * FROM lerning" end if
if D="web" then SQL = "SELECT * FROM web" end if
objrs.Open SQL, Conn, 1, 3
while not(objrs.eof)
objrs.movenext
wend

objrs.addnew
objrs ("news")=Comment
objrs ("Title")=Title
objrs ("Date")=session("Date")
objrs.update
objrs.close
set objrs=nothing
Conn.close
set Conn=nothing

Far Va Har
29-10-2008, 18:30
تو دستور شما که همش دستور Select هست با دستور Select چی میخوای ذخیره کنی؟؟!!!

اما اگه دستور Insert یا Update استفاده کردی باید قبل از string علامت N بذاری

مثال


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید