منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم قواعد البيانات قسم أسئلة قواعد البيانات تحت بيئة الـ.NET البحث في جدولين مترابطين
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
البحث في جدولين مترابطين
alaqsa غير متصل
عضو مبدع
المشاركات : 216
المواضيع 28
الإنتساب : Mar 2013
السمعة : 0
الشكر: 0
تم شكره 6 مرات في 2 مشاركات
#11
14-08-13, 01:29 AM (آخر تعديل لهذه المشاركة : 14-08-13, 08:01 PM {2} بواسطة سعود.)
اخي الكريم سجاد تم رفع الملف بعد فحصه على اكثر من برنامج حمايه


اتمنى المساعده


ولكم جزيل الشكر
البحث
الرد }}}
تم الشكر بواسطة:
alaqsa غير متصل
عضو مبدع
المشاركات : 216
المواضيع 28
الإنتساب : Mar 2013
السمعة : 0
الشكر: 0
تم شكره 6 مرات في 2 مشاركات
#12
14-08-13, 07:49 PM
اخواني اتمنى المساعده

تم الرفع
البحث
الرد }}}
تم الشكر بواسطة:
Sajad غير متصل
المدير الفني
المشاركات : 1,817
المواضيع 141
الإنتساب : Sep 2013
السمعة : 112
الشكر: 7225
تم شكره 3459 مرات في 585 مشاركات
#13
14-08-13, 08:02 PM
اخي العزيز الملف المرفق فيه فايروس

فبرنامج الحماية التي لدي لا يقبل تنزيل الملف

لذا يرجى عدم ارفاق ملف مرفق من قبلك

اكتب كود المثال سوف نحل لك المشكلة ان شاءالله
البحث
الرد }}}
تم الشكر بواسطة:
Omar Mekkawy غير متصل
مراقب منتدى
المشاركات : 463
المواضيع 42
الإنتساب : Sep 2012
السمعة : 22
الشكر: 424
تم شكره 780 مرات في 162 مشاركات
#14
15-08-13, 04:52 AM
على ما اعتقد ان حاسوبك به فايروس قاتل Sad
وعلى الأغلب ينتشر بحاسوبك :mad:
حاول ماترفع أي ملفات لحين تنظيف حاسوبك Smile
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الموقع البحث
الرد }}}
تم الشكر بواسطة:
alaqsa غير متصل
عضو مبدع
المشاركات : 216
المواضيع 28
الإنتساب : Mar 2013
السمعة : 0
الشكر: 0
تم شكره 6 مرات في 2 مشاركات
#15
15-08-13, 11:11 AM
شكرا جزيلا لك اخي عمر مكاوي واخي الكريم سجاد

على الرغم من اني امتلك نسخه Smart Eset حديثه ومحدثه ولكن لا ادري من اين ياتي هذا الفايروس SadSadSad

وعلى العموم



بالنسبه للسؤال Big Grin

لدي واجهتين والواجه الاولى للاضافه وهي كما في الشكل التالي

[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 غير متصل
المدير الفني
المشاركات : 1,817
المواضيع 141
الإنتساب : Sep 2013
السمعة : 112
الشكر: 7225
تم شكره 3459 مرات في 585 مشاركات
#16
15-08-13, 11:23 AM
السلام عليكم

في زر البحث استعلم بالشكل التالي:

1- بالنسبة للبحث المطابق
كود :
select * from city,country where city.country_id=country.tid and where mallname=srchtext.text

2- البحث العاام

استبدل = بـ Like
البحث
الرد }}}
تم الشكر بواسطة:
alaqsa غير متصل
عضو مبدع
المشاركات : 216
المواضيع 28
الإنتساب : Mar 2013
السمعة : 0
الشكر: 0
تم شكره 6 مرات في 2 مشاركات
#17
15-08-13, 12:10 PM
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 غير متصل
المدير الفني
المشاركات : 1,817
المواضيع 141
الإنتساب : Sep 2013
السمعة : 112
الشكر: 7225
تم شكره 3459 مرات في 585 مشاركات
#18
15-08-13, 12:19 PM
اخي العزيز بالنسبة للجزء الاول صحيح هذا ما أقصده أي يتم استخدام المساوات في حال البحث المطابق واستخدام Like في حال البحث العام

أما بالنسبة للجزء الثاني

سأعمل مثال بسيط وارفعه لك لكي تعرف كيف تستعلم من جدولين

فقط انتظرني قليلا
البحث
الرد }}}
تم الشكر بواسطة:
alaqsa غير متصل
عضو مبدع
المشاركات : 216
المواضيع 28
الإنتساب : Mar 2013
السمعة : 0
الشكر: 0
تم شكره 6 مرات في 2 مشاركات
#19
15-08-13, 12:30 PM
sajad كتب :اخي العزيز بالنسبة للجزء الاول صحيح هذا ما أقصده أي يتم استخدام المساوات في حال البحث المطابق واستخدام Like في حال البحث العام

أما بالنسبة للجزء الثاني

سأعمل مثال بسيط وارفعه لك لكي تعرف كيف تستعلم من جدولين

فقط انتظرني قليلا


شكرا جزيلا اخي الكريم سجاد

وانا في انتظارك اخي العزيز
البحث
الرد }}}
تم الشكر بواسطة:
Sajad غير متصل
المدير الفني
المشاركات : 1,817
المواضيع 141
الإنتساب : Sep 2013
السمعة : 112
الشكر: 7225
تم شكره 3459 مرات في 585 مشاركات
#20
15-08-13, 01:05 PM
السلام عليكم

المثال في المرفقات


الملفات المرفقة
.zip   Example.zip (الحجم : 67.4 ك ب / التحميلات : 54)
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في كود عرض بيانات من جدولين samira20 1 2,569 18-04-19, 03:03 AM
آخر رد: حريف برمجة
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 2,531 21-02-19, 04:38 PM
آخر رد: elgokr
  كيف يمكنني التعامل مع جدولين Ahlam 14 10,722 16-12-18, 09:13 PM
آخر رد: viv
  مشكلة في كود البحث Search khaled12345 5 3,483 16-07-17, 08:22 PM
آخر رد: سعود
  [سؤال] استفسار عن كود البحث المتعدد Marwan9990 22 9,818 15-07-17, 11:51 AM
آخر رد: أبوبكر سويدان
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 9,507 03-07-17, 05:04 AM
آخر رد: K39
Sad [Acces2007] عاجل ارجو المساعدة لدي مشكلة مع برمجة زر البحث في الاكسس saimon 4 3,940 24-10-16, 07:54 PM
آخر رد: saimon
  [سؤال] مساعدة في حفظ بيانات من جدولين mosasaad 5 4,330 22-08-16, 10:25 AM
آخر رد: سعود
  مشكله في عملية البحث علي كعبي 12 5,745 01-06-16, 01:21 AM
آخر رد: علي كعبي
  إنشاء جريد فيو من جدولين djelloul 4 2,870 01-04-16, 11:33 PM
آخر رد: djelloul

التنقل السريع :


يقوم بقرائة الموضوع: