+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : البحث في جدولين مترابطين (/showthread.php?tid=10045)
البحث في جدولين مترابطين - alaqsa - 14-08-13
اخي الكريم سجاد تم رفع الملف بعد فحصه على اكثر من برنامج حمايه
اتمنى المساعده
ولكم جزيل الشكر
البحث في جدولين مترابطين - alaqsa - 14-08-13
اخواني اتمنى المساعده
تم الرفع
البحث في جدولين مترابطين - Sajad - 14-08-13
اخي العزيز الملف المرفق فيه فايروس
فبرنامج الحماية التي لدي لا يقبل تنزيل الملف
لذا يرجى عدم ارفاق ملف مرفق من قبلك
اكتب كود المثال سوف نحل لك المشكلة ان شاءالله
البحث في جدولين مترابطين - Omar Mekkawy - 15-08-13
على ما اعتقد ان حاسوبك به فايروس قاتل
وعلى الأغلب ينتشر بحاسوبك :mad:
حاول ماترفع أي ملفات لحين تنظيف حاسوبك
البحث في جدولين مترابطين - alaqsa - 15-08-13
شكرا جزيلا لك اخي عمر مكاوي واخي الكريم سجاد
على الرغم من اني امتلك نسخه Smart Eset حديثه ومحدثه ولكن لا ادري من اين ياتي هذا الفايروس
وعلى العموم
بالنسبه للسؤال
لدي واجهتين والواجه الاولى للاضافه وهي كما في الشكل التالي
[ATTACH=CONFIG]3745[/ATTACH]
وهي تعمل معي والكود الخاص بها
كود :
Imports System.Data.OleDb
Imports System.IO
Public Class FORM1
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & Application.StartupPath & "\MR.mdb;")
Dim DS As New DataSet
Dim OP As New OpenFileDialog
Dim BB As Byte()
Private Sub FORM1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter("select * from country", Cost)
da.Fill(ds, "country")
ComboBox1.DataSource = ds.Tables("country")
ComboBox1.ValueMember = "country_name"
Dim dss As New DataSet
Dim daa As New OleDb.OleDbDataAdapter("select * from city", Cost)
daa.Fill(dss, "city")
ComboBox2.DataSource = dss.Tables("city")
ComboBox2.ValueMember = "city_name"
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter("select * from country,city where city.country_id=country.tid and country_name='" & ComboBox1.Text & "'", Cost)
da.Fill(ds, "country")
ComboBox2.DataSource = ds.Tables("country")
ComboBox2.ValueMember = "city_name"
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Dim dss As New DataSet
Dim daa As New OleDb.OleDbDataAdapter("select * from city,Cost where cost.Mall_id=city.tid and city_name='" & ComboBox2.Text & "'", Cost)
daa.Fill(dss, "city")
ComboBox3.DataSource = dss.Tables("city")
ComboBox3.ValueMember = "Cost_Center"
End Sub
Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged, TextBox13.TextChanged, TextBox18.TextChanged, TextBox29.TextChanged, TextBox24.TextChanged, TextBox19.TextChanged, TextBox44.TextChanged, TextBox39.TextChanged, TextBox34.TextChanged, TextBox59.TextChanged, TextBox54.TextChanged, TextBox49.TextChanged
Me.TextBox65.Text = Val(Me.TextBox8.Text) + Val(Me.TextBox13.Text) + Val(Me.TextBox18.Text) + Val(Me.TextBox29.Text) + Val(Me.TextBox24.Text) + Val(Me.TextBox19.Text) + Val(Me.TextBox44.Text) + Val(Me.TextBox39.Text) + Val(Me.TextBox34.Text) + Val(Me.TextBox59.Text) + Val(Me.TextBox54.Text) + Val(Me.TextBox49.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
' To add the Head Data
Dim SavCom As New OleDbCommand
With SavCom
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into HeadInv_Tbl (Region,Mall_Name,MRNo,MRDate,Send_To_HO,Cost_Center,JTNo,Description_JT,Grand_Total,Notes_MR) values(?, ?, ?, ?,?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@Region", OleDbType.VarChar).Value = ComboBox1.Text.Trim
.Parameters.AddWithValue("@Mall_Name", OleDbType.VarChar).Value = ComboBox2.Text.Trim
.Parameters.AddWithValue("@MRNo", OleDbType.VarChar).Value = TextBox1.Text.Trim
.Parameters.AddWithValue("@MRDate", OleDbType.Date).Value = DateTimePicker1.Value.Date
.Parameters.AddWithValue("@Send_To_HO", OleDbType.Date).Value = DateTimePicker2.Value.Date
.Parameters.AddWithValue("@Cost_Center", OleDbType.VarChar).Value = ComboBox3.Text.Trim
.Parameters.AddWithValue("@JTNo", OleDbType.VarChar).Value = TextBox2.Text.Trim
.Parameters.AddWithValue("@Description_JT", OleDbType.VarChar).Value = TextBox3.Text.Trim
.Parameters.AddWithValue("@Grand_Total", OleDbType.VarChar).Value = TextBox65.Text.Trim
.Parameters.AddWithValue("@Notes_MR", OleDbType.VarChar).Value = TextBox64.Text.Trim
End With
Cn.Open()
SavCom.ExecuteNonQuery()
Cn.Close()
' To get the added last record ID
Dim getID As Integer
DS.Clear()
Dim DP As New OleDbDataAdapter("SELECT Max(ID) FROM HeadInv_Tbl", Cn)
DP.Fill(DS, "HeadInv_Tbl")
getID = DS.Tables("HeadInv_Tbl").Rows(0).Item(0)
' To add the Details Data
'================================
Dim SavCom1 As New OleDbCommand
With SavCom1
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID
.Parameters.AddWithValue("@Costt", OleDbType.VarChar).Value = TextBox4.Text.Trim
.Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox5.Text.Trim
.Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox6.Text.Trim
.Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox7.Text.Trim
.Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox8.Text.Trim
End With
Cn.Open()
SavCom1.ExecuteNonQuery()
Cn.Close()
Dim SavCom2 As New OleDbCommand
With SavCom2
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID
.Parameters.AddWithValue("@Costt", OleDbType.VarChar).Value = TextBox9.Text.Trim
.Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox10.Text.Trim
.Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox11.Text.Trim
.Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox12.Text.Trim
.Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox13.Text.Trim
End With
Cn.Open()
SavCom2.ExecuteNonQuery()
Cn.Close()
Dim SavCom3 As New OleDbCommand
With SavCom3
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID
.Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox14.Text.Trim
.Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox15.Text.Trim
.Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox16.Text.Trim
.Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox17.Text.Trim
.Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox18.Text.Trim
End With
Cn.Open()
SavCom3.ExecuteNonQuery()
Cn.Close()
Dim SavCom4 As New OleDbCommand
With SavCom4
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID
.Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox33.Text.Trim
.Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox32.Text.Trim
.Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox31.Text.Trim
.Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox30.Text.Trim
.Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox29.Text.Trim
End With
Cn.Open()
SavCom4.ExecuteNonQuery()
Cn.Close()
Dim SavCom5 As New OleDbCommand
With SavCom5
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID
.Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox28.Text.Trim
.Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox27.Text.Trim
.Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox26.Text.Trim
.Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox25.Text.Trim
.Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox24.Text.Trim
End With
Cn.Open()
SavCom4.ExecuteNonQuery()
Cn.Close()
Dim SavCom6 As New OleDbCommand
With SavCom6
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID
.Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox23.Text.Trim
.Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox22.Text.Trim
.Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox21.Text.Trim
.Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox20.Text.Trim
.Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox19.Text.Trim
End With
Cn.Open()
SavCom4.ExecuteNonQuery()
Cn.Close()
Dim SavCom7 As New OleDbCommand
With SavCom7
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID
.Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox48.Text.Trim
.Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox47.Text.Trim
.Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox46.Text.Trim
.Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox45.Text.Trim
.Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox44.Text.Trim
End With
Cn.Open()
SavCom4.ExecuteNonQuery()
Cn.Close()
Dim SavCom8 As New OleDbCommand
With SavCom8
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID
.Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox43.Text.Trim
.Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox42.Text.Trim
.Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox41.Text.Trim
.Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox40.Text.Trim
.Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox39.Text.Trim
End With
Cn.Open()
SavCom4.ExecuteNonQuery()
Cn.Close()
Dim SavCom9 As New OleDbCommand
With SavCom9
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID
.Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox38.Text.Trim
.Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox37.Text.Trim
.Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox36.Text.Trim
.Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox35.Text.Trim
.Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox34.Text.Trim
End With
Cn.Open()
SavCom4.ExecuteNonQuery()
Cn.Close()
Dim SavCom10 As New OleDbCommand
With SavCom10
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID
.Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox63.Text.Trim
.Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox62.Text.Trim
.Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox61.Text.Trim
.Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox60.Text.Trim
.Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox59.Text.Trim
End With
Cn.Open()
SavCom4.ExecuteNonQuery()
Cn.Close()
Dim SavCom11 As New OleDbCommand
With SavCom11
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID
.Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox58.Text.Trim
.Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox57.Text.Trim
.Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox56.Text.Trim
.Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox55.Text.Trim
.Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox54.Text.Trim
End With
Cn.Open()
SavCom4.ExecuteNonQuery()
Cn.Close()
Dim SavCom12 As New OleDbCommand
With SavCom12
.Connection = Cn
.CommandType = CommandType.Text
.CommandText = "insert into InvDetail_Tbl (HeadInvNo, Costt, DescriFw, Quantity, Unitt, Price_Unit) values(?, ?, ?, ?, ?, ?)"
.Parameters.Clear()
.Parameters.AddWithValue("@HeadInvNo", OleDbType.VarChar).Value = getID
.Parameters.AddWithValue("@Cost_Code", OleDbType.VarChar).Value = TextBox53.Text.Trim
.Parameters.AddWithValue("@DescriFw", OleDbType.VarChar).Value = TextBox52.Text.Trim
.Parameters.AddWithValue("@Quantity", OleDbType.VarChar).Value = TextBox51.Text.Trim
.Parameters.AddWithValue("@Unitt", OleDbType.VarChar).Value = TextBox50.Text.Trim
.Parameters.AddWithValue("@Price_Unit", OleDbType.VarChar).Value = TextBox49.Text.Trim
End With
Cn.Open()
SavCom4.ExecuteNonQuery()
Cn.Close()
'=================================
MsgBox("You added new record successfully", vbOKOnly, "Add")
Catch ex As Exception
MsgBox(ex.Message, vbInformation, "Add")
End Try
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox1.Text = ""
ComboBox3.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text = ""
TextBox22.Text = ""
TextBox23.Text = ""
TextBox24.Text = ""
TextBox25.Text = ""
TextBox26.Text = ""
TextBox27.Text = ""
TextBox28.Text = ""
TextBox29.Text = ""
TextBox30.Text = ""
TextBox31.Text = ""
TextBox32.Text = ""
TextBox33.Text = ""
TextBox34.Text = ""
TextBox35.Text = ""
TextBox36.Text = ""
TextBox37.Text = ""
TextBox38.Text = ""
TextBox39.Text = ""
TextBox40.Text = ""
TextBox41.Text = ""
TextBox42.Text = ""
TextBox43.Text = ""
TextBox44.Text = ""
TextBox45.Text = ""
TextBox46.Text = ""
TextBox47.Text = ""
TextBox48.Text = ""
TextBox49.Text = ""
TextBox50.Text = ""
TextBox51.Text = ""
TextBox52.Text = ""
TextBox53.Text = ""
TextBox54.Text = ""
TextBox55.Text = ""
TextBox56.Text = ""
TextBox57.Text = ""
TextBox58.Text = ""
TextBox59.Text = ""
TextBox60.Text = ""
TextBox61.Text = ""
TextBox62.Text = ""
TextBox63.Text = ""
TextBox64.Text = ""
TextBox65.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
End Classطبعا قاعده البيانات تحتوي على جدولين مربوطين عن طريق الاكسيس
بالنسبه للواجه الثانيه وهي التي بها المشكله
انا اريد عمل بحث ويتم عرض البيانات كما في الشكل التالي
[ATTACH=CONFIG]3746[/ATTACH]
تم وضع مثال في اول المشاكره للاحد الاخوه وعلى ما اعتقد انه تقريبا نفس الفكره
ولكن اريد عرض البيانات عن طريق TEXTBOX
اتنمى منكم الرد وشكرا جزيلا لكم
البحث في جدولين مترابطين - Sajad - 15-08-13
السلام عليكم
في زر البحث استعلم بالشكل التالي:
1- بالنسبة للبحث المطابق
كود :
select * from city,country where city.country_id=country.tid and where mallname=srchtext.text2- البحث العاام
استبدل = بـ Like
البحث في جدولين مترابطين - alaqsa - 15-08-13
sajad كتب :السلام عليكم
في زر البحث استعلم بالشكل التالي:
1- بالنسبة للبحث المطابق
كود :
select * from city,country where city.country_id=country.tid and where mallname=srchtext.text
2- البحث العاام
استبدل = بـ Like
اخي الكريم سجاد
بصراحه لم افهم عليك ماذا تقصد
لاني الكود لدي مثل هذا الشكل
كود :
Imports System.Data
Imports System.Data.OleDb
Public Class Form2
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\MR.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim DataSet1 As New DataSet
Dim SQLstr As String
Dim m As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static m As Integer = 0
If TextBox1.Text = Trim("") Then Exit Sub
If RadioButton4.Checked = True Then
ExactSearch()
ElseIf RadioButton5.Checked = True Then
GeneralSearch()
End If
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "TheTable")
Conn.Close()
TextBox7.DataBindings.Add("Text", DataSet1, "TheTable.Mall")
TextBox2.DataBindings.Add("Text", DataSet1, "TheTable.Code")
TextBox55.DataBindings.Add("Text", DataSet1, "TheTable.Repair_Cost")
TextBox5.DataBindings.Add("Text", DataSet1, "TheTable.MR_D")
TextBox3.DataBindings.Add("Text", DataSet1, "TheTable.Description_repairs")
TextBox6.DataBindings.Add("Text", DataSet1, "TheTable.Expiry_date_repairs")
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "TheTable"
Button1.Enabled = False
If Me.BindingContext(DataSet1, "TheTable").Count = 0 Then
MsgBox("No Result, Please Try Again ")
Exit Sub
End If
Button2.Enabled = True
Button3.Enabled = True
End Sub
Public Sub ExactSearch()
If RadioButton1.Checked = True Then
SQLstr = "SELECT * FROM TheTable WHERE Code = '" & TextBox1.Text & "'"
ElseIf RadioButton2.Checked = True Then
SQLstr = "SELECT * FROM TheTable WHERE Mall = '" & TextBox1.Text & "'"
End If
End Sub
Public Sub GeneralSearch()
If RadioButton1.Checked = True Then
SQLstr = "SELECT * FROM TheTable WHERE Code LIKE '%" & TextBox1.Text & "%'"
ElseIf RadioButton2.Checked = True Then
SQLstr = "SELECT * FROM TheTable WHERE Mall LIKE '%" & TextBox1.Text & "%'"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox7.DataBindings.Clear()
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox6.DataBindings.Clear()
TextBox55.DataBindings.Clear()
TextBox5.DataBindings.Clear()
TextBox1.Text = ""
TextBox7.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox6.Text = ""
TextBox5.Text = ""
TextBox55.Text = ""
Button1.Enabled = True
SQLstr = ""
DataSet1.Clear()
Me.DataGridView1.DataSource = Nothing
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
FORM1.Show()
Me.Close()
End Sub
End Classالمشكله في اسماء الجداول
الجدول الاول اسمه الرئيسي HeadInv_Tbl
الجدول الثاني اسمه InvDetail_Tbl
طبعا قاعده الييانات اسمها MR
الان بالنسبه للكود الذي وضعته
على ما اعتقد يتم وضعه هكذا
للبحث الخاص
كود :
Public Sub ExactSearch()
If RadioButton1.Checked = True Then
SQLstr = "SELECT * FROM InvDetail_Tbl,HeadInv_Tbl WHERE InvDetail_Tbl.HeadInvNo=HeadInv_Tbl.ID and where Mall_Name=textbox1.text"
ElseIf RadioButton2.Checked = True Then
SQLstr = "SELECT * FROM InvDetail_Tbl,HeadInv_Tbl WHERE InvDetail_Tbl.HeadInvNo=HeadInv_Tbl.ID and where MRNo=textbox1.text"
End If
End Subللبحث العام
كود :
Public Sub GeneralSearch()
If RadioButton1.Checked = True Then
SQLstr = "SELECT * FROM InvDetail_Tbl,HeadInv_Tbl WHERE InvDetail_Tbl.HeadInvNo Like HeadInv_Tbl.ID and where Mall_Name Like '%" & TextBox1.Text & "%'"
ElseIf RadioButton2.Checked = True Then
SQLstr = "SELECT * FROM InvDetail_Tbl,HeadInv_Tbl WHERE InvDetail_Tbl.HeadInvNo Like HeadInv_Tbl.ID and where MRNo Like '%" & TextBox1.Text & "%'"
End If
End Subيبقى الجزء هذا
قمت ببعض التعديلات ولكن لا ادري هل هي صحيحيه ام لا
ولكن بالنسبه ل "TheTable"
لم اعرف كيف اغيرها هل اضعها اسم الجدول الاول او الجدول الثاني وهل يلزم ان اضع الجدولين مع بعض
شاهد الكود
كود :
Static m As Integer = 0
If TextBox1.Text = Trim("") Then Exit Sub
If RadioButton4.Checked = True Then
ExactSearch()
ElseIf RadioButton5.Checked = True Then
GeneralSearch()
End If
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "HeadInv_Tbl")
DataAdapter1.Fill(DataSet1, "InvDetail_Tbl")
Conn.Close()
TextBox7.DataBindings.Add("Text", DataSet1, "TheTable.Mall")
TextBox2.DataBindings.Add("Text", DataSet1, "TheTable.Code")
TextBox55.DataBindings.Add("Text", DataSet1, "TheTable.Repair_Cost")
TextBox5.DataBindings.Add("Text", DataSet1, "TheTable.MR_D")
TextBox3.DataBindings.Add("Text", DataSet1, "TheTable.Description_repairs")
TextBox6.DataBindings.Add("Text", DataSet1, "TheTable.Expiry_date_repairs")
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "HeadInv_Tbl"
DataGridView1.DataMember = "InvDetail_Tbl"
Button1.Enabled = False
If Me.BindingContext(DataSet1, "HeadInv_Tbl").Count = 0 Then
MsgBox("No Result, Please Try Again ")
Exit Sub
End If
Button2.Enabled = True
Button3.Enabled = True
End Subلكم جزيل الشكر
البحث في جدولين مترابطين - Sajad - 15-08-13
اخي العزيز بالنسبة للجزء الاول صحيح هذا ما أقصده أي يتم استخدام المساوات في حال البحث المطابق واستخدام Like في حال البحث العام
أما بالنسبة للجزء الثاني
سأعمل مثال بسيط وارفعه لك لكي تعرف كيف تستعلم من جدولين
فقط انتظرني قليلا
البحث في جدولين مترابطين - alaqsa - 15-08-13
sajad كتب :اخي العزيز بالنسبة للجزء الاول صحيح هذا ما أقصده أي يتم استخدام المساوات في حال البحث المطابق واستخدام Like في حال البحث العام
أما بالنسبة للجزء الثاني
سأعمل مثال بسيط وارفعه لك لكي تعرف كيف تستعلم من جدولين
فقط انتظرني قليلا
شكرا جزيلا اخي الكريم سجاد
وانا في انتظارك اخي العزيز
البحث في جدولين مترابطين - Sajad - 15-08-13
السلام عليكم
المثال في المرفقات