SELECT tb1_id, tb1_type, tb1_mount, tb1_price
FROM tb1
UNION ALL
SELECT tb2_id, tb2_type, tb2_weight, tb2_price
FROM tb2
UNION ALL
SELECT tb3_id, tb3_type, tb3_count, tb3_price
FROM tb3
21-01-18, 03:46 PM (آخر تعديل لهذه المشاركة : 21-01-18, 03:53 PM {2} بواسطة محمد اسماعيل.)
(21-01-18, 03:31 PM)محمود صالح كتب : اتفضل اخي
جعل الاسماء او غير ذلك تحت بعض من جداول مختلفة
PHP كود :
SELECT TB1_TYPE FROM TB1 UNION SELECT TB2_TYPE FROM TB2 UNION SELECT TB3_TYPE FROM TB3
طيب دة في حالة عمود واحد لو عمودين زي حالتي هذة كيف يكود كود الاستعلام دة الكود كامل لضم عمود الاول فقط
كود :
Dim cmd As OleDbCommand = New OleDbCommand("SELECT tb1_type FROM tb1 UNION SELECT tb2_type FROM tb2 UNION SELECT tb3_name FROM tb3", con)
con.Open()
DataAdapter1 = New OleDbDataAdapter(cmd)
Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(DataAdapter1)
DataSet1 = New DataSet()
DataAdapter1.Fill(DataSet1, "tb1,tb2,tb3")
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "tb1,tb2,tb3"
con.Close()
(21-01-18, 03:41 PM)عبدالله الدوسري كتب : SELECT tb1_id, tb1_type, tb1_mount, tb1_price
FROM tb1
UNION ALL
SELECT tb2_id, tb2_type, tb2_weight, tb2_price
FROM tb2
UNION ALL
SELECT tb3_id, tb3_type, tb3_count, tb3_price
FROM tb3
جزاك اللّة خيرا
الحمد للّةتم الوصول للمطلوب بالكود التالي
الكود كامل لعل احد غيري يستفيد منة
كود :
Dim cmd As OleDbCommand = New OleDbCommand("SELECT tb1_type ,tb1_price FROM tb1 UNION SELECT tb2_type,tb2_price FROM tb2 UNION SELECT tb3_name,tb3_price FROM tb3", con)
con.Open()
DataAdapter1 = New OleDbDataAdapter(cmd)
Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(DataAdapter1)
DataSet1 = New DataSet()
DataAdapter1.Fill(DataSet1, "tb1,tb2,tb3")
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "tb1,tb2,tb3"
con.Close()
On Error Resume Next
If IsNumeric(TextBox1.Text) = False Then
Dim DataAdapter As New OleDbDataAdapter("SELECT tb1_type ,tb1_price FROM tb1 UNION SELECT tb2_type,tb2_price FROM tb2 UNION SELECT tb3_name,tb3_price FROM tb3 WHERE tb1_type LIKE '%" & Trim$(TextBox1.Text) & "%' or tb2_type like '%" & Trim$(TextBox1.Text) & "%'", con)
con.Open()
DataSet1.Clear()
DataAdapter.Fill(DataSet1, "tb1,tb2,tb3")
If Me.BindingContext(DataSet1, "tb1,tb2,tb3").Count = 0 Then
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "tb1,tb2,tb3")
con.Close()
count()
MsgBox("لم يتم العثور على شيء", 48 + MsgBoxStyle.MsgBoxRight, "البحث") : Exit Sub
Else
DataSet1.Clear()
DataAdapter.Fill(DataSet1, "tb1,tb2,tb3")
con.Close()
count()
21-01-18, 07:21 PM (آخر تعديل لهذه المشاركة : 21-01-18, 07:25 PM {2} بواسطة محمود صالح.)
اتفضل اخي ضع كل شرط امام جداوله
PHP كود :
Dim DataAdapter As New OleDbDataAdapter("SELECT tb1_type ,tb1_price FROM tb1 WHERE tb1_type LIKE '%" & Trim$(TextBox1.Text) & "%' UNION SELECT tb2_type,tb2_price FROM tb2 WHERE tb2_type like '%" & Trim$(TextBox1.Text) & "%' UNION SELECT tb3_name,tb3_price FROM tb3", con)
كود كامل بعد التعديل
PHP كود :
On Error Resume Next If IsNumeric(TextBox1.Text) = False Then
Dim DataAdapter As New OleDbDataAdapter("SELECT tb1_type ,tb1_price FROM tb1 WHERE tb1_type LIKE '%" & Trim$(TextBox1.Text) & "%' UNION SELECT tb2_type,tb2_price FROM tb2 WHERE tb2_type like '%" & Trim$(TextBox1.Text) & "%' UNION SELECT tb3_name,tb3_price FROM tb3", con) con.Open()
DataSet1.Clear()
DataAdapter.Fill(DataSet1, "tb1,tb2,tb3")
If Me.BindingContext(DataSet1, "tb1,tb2,tb3").Count = 0 Then DataSet1.Clear() DataAdapter1.Fill(DataSet1, "tb1,tb2,tb3") con.Close() count()
MsgBox("لم يتم العثور على شيء", 48 + MsgBoxStyle.MsgBoxRight, "البحث") : Exit Sub Else DataSet1.Clear() DataAdapter.Fill(DataSet1, "tb1,tb2,tb3") con.Close() count()