جستجو در بانک با استفاده از تکست باکس و کمبوباکس

[kafinetetaha]

با سلام من یه تکست باکس دارم و یه کمبو باکس -جستجوم به این صورته که ما چند تا مناسبت داریم و در جدول مناسبت نامشونو ذخیره میکنیم این مناسبت یه ای دی داره و اینو با کمبو باکس بایند کنم- بعد وقتی اینو کلیک میکنم در تکست باکس شماره پرسنلی بره اول تو جدول پرسنل که اسامی کل پرسنل هست روچک کنه ببینم هست یا نه-اگر بود چک کنه تو جدول اهدایی که اسامی کسانی که اجناسشونو گرفتن چک کنه ببینم گرفته یا نه اگه گرفته بود پیغام بده

[alimanam]

با سلام

دوست عزیز Please Serach بعد پست !!! کلی سورس کد در همین سایت پیدا میشه فقط کاره 1 دقیقه است . موفق باشید .

[kafinetetaha]

سلام دوست عزیز این کدشه :
Dim cmd As New SqlCommand
cmd.Connection = cn
cmd.CommandText = "select name,fname from persenel where id_p=@idp And id_kart=@idm"
cmd.Parameters.AddWithValue("@idp", TextBox1.Text)
cmd.Parameters.AddWithValue("@idm", ComboBox1.Text)
cn.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader
While dr.Read
TextBox2.Text = dr("name").ToString
TextBox3.Text = dr("fname").ToString

End While
cn.Close()
این چک میکنه ببینم هست یا نه بعد نام و نام خانوادگیو در تکست باکس قرار میده حالا میخوام بره بگرده ببینم گرفته یا نه اینو نوشتم پشت سره این ایراد میگیره
Dim cmd1 As New SqlCommand
cmd1.Connection = cn
cmd1.CommandText = "select daryaft,shomared from ehda where ido=@idp And monasebat=@idm"
cmd1.Parameters.AddWithValue("@idp", TextBox1.Text)
cmd1.Parameters.AddWithValue("@idm", ComboBox1.SelectedValue)
cn.Open()
Dim dr1 As SqlDataReader = cmd1.ExecuteReader
While dr1.Read
If dr1("daryaft").ToString = Trim(TextBox2.Text).ToString And dr1("shomared").ToString = Trim(TextBox3.Text).ToString Then
Label10.Text = "ںیë پ©«ëé §© ںیë êëں« ¢ ںçéںê ¦ي§ ©ں §©یںه¢ ëêي§ى ں«¢."
End If
End While
cn.Close()

[alimanam]

با سلام

از این نمونه کد استفاده کن مشکلت حل مشه کدهاشو میتونی جوری نغییر بدی که با پروژه ات همخونی داشته باشه . یا علی
http://1imagehosting.com/images/0999.png

[kafinetetaha]

با نهایت تشکر از دوست خوبم - مشکل من این نیست مشکل من در قسمت دوم کده قسمتی که باید در یک جدول دیگه چک کنه ببینم فرد مورد نظر اقلام رو گرفته یا نه الان هم دوباره کدا رو میزارم
Dim cmd AsNew SqlCommand
cmd.Connection = cn
cmd.CommandText = "select name,fname from persenel where id_p=@idp And id_kart=@idm"
cmd.Parameters.AddWithValue("@idp", TextBox1.Text)
cmd.Parameters.AddWithValue("@idm", ComboBox1.Text)
cn.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader
While dr.Read
TextBox2.Text = dr("name").ToString
TextBox3.Text = dr("fname").ToString

EndWhile
cn.Close()
این کد بالا دقیقا کار میکنه عملیات جستجورو انجام میده ببینم فرد مورد نظر هست یا نه
مشکل من تو این قسمت زیره
Dim cmd1 AsNew SqlCommand
cmd1.Connection = cn
cmd1.CommandText = "select daryaft,shomared from ehda where ido=@idp And monasebat=@idm"
cmd1.Parameters.AddWithValue("@idp", TextBox1.Text)
cmd1.Parameters.AddWithValue("@idm", ComboBox1.SelectedValue)
cn.Open()
Dim dr1 As SqlDataReader = cmd1.ExecuteReader
While dr1.Read
If dr1("daryaft").ToString = Trim(TextBox2.Text).ToString And dr1("shomared").ToString = Trim(TextBox3.Text).ToString Then
Label10.Text = "ںیë پ©«ëé §© ںیë êëں« ¢ ںçéںê ¦ي§ ©ں §©یںه¢ ëêي§ى ں«¢."
EndIf
EndWhile
cn.Close()
که کار نمیکنه این عملیات باید پشت سرهم انجام بشه لطفا من رو راهنمایی کنید

[alimanam]

با سلام

کد پایین رو بعد از اینکه متغیر cmd1 رو تعریف می کنی بنویس ببین درست میشه .
اگه درست نشد اینجوری نمی تونم کمکت کنم چون نه اطلاعاتی از پایگاه داده ات دارم نه دقیقاً می دونم می خوای چکار کنی . اگه یه سورس مشابه فقط درجایی که مشکل داری با پایگاه داده ات بزار تا راحتتر من وبقیه دوستان بتونیم کمکت کنیم موفق باشی .


cmd1.Parameters.Clear()