سوال: اشکال در دستور جستجو ونمایش آن در تکست باکس [بایگانی]

behnam2010

دوشنبه 30 اردیبهشت 1392, 13:29 عصر

سلام

من به این مشکل برخورد کردم که
تو حین نوشتن دستورات sql برای یافتن یک عدد که در تکست باکس اول نوشته شده و بعد بره تو دیتابیس بگرده تا
اطلاعات مربوط به اونو در یک تکست باکس دوم نشون بده

توی سایت ها فقط راجع به نمایش اطلاعات از دیتاگرید به تکست باکس دیدم ولی در این باره نتونستم چیزی پیدا کنم
اگه سورسی دارید + توضیحاتش بزارید تا مشکلم حل شه

ممنون

behnam2010

سه شنبه 31 اردیبهشت 1392, 12:51 عصر

هنوز چشم انتظار کمک شماها هستم :ناراحت:

hosein320

سه شنبه 31 اردیبهشت 1392, 13:00 عصر

دقیقا کدوم قسمتش مشکل دارین
ایگه میتونین سرستونو بزارین!

behnam2010

سه شنبه 31 اردیبهشت 1392, 13:11 عصر

آقا حسین من در واقع یه برنامه واسه صحت کد ملی نوشتم

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

منظورم اینه

hosein320

سه شنبه 31 اردیبهشت 1392, 13:24 عصر

"select City from tbl_name where Code Like '" & txtcode.text & "%'"
فک کنم منظورتون همین باشه!

behnam2010

سه شنبه 31 اردیبهشت 1392, 13:27 عصر

"select City from tbl_name where Code='" & txtcode.text & "%'"
فک کنم منظورتون همین باشه!

حالا باتوجه به این کد وقتی میخوام مثلا اسم استان رو بیارم تو تکست باکس چه کدی بنویسم
(البته من تو کد sql مشکل دارم جاهای زیادی هم گشتم واسه یادگیری هرجایی یه چیزی گفتند و من هم دست و پا شکسته یه چیزایی میدونم)

hosein320

سه شنبه 31 اردیبهشت 1392, 13:43 عصر

104467
شما این ماژول رو به پروژتون اضافه کنید
البته باید مشخصات بانکتون رو تو ماژول تغییر بدین:لبخند:
بعد یه شی از این نوع تو برنامت تغریف کن
Dim Bind As New Bind
بعد یه دیتا گرید ویو بنداز رو فرمت و visible رو false کن
حالا برای استفاده از تابعت باید به این صورت عمل کنی
Bind.bind(datagridview1,"Select City from Tbl_Name Where Code Like '" txtCode.text & "%'")
txtresult.text=datagridview1.rows(0).Cells(0)
با این کد اولین نتیجه میره تو تکسباکستون
موفق باشید:چشمک:

behnam2010

سه شنبه 31 اردیبهشت 1392, 13:47 عصر

یعنی اصلا بدون data grid view راه حلی نداره ؟؟ حتما این موجود باید تو فرم بیاد

:گریه:

hosein320

سه شنبه 31 اردیبهشت 1392, 13:50 عصر

یعنی اینقدر مهمه که نباشه؟

behnam2010

سه شنبه 31 اردیبهشت 1392, 13:53 عصر

خب اگه نباشه بهتره

آخه من نیازی به این ندارم

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

hosein320

سه شنبه 31 اردیبهشت 1392, 13:58 عصر

با این کد هم میشه
Try
Dim Sqlcon As New SqlConnection
Dim SqlCmd As New SqlCommand
Dim Sqlda As New SqlDataAdapter
Dim Sqldt As New DataTable
'تعريف کانکشن استرينگ
Sqlcon.ConnectionString = "Data Source=.;Initial Catalog=chat;Integrated Security=True"
SqlCmd.Connection = Sqlcon
SqlCmd.CommandText = "Select City from Tbl_Name Where Code Like '" txtCode.text & "%'" 'دستور اس کيو ال
Sqlda.SelectCommand = SqlCmd
Sqlcon.Open() 'باز کردن بانک
Sqlda.Fill(Sqldt)
txtresult.text=Sqldt.Rows(0).Item(0)
Sqlcon.Close() 'بستن بانک
Catch ex As Exception
MsgBox("Error : " & ex.Message, MsgBoxStyle.Exclamation)
End Try
موفق باشید:چشمک:

behnam2010

سه شنبه 31 اردیبهشت 1392, 15:11 عصر

با این کد هم میشه
Try
Dim Sqlcon As New SqlConnection
Dim SqlCmd As New SqlCommand
Dim Sqlda As New SqlDataAdapter
Dim Sqldt As New DataTable
'تعريف کانکشن استرينگ
Sqlcon.ConnectionString = "Data Source=.;Initial Catalog=chat;Integrated Security=True"
SqlCmd.Connection = Sqlcon
SqlCmd.CommandText = "Select City from Tbl_Name Where Code Like '" txtCode.text & "%'" 'دستور اس کيو ال
Sqlda.SelectCommand = SqlCmd
Sqlcon.Open() 'باز کردن بانک
Sqlda.Fill(Sqldt)
txtresult.text=Sqldt.Rows(0).Item(0)
Sqlcon.Close() 'بستن بانک
Catch ex As Exception
MsgBox("Error : " & ex.Message, MsgBoxStyle.Exclamation)
End Try
موفق باشید:چشمک:

یک دنیا تشکر با این کد که زحمت گذاشتنش رو کشیدی تونستم اطلاعات رو از دیتابیس بگیرم و بجای دیتا گرید ویو , داخله یک تکست باکس نمایش بدم ( البته بدون دیتا گرید ویو).:قلب:

farhad85

پنج شنبه 24 بهمن 1392, 12:01 عصر

یه کم سرچ کنی خیلی در این رابطه وجود داره