بحث متعدد في الداتا قريد فيو

السلام عليكم

ممكن عمل جدول temp واقصد جدول اخر تتم اضافة ناتج الاستعلام فية من الجدول الرئيسي

ومن ثم ربط الجدول temp مع datagridview

ونقوم بوضع جملة delete في form-load لحذف محتويات temp

اذا كنت تستخدم TableAdapter غير خاصية ClearBeforeFill =False

*

AHMAD KALIL كتب:

السلام عليكم

ممكن عمل جدول temp واقصد جدول اخر تتم اضافة ناتج الاستعلام فية من الجدول الرئيسي

ومن ثم ربط الجدول temp مع datagridview

ونقوم بوضع جملة delete في form-load لحذف محتويات temp

وعليكم السلم ورحمة الله وبركاته

أخوي مشكور على ردك بس ممكن توضح لي بشكل تفصيلي أكثر لأني فهمت الفكرة بس ما اعرف كيف أنفذها !

وشكراً

*

KARIMSOFT كتب:

اذا كنت تستخدم TableAdapter غير خاصية ClearBeforeFill =False

أنا ما استخدم الـ TableAdapter

وشكراً

السلام عليكم

هذا مثال عبارة عن تنفيذ جملة استعلام لنقل بيانات من جدول الى اخر بشرط معين

الجدول tb1 سنضيف اليه البيانات من جدول tb2 وبعدها نفذ الكود الخاص بك للربط بين tb1 وال datagridview

Dim cm1 As New SqlCommand
        cm1.Connection = cnn
        cm1.CommandType = CommandType.Text

        cm1.CommandText = ("Insert into tb1 (username,password,id) (select username,password,id from tb2 where id = '" & TextBox4.Text & "')")
        cnn.Open()
        cm1.ExecuteNonQuery()
        cnn.Close()

انا استخدم sqlserver يمكن تحويل الى اكسس OleDb

أخوي شكرا على الكود ،

لكن الظاهر إني غلطت بالشرح شويَ . .

أنا بكلمة جدول ما أقصد جدول في الداتا بيس /

كلمة جدول كنت اقصد فيها داتا قريد فيو بس بالسرعه كتبت جدول فيمكن تم فهم سؤالي غلط

وشكراً

.

.

[ . .

انا ادخل رقم الشخص في التكست بوكس واضغط بحث فتطلع لي بيانات الشخص في الداتا قريد فيو

لكن الفكرة اللي في بالي وابغي انفذها اني اسوي اكثر عن بحث وكلهم يطلعون في نفس الداتا قريد فيو ،

يعني :

أول مره أدخل رقم ( 1 ) في التكست بوكس ولما اضغط بحث تطلع بيانات الشخص هذا في اول سطر في الداتا قريد فيو

بعدين امسح رقم ( 1 ) وادخل رقم ( 2 ) ولما اسوي بحث لازم تطلع البيانات في السطر الثاني من الداتا قريد فيو بدون لا تنحذف بيانات رقم ( 1 ) من الداتا قريد فيو

فيكون جي عندي في الداتا قريد فيو سطرين السطر الاول لبيانات الشخص رقم ( 1 ) والسطر الثاني لبيانات الشخص رقم ( 2 ) وجي تتكرر العملية يعني اني اضيف ثلاثة واربعة وممكن عشر اشخاص في الداتا قريد فيو بدون لا افقد معلومات اي شخص

. . ]

غيرت كلمة جدولَ وأتمنى يكون شرحي وضح لكم أكثر . . وان شاء الله الصور توضح والسموحه

السلام عليكم

نعم الجواب كان لاضافة البيانات الى datagridview ولكن قبل الاضافة

اجريت عملية نقل البيانات المستعلم عنها الى جدول اخر في قاعدة البياتات

من خلال الكود السابق وهو جدول مؤقت

ساوضح اكثر الجدول الرئيسي الذي تتعامل معه والذي فيه بيانات العمل A

والذي نحاول استخراج المعلومات منه ثابت . تقوم بعمل جدول في قاعدة

بيانات اكسس واسمه B بنفس حقول الجدول A لانه في بعض الحالات نحتاج

الى جدول مؤقت للخزن

بعد اضافة رقم العملية في Text والضغط على زر بحث نضع الكود السابق

والذي ينقل البانات من جدول A الى جدول B

ومن ثم جملة استعلام عن كل محتويات الجدول B

Dim cm1 As New SqlCommand
        Dim db1 As SqlClient.SqlDataAdapter
        Dim ds As New DataSet
        cm1.Connection = cnn
        cm1.CommandType = CommandType.Text

        cm1.CommandText = ("Insert into tb1 (username,password,id) (select username,password,id from tb2 where id = '" & TextBox4.Text & "')")
        cnn.Open()
        cm1.ExecuteNonQuery()
        cnn.Close()

        ' Read Data From New Table (tb1)
        db1 = New SqlClient.SqlDataAdapter("select * from tb1", cnn)
        cnn.Open()
        ds = New DataSet
        db1.Fill(ds, "tb1")
        cnn.Close()
        DataGridView1.DataSource = ds.Tables("tb1")

فكرة الجداول المؤقتة مفيدة خصوصا في التقارير

حيث تحتاج في عمليات الاستعلام الكبيرة واقصد

معالجة للبيانات من اكثر من جدول الناتج يجمع في

جدول اخر والتقرير يستند الى هذا الجدول

ولاتنسى البرمجة افكار

آممم أخوي شكرا على التوضيحَ

أنا جربت الكود بس ما ضبطَ يمكن لاني استخدم الوضع المنفصل

يطلع لي خطأ في جملة (الإنسرت)

        Savecommand.CommandText = "INSERT INTO T1(ID, M_Name, Pass, Age, BOD, Gender, Mobile) (select ID, M_Name, Pass, Age, BOD, Gender, Mobile from Tmuna where ID = ('" & TextBox1.Text & "') "

لو في حد يعرفَ يعدل الكود يخبرني وين الخلل وشكراً

لا إله إلا الله . . محمد رسول الله

السلام عليكم

ماهي datatype للحقول

ثانيا اذا امكن ارفاق الكود كامل

جميعها تكست =)

وهذا الكود المستخدم في البحث . .

* كود عملية البحث . . (موجود في الزر )

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button1.Click

 Static m As Integer = 0

        If Me.TextBox1.Text = "" Then Exit Sub

        SQLstr = "SELECT * FROM Tmuna WHERE ID = '" & TextBox1.Text & "'"

        newConnection.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newConnection)
        DataAdapter1.Fill(DataSet1, "Tmuna")
        newConnection.Close()

        DataTable1DataGridView.DataSource = DataSet1
        DataTable1DataGridView.DataMember = "Tmuna"


        Me.Button1.Enabled = False

        If Me.BindingContext(DataSet1, "Tmuna").Count = 0 Then
            MsgBox("الرجاء التأكد من الرقم ")
            Exit Sub
        End If

    End Sub

* كود المسح . . (موجود في التكست جينج)

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        Me.Button1.Enabled = True
        SQLstr = ""
        DataSet1.Clear()

    End Sub

السلام عليكم

اين كود جملة Insert التي فيها الخطأ

. . أعتذر فقد وضعت الكود السابق الذي كنت أجربه ،

هذا الكود الحالي . .

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button1.Click

        If Me.TextBox1.Text = "" Then Exit Sub


        Dim cm1 As New OleDb.OleDbCommand(SQLstr, newConnection)
        Dim db1 As New OleDbDataAdapter(SQLstr, newConnection)
        Dim ds As New DataSet
        cm1.Connection = newConnection
        cm1.CommandType = CommandType.Text

        cm1.CommandText = ("Insert into T1 (ID,M_Name,Age,BOD,Gender,Mobile) (select ID,M_Name,Age,BOD,Gender,Mobile from Tmuna where ID = '" & TextBox1.Text & "')")
        newConnection.Open()
        cm1.ExecuteNonQuery()
        newConnection.Close()

        ' Read Data From New Table (tb1) 
        db1 = New OleDbDataAdapter("select * from T1", newConnection)
        newConnection.Open()
        ds = New DataSet
        db1.Fill(ds, "T1")
        newConnection.Close()
        DataTable1DataGridView.DataSource = ds.Tables("T1")


    End Sub

السلام عليكم

الكود صحيح

تاكد من datatype للحقول في كلا الجدولين حيث لايمكن نقل حقل char الى integer

أخي تأكدت من الداتا تايب جميعها من نوع (تكست) . .