جستجو ونمایش اطلاعات

[rahil_2007]

با سلام
من چطور میتونم اطلاعات را از چهارتا combobox گرفته واطلاعات مرتبط با آنها را در بانک جستجو کرده و نمایش دهم.(اگر کدی در این زمینه با datareader یا هر چیز دیگه ای وجود داره برایم بگذارید)

[salehbagheri]

از روش زير مي توني استفاده ببري:


Dim Sql as New SqlDataSource
Sql.CommandText="SELECT * FROM TABLE1 WHERE YourVar=@YourVar"
Sql.Parameters.Add("YourVal", ComboBox1.SelectedText)

[rahil_2007]

میشه بیشتر توضیح بدین

[rahil_2007]

برنامه من بانک اطلاعاتی دارد که بسته به ورودی های کاربر که از combobox دریافت میشود
اطلاعاتی را دراختیار کاربر میگذارد . مثلا شهرومنطقه را از کاربر گرفته و تلفن تمامی مکانهایی که در آن شهر ومنطقه دفتر املاک دارند را برمیگرداندو نمایش میدهد.

[rahil_2007]

اورژانسیه
ازاهل فن کسی نیست کمکم کنه.

[saman_itc]

همانطوری که تو کد زیر نوشتم
شما یه تابع درست میکنی و کد زیر توش مینویسی و تو همه select index ها تو combo این تابع رو فراخوانی میکنی
باید همه کمبو ها چک بشه و اگه خالی نبود تو شرط بیاد 0


If ChBox_Move_Time.Checked = True Then
Sql_Str_Rep += " And Tbl_Move.Time_Move Between '" + TimeFormat(UTime_Move_F.Time_Out.ToString) + "' And '" + TimeFormat(UTime_Move_S.Time_Out.ToString) + "' "
End If
'*****************
If Cmb_Move_Dri.SelectedIndex > 0 Then
Sql_Str_Rep += " And Tbl_Driver_Lord.Id = " + Cmb_Move_Dri.SelectedValue.ToString + " "
End If
'*****************
If Cmb_Move_Kind_Nagh.SelectedIndex > 0 Then
Sql_Str_Rep += " And Tbl_Naghlie_Info.Kind='" + Trim(Cmb_Move_Kind_Nagh.Text) + "' "
End If
'*****************
If Cmb_Move_Naghlie_Nagh.SelectedIndex > 0 Then
Sql_Str_Rep += " And Tbl_Naghlie_Info.Naghlie='" + Trim(Cmb_Move_Naghlie_Nagh.Text) + "' "
End If
'*****************
If Cmb_Move_Plak_Nagh.SelectedIndex > 0 Then
Sql_Str_Rep += " And Tbl_Naghlie_Info.Plak='" + Trim(Cmb_Move_Plak_Nagh.Text) + "' "
End If
Cmd_Sql = New OleDbCommand(Sql_Str_Rep, Cn)
Dr = Cmd_Sql.ExecuteReader
If Dr.HasRows = False Then
Msgbox_Custom(" با شرایط تعیین شده ، هیچ داده ای برای نمایش وجود ندارد", 1, 1, "گزارش")
Exit Sub
End If
Dr.Close()
'***********************
Frm_Rep_View.Rep_Doc.FileName = My.Computer.FileSystem.CurrentDirectory + "\Rep_Move.rpt"
Cmd_Sql = New OleDbCommand(Sql_Str_Rep, Cn)
Ds = New DataSet
Da = New OleDbDataAdapter(Cmd_Sql)
Da.Fill(Ds, "Tbl_Maly")

[saman_itc]

If ChBox_Move_Time.Checked = True Then
Sql_Str_Rep += " And Tbl_Move.Time_Move Between '" + TimeFormat(UTime_Move_F.Time_Out.ToString) + "' And '" + TimeFormat(UTime_Move_S.Time_Out.ToString) + "' "
End If
'*****************
If Cmb_Move_Dri.SelectedIndex > 0 Then
Sql_Str_Rep += " And Tbl_Driver_Lord.Id = " + Cmb_Move_Dri.SelectedValue.ToString + " "
End If
'*****************
If Cmb_Move_Kind_Nagh.SelectedIndex > 0 Then
Sql_Str_Rep += " And Tbl_Naghlie_Info.Kind='" + Trim(Cmb_Move_Kind_Nagh.Text) + "' "
End If
'*****************
If Cmb_Move_Naghlie_Nagh.SelectedIndex > 0 Then
Sql_Str_Rep += " And Tbl_Naghlie_Info.Naghlie='" + Trim(Cmb_Move_Naghlie_Nagh.Text) + "' "
End If
'*****************
If Cmb_Move_Plak_Nagh.SelectedIndex > 0 Then
Sql_Str_Rep += " And Tbl_Naghlie_Info.Plak='" + Trim(Cmb_Move_Plak_Nagh.Text) + "' "
End If
Cmd_Sql = New OleDbCommand(Sql_Str_Rep, Cn)
Dr = Cmd_Sql.ExecuteReader
If Dr.HasRows = False Then
Msgbox_Custom(" با شرایط تعیین شده ، هیچ داده ای برای نمایش وجود ندارد", 1, 1, "گزارش")
Exit Sub
End If
Dr.Close()
'***********************
Frm_Rep_View.Rep_Doc.FileName = My.Computer.FileSystem.CurrentDirectory + "\Rep_Move.rpt"
Cmd_Sql = New OleDbCommand(Sql_Str_Rep, Cn)
Ds = New DataSet
Da = New OleDbDataAdapter(Cmd_Sql)
Da.Fill(Ds, "Tbl_Maly")