عدم یافتن مقدار فیلدهای فارسی

[majidsoft]

با سلام من از این کد برای search کردن استفاده می کنم ولی فیلدهای فارسی را پیدا نمی کنه لطفا آنرا اصلاح کنید با تشکر

Public Sub S_search2(ByVal lname As String)
Dim adapter As SqlDataAdapter = New SqlDataAdapter("SELECT * from information Where (information.lname = '" & lname & "')", Fn_Get_SqlConnection())
Dim dataSet As DataSet = New DataSet
adapter.Fill(dataSet, "information_tbl")
frminformation.ComboBox1.DataSource = dataSet.Tables("information_tbl")
frminformation.ComboBox1.DisplayMember = "fname"

End Sub

[majidsoft]

آقا کسی نیست جواب بده:گریه:

[majidsoft]

بابا پس یکی جواب بده مگه راهی نداره:عصبانی++:

[Reza_Yarahmadi]

اگر مقدار lname رو بصورت پارامتر به دستور SQL بفرستی احتمالا مشکلش برطرف میشه!
Public Sub S_search2(ByVal lname As String)
Dim adapter As SqlDataAdapter = New SqlDataAdapter("SELECT * from information Where (information.lname = @lname )", Fn_Get_SqlConnection())
adapter.SelectCommand.Parameters.AddWithValue("@lname", lname);
Dim dataSet As DataSet = New DataSet
adapter.Fill(dataSet, "information_tbl")
frminformation.ComboBox1.DataSource = dataSet.Tables("information_tbl")
frminformation.ComboBox1.DisplayMember = "fname"

البته یه روش دیگه هم اینه که قبل از متغیر lname یه کاراکتر N بذاری
"SELECT * from information Where (information.lname = N'" & lname & "')"

[majidsoft]

دوست عزیز با تشکر از راهنمایی شما باید بگویم روش دوم شما جواب نمی دهد چون هنگام پرکردن آداپتور فیلدهای nvarchar را نمیتواند بگیرد ولی روش اول کاملا درست است
با تشکر