خرافات
پنج شنبه 15 شهریور 1386, 11:02 صبح
با سلام
با نوشتن کد زیر در vb.net نمی توانم رکوردهای فارسی را سرچ و انتخاب کنم ولی رکوردهای انگلیسی موجود در پایگاه داده هایم با همین کد انتخاب می شوند . لطفاً مرا راهنمایی کنید.
PrivateSub filldg()
If chk_keraye_entekhab_jostejo.Checked = FalseThen
If rbcodeFilm.Checked Then
cmd.CommandText = "select filmlist.filmcode,filmlist.filmname,filmlist.years ,filmlist.numbers,country.country,actorlist.actorn ame,jhanr.noe from filmlist,actorlist,jhanr,country where (filmlist.actor1code=actorlist.actorcode or filmlist.actor2code=actorlist.actorcode) and filmlist.jhanrcode=jhanr.codejhanr and filmlist.countrycode=country.codecountry order by filmlist.filmcode "
ElseIf rbActor.Checked Then
cmd.CommandText = "select filmlist.filmcode,filmlist.filmname,filmlist.years ,filmlist.numbers,country.country,actorlist.actorn ame,jhanr.noe from filmlist,actorlist,jhanr,country where (filmlist.actor1code=actorlist.actorcode or filmlist.actor2code=actorlist.actorcode) and filmlist.jhanrcode=jhanr.codejhanr and filmlist.countrycode=country.codecountry order by actorlist.actorcode "
ElseIf rbJHanr.Checked Then
cmd.CommandText = "select filmlist.filmcode,filmlist.filmname,filmlist.years ,filmlist.numbers,country.country,actorlist.actorn ame,jhanr.noe from filmlist,actorlist,jhanr,country where (filmlist.actor1code=actorlist.actorcode or filmlist.actor2code=actorlist.actorcode) and filmlist.jhanrcode=jhanr.codejhanr and filmlist.countrycode=country.codecountry order by jhanr.noe "
ElseIf rbKeshvar.Checked Then
cmd.CommandText = "select filmlist.filmcode,filmlist.filmname,filmlist.years ,filmlist.numbers,country.country,actorlist.actorn ame,jhanr.noe from filmlist,actorlist,jhanr,country where (filmlist.actor1code=actorlist.actorcode or filmlist.actor2code=actorlist.actorcode) and filmlist.jhanrcode=jhanr.codejhanr and filmlist.countrycode=country.codecountry order by country.country "
ElseIf rbSalTolid.Checked Then
cmd.CommandText = "select filmlist.filmcode,filmlist.filmname,filmlist.years ,filmlist.numbers,country.country,actorlist.actorn ame,jhanr.noe from filmlist,actorlist,jhanr,country where (filmlist.actor1code=actorlist.actorcode or filmlist.actor2code=actorlist.actorcode) and filmlist.jhanrcode=jhanr.codejhanr and filmlist.countrycode=country.codecountry order by filmlist.years "
EndIf
Else
where1 = "1=1"
If txt_keraye_entekhab_codefilm.Text.Trim <> ""And IsNumeric(txt_keraye_entekhab_codefilm.Text.Trim) Then where1 &= " and filmlist.filmcode = " & CInt(txt_keraye_entekhab_codefilm.Text.Trim)
If txt_keraye_entekhab_namefilm.Text.Trim <> ""Then where1 &= " and filmlist.filmname = " & "'" & txt_keraye_entekhab_namefilm.Text.Trim & "'"
If txt_keraye_entekhab_sal.Text.Trim <> ""And IsNumeric(txt_keraye_entekhab_sal.Text.Trim) Then where1 &= " and filmlist.years = " & CInt(txt_keraye_entekhab_sal.Text.Trim)
If cmb_keraye_entekhab_actor.Text <> "-"Then where1 &= " and actorlist.actorname = " & " '" & cmb_keraye_entekhab_actor.Text & "' "
If cmb_keraye_entekhab_keshvar.Text <> "-"Then where1 &= " and country.country = " & " '" & cmb_keraye_entekhab_keshvar.Text & "' "
If cmb_keraye_entekhab_noe.Text <> "-"Then where1 &= " and jhanr.noe = " & " '" & cmb_keraye_entekhab_noe.Text & "' "
cmd.CommandText = "select filmlist.filmcode,filmlist.filmname,filmlist.years ,filmlist.numbers,country.country,actorlist.actorn ame,jhanr.noe from filmlist,actorlist,jhanr,country where (filmlist.actor1code=actorlist.actorcode or filmlist.actor2code=actorlist.actorcode) and filmlist.jhanrcode=jhanr.codejhanr and filmlist.countrycode=country.codecountry and " & where1
EndIf
dtdg.Clear()
adp.SelectCommand = cmd
adp.Fill(dtdg)
dg_keraye_entekhab.DataSource = dtdg
EndSub
با نوشتن کد زیر در vb.net نمی توانم رکوردهای فارسی را سرچ و انتخاب کنم ولی رکوردهای انگلیسی موجود در پایگاه داده هایم با همین کد انتخاب می شوند . لطفاً مرا راهنمایی کنید.
PrivateSub filldg()
If chk_keraye_entekhab_jostejo.Checked = FalseThen
If rbcodeFilm.Checked Then
cmd.CommandText = "select filmlist.filmcode,filmlist.filmname,filmlist.years ,filmlist.numbers,country.country,actorlist.actorn ame,jhanr.noe from filmlist,actorlist,jhanr,country where (filmlist.actor1code=actorlist.actorcode or filmlist.actor2code=actorlist.actorcode) and filmlist.jhanrcode=jhanr.codejhanr and filmlist.countrycode=country.codecountry order by filmlist.filmcode "
ElseIf rbActor.Checked Then
cmd.CommandText = "select filmlist.filmcode,filmlist.filmname,filmlist.years ,filmlist.numbers,country.country,actorlist.actorn ame,jhanr.noe from filmlist,actorlist,jhanr,country where (filmlist.actor1code=actorlist.actorcode or filmlist.actor2code=actorlist.actorcode) and filmlist.jhanrcode=jhanr.codejhanr and filmlist.countrycode=country.codecountry order by actorlist.actorcode "
ElseIf rbJHanr.Checked Then
cmd.CommandText = "select filmlist.filmcode,filmlist.filmname,filmlist.years ,filmlist.numbers,country.country,actorlist.actorn ame,jhanr.noe from filmlist,actorlist,jhanr,country where (filmlist.actor1code=actorlist.actorcode or filmlist.actor2code=actorlist.actorcode) and filmlist.jhanrcode=jhanr.codejhanr and filmlist.countrycode=country.codecountry order by jhanr.noe "
ElseIf rbKeshvar.Checked Then
cmd.CommandText = "select filmlist.filmcode,filmlist.filmname,filmlist.years ,filmlist.numbers,country.country,actorlist.actorn ame,jhanr.noe from filmlist,actorlist,jhanr,country where (filmlist.actor1code=actorlist.actorcode or filmlist.actor2code=actorlist.actorcode) and filmlist.jhanrcode=jhanr.codejhanr and filmlist.countrycode=country.codecountry order by country.country "
ElseIf rbSalTolid.Checked Then
cmd.CommandText = "select filmlist.filmcode,filmlist.filmname,filmlist.years ,filmlist.numbers,country.country,actorlist.actorn ame,jhanr.noe from filmlist,actorlist,jhanr,country where (filmlist.actor1code=actorlist.actorcode or filmlist.actor2code=actorlist.actorcode) and filmlist.jhanrcode=jhanr.codejhanr and filmlist.countrycode=country.codecountry order by filmlist.years "
EndIf
Else
where1 = "1=1"
If txt_keraye_entekhab_codefilm.Text.Trim <> ""And IsNumeric(txt_keraye_entekhab_codefilm.Text.Trim) Then where1 &= " and filmlist.filmcode = " & CInt(txt_keraye_entekhab_codefilm.Text.Trim)
If txt_keraye_entekhab_namefilm.Text.Trim <> ""Then where1 &= " and filmlist.filmname = " & "'" & txt_keraye_entekhab_namefilm.Text.Trim & "'"
If txt_keraye_entekhab_sal.Text.Trim <> ""And IsNumeric(txt_keraye_entekhab_sal.Text.Trim) Then where1 &= " and filmlist.years = " & CInt(txt_keraye_entekhab_sal.Text.Trim)
If cmb_keraye_entekhab_actor.Text <> "-"Then where1 &= " and actorlist.actorname = " & " '" & cmb_keraye_entekhab_actor.Text & "' "
If cmb_keraye_entekhab_keshvar.Text <> "-"Then where1 &= " and country.country = " & " '" & cmb_keraye_entekhab_keshvar.Text & "' "
If cmb_keraye_entekhab_noe.Text <> "-"Then where1 &= " and jhanr.noe = " & " '" & cmb_keraye_entekhab_noe.Text & "' "
cmd.CommandText = "select filmlist.filmcode,filmlist.filmname,filmlist.years ,filmlist.numbers,country.country,actorlist.actorn ame,jhanr.noe from filmlist,actorlist,jhanr,country where (filmlist.actor1code=actorlist.actorcode or filmlist.actor2code=actorlist.actorcode) and filmlist.jhanrcode=jhanr.codejhanr and filmlist.countrycode=country.codecountry and " & where1
EndIf
dtdg.Clear()
adp.SelectCommand = cmd
adp.Fill(dtdg)
dg_keraye_entekhab.DataSource = dtdg
EndSub