مشکل جست جو نام در اس کیو ال سرور با زبان برنامه نویسی ویبی دات نت

[sempay_ninjutsu]

سلام به همه دوستان
یک برنامه حسابداری به زبان ویبی دات نت نوشتم که پایگاه داده آن sql server می باشد.
این برنامه یک جست جو بر اساس نام دارد که نامهای انگلیسی را پیدا میکند ولی نامهای فارسی را تا 4 حرف پیدا میکند و برای بیش تر از 4 تا حرف موردی را پیدا نمی کند.لطفا" خیلی سریع راهنمایی کنید.فوری فوری!!!
با تشکر

[arsalansalar]

عجیبه!کدی که برای جستجو می نویسی اینجا بگذار تا درست کنیم.

[taheri-ali]

سلام به همه دوستان
یک برنامه حسابداری به زبان ویبی دات نت نوشتم که پایگاه داده آن sql server می باشد.
این برنامه یک جست جو بر اساس نام دارد که نامهای انگلیسی را پیدا میکند ولی نامهای فارسی را تا 4 حرف پیدا میکند و برای بیش تر از 4 تا حرف موردی را پیدا نمی کند.لطفا" خیلی سریع راهنمایی کنید.فوری فوری!!!
با تشکر

آقا احتمالاً شما هم همون مشكل ك و ي را داريد با اسمهايي كه اين حروف تو اونا نيست سرچ كن ببين جواب ميده يا نه

[morteza_261]

سلام
یه نمونه برای جستجو فارسی:

Dim WHERE AsString

WHERE = "Fname Like N'" & TxtSearch.Text & "%'"

PubSqlCom.CommandText = "SELECT Id, Fname, LName, FatherName, IdCordNo FROM TblStudent WHERE " & WHERE

PubSqlCom.Connection = PubSqlCon

If PubSqlCon.State = ConnectionState.Closed Then PubSqlCon.Open()

PubSqlDR = PubSqlCom.ExecuteReader()

If PubSqlDR.HasRows Then

While PubSqlDR.Read()

Lst = ListView1.Items.Add(PubSqlDR("Id"))

Lst.SubItems.Add(1).Text = (PubSqlDR("Fname"))

Lst.SubItems.Add(2).Text = (PubSqlDR("Lname"))

Lst.SubItems.Add(3).Text = (PubSqlDR("FatherName"))

Lst.SubItems.Add(3).Text = (PubSqlDR("IdCordNo"))

LblSearch.Text = "موارد پیدا شده برای:" & Space(2) & TxtSearch.Text

EndWhile

Else

MessageBox.Show("موردی برای جستجو یافت نشد", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button3, MessageBoxOptions.RightAlign)

TxtSearch.Clear()

EndIf

[S_h_m102]

اگر مشکل در حروفی است که ی و ک دارد می توانید از ونت های شرکا برنا استفاده کنید و یا Dll کی بورد فارسی جدید میکرسافت را جایگزین آن کنید