جستجوی یک رکورد خاص در بانک اطلاعاتی SQL

[123s0ran]

Sسلام دوستان و اساتید زحمت کش سایت برنامه نویس
و با عرض تشکر و قدردانی از مطالب مفید انجمن....
دوستان من می خواهم داخل بانک اطلاعاتیم یک رکورد خاصی جستجو کنم که داری چند مشخصه فیلد خاص باشه.
من خودم قبلا برای جستجوی تکی مثلا جستجوی فیلد های که کد انها 12 هستش از کوری زیر استفاده میکردم

sqlcmd = "Select * from table1 where id =" & txtSearch.Text

اما مثلا من میخوام دنبال یک رکورد باشم که داخل فیلده اسم (علی) باشه داخل فیلده سال تولد (1372) و داخل فیلده جنسیت (مرد) وجود داشته باشه اما متاسفانه کد یا کوری این نوع جستجو بلد نیستم اگه کسی از دوستان بلد هستش لطفا راهنمای کنید ممنون میشم.

[hosein320]

سلام
برای مثال

	sqlcmd = "Select * from table1 where id =" & txtSearch.Text & " and name=" & "'" &txtname.text & "'" 

[123s0ran]

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

[hosein320]

پست 2 به روز شد!

[aknj56]

سلام دوست عزیز
باید شما پارامتر تعریف کنی
این هم نمونه کد:

          da = New OleDbDataAdapter("select nam,famil from table1 where nam like @p1 and famil like @p2 ", cnn)

          da.SelectCommand.Parameters.Add("p1", OleDbType.VarChar)

          da.SelectCommand.Parameters.Add("p2", OleDbType.VarChar)

          da.SelectCommand.Parameters("p1").Value = TextBox1.Text

          da.SelectCommand.Parameters("p2").Value = TextBox2.Text

          ds.Clear()

          da.Fill(ds)

          DataGridView1.DataSource = ds

          DataGridView1.DataMember = ds.Tables(0).ToString

  

[123s0ran]

سلام دوست عزیز . ببخشید من تازه کار هستم و از فرمایشاتی که در پست بالا فرمودید زیاد سر در نیاوردم

ببینید من دقیقا برای جستجو های قبلیم از این کد ها استفاده می کردم.
برای تعریف کانکشن:

 Private cnnString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=L:\terminal\t  erminal\terminal.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

    Private cnn As New SqlConnection(cnnString)

    Private cmd As SqlCommand

    Private ad As SqlDataAdapter

    Private dt As DataTable

    Private ds As DataSet

    Dim bs As New BindingSource

برای جستجو:

Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged

        Try

            If txtSearch.Text = String.Empty Then ReloadRecord() : Exit Sub

            Dim sqlcmd As String = ""

            Select Case ComboBox1.SelectedIndex

                Case Is = 0 ' جستجو بر اساس کد

                    sqlcmd = "Select * from table1 where id =" & txtSearch.Text

   

                Case Is = 1 ' جستجو بر اساس نام خانوادگی

                    sqlcmd = "Select * from table1 where lname like N'%" & txtSearch.Text & "%'"

                Case Is = 2 'جستجو بر اساس ساعت 

                    sqlcmd = "Select * from table1 where sat like N'%" & txtSearch.Text & "%'"

            End Select

            ad = New SqlDataAdapter(sqlcmd, cnnString)

            dt = New DataTable

            ad.Fill(dt)

            dgv.DataSource = dt

        Catch ex As Exception

            MsgBox(Err.Description _

                      , MsgBoxStyle.Critical, "خطا هنگام جستجو")

        End Try

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

[123s0ran]

plz help me

[swallow.pa]

فيلدهاي جدولت رو بنويس تا بر اساس اون انواع جستجو رو بنويسم

[123s0ran]

سلام . فیلد های که میخواهم جستجو بشن اینا هستن :
sandali
maqsad
sahat

[123s0ran]

انگار سوال ما خیلی سخته یا بد شانسیم

[behrozi.ir]

سلام
اگر میخوای با EF ، Linq و یا Dateset برات بنویسم

از دیتا بیس خودت یک اسکریپت ، تو اینجا ضمیمه کن
برات بنویسم


بهروزی

[123s0ran]

soarr.jpg
سلام . بفرماید ...

[behrozi.ir]

soarr.jpg
سلام . بفرماید ...

دوست من
منظور از اسکریپت ، اسکریپت بک آپ دیتا بود. (برای ایجاد اسکریپت این مسیر رو تو SQL SERVER دنبال کنید روی اسم دیتا بیس کلیک راست کنید task و Generate script را انتخاب کنید و سپس مراحل را ادامه دهید).

یا اگر قادر به ایجاد آن نیستید، یک آپ معمولی (فایل mdf) رو ارسال کنید. (اگر اجازه کپی کردن آن وجود نداشت باید دیتا را Detech کنید)

[123s0ran]

او ببخشید من تازه کار هستم و زیاد از اصطلاحات زیاد سر در نمیارم . و همونطوری که شما گفتید فایل mdf ضمیمه کردم و برایDetech کردن از همون داخل ویژوال استدیو روی بانک کلیک راست کردم و گزینه Detech انتخاب کردم که خدا کنه مشکلی نداشته باشه ...
New WinRAR archive.rar

[swallow.pa]

سلام . فیلد های که میخواهم جستجو بشن اینا هستن :
sandali
maqsad
sahat

خب اينم جستجو

SELECT * FROM TABLE1 WHERE  sandali =25 AND maqsad ='tehran' AND sahat ='mystring' 

حالا براي مقصد كه رشته است مي توني عملگر like هم استفاده كني

maqsad  like%'tehran '%

[123s0ran]

اقای swallow.pa و اقای behrozi.ir دستتون درد نکنه واقعا مننون زحمتت کشید

[behrozi.ir]

سلام
با تشکر از دوست عزیز swallow.pa

Dim maqsad As String = TextBox1.Text

Dim sahat As String = TextBox2.Text

Dim sandali As String = TextBox3.Text

Dim resualt As String

resualt = "SELECT * FROM TABLE1 WHERE  sandali =" + sandali + " AND maqsad ='" + maqsad + "' AND sahat ='" + sahat + "'"

[behrozi.ir]

سلام
با تشکر از دوست عزیز swallow.pa

Dim maqsad As String = TextBox1.Text

Dim sahat As String = TextBox2.Text

Dim sandali As String = TextBox3.Text

Dim resualt As String

resualt = "SELECT * FROM TABLE1 WHERE  sandali =" + sandali + " AND maqsad ='" + maqsad + "' AND sahat ='" + sahat + "'"

البته تبدیل صندلی یادم رفت باید تبدیل به عدد بشه (خط سوم) و یک اشتباه دیگه، نوع اون هم باید از رشته به عدد تغییر پیدا کنه (همون خط 3 )


بهروزی