تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارسال بيانات من قاعدة البيانات الى القريد
#1
السلام عليكم ورحمة الله وبركاته

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

فكرته لدي القسم 100 يحمل عدة ارقام مثلا 12345 و 555555
والقسم 101 يحمل عدة ارقام مثلا 666666و 888888 و 999999

المطلوب ارسال بيانات 100الى القريد بحيث يكون العمود الاول عنوانه 100 وبياناته تأتي في القريد تحت العمود الاول
وارسال بيانات 101 الى القريد بحيث يكونت العمود الثاني عنوانه 101 وبياناته تأتي في القريد تحت العمود الثاني

الكود المرفق يظهر فقط واحد سجل المطلوب ارسال كل السجلات

الكود

كود :
Dim MYFilter As String = ""
        Dim MinDate As Date = Nothing
        Dim MaxDate As Date = Nothing
        Dim a, b As String
        Try
            MinDate = Me.DateTimePicker1.Text
        Catch ex As Exception
            MinDate = Nothing
        End Try
        Try
            MaxDate = Me.DateTimePicker2.Text
        Catch ex As Exception
            MaxDate = Nothing
        End Try

        '------ تشييك التاريخ --------------'
        If Me.DateTimePicker1.Text <> "" And DateTimePicker2.Text = "" Then
            MsgBox("يجب تعبئة خانة التاريخ الى")
            Exit Sub
        End If
        If MinDate > MaxDate Then
            MsgBox("عفواً يجب  ان يكون بداية تاريخ البحث أقل أو تساوي نهاية تاريخ البحث")
            DateTimePicker2.Text = ""
            Exit Sub
        End If
        '----------------------بداية الفلترة للبحث---------------------'
        If Not (MinDate = Nothing) AndAlso Not (MaxDate = Nothing) Then
            MYFilter = "WHERE (Msg_Date BETWEEN #" & Format(MinDate, "yyyy/MM/dd") & "# AND #" & Format(MaxDate, "yyyy/MM/dd") & "#)"
        ElseIf Not (MinDate = Nothing) Then
            MYFilter = "WHERE (Msg_Date  >= #" & Format(MinDate, "yyyy/MM/dd") & "#)"
        ElseIf Not (MaxDate = Nothing) Then
            MYFilter = "WHERE (Msg_Date  <= #" & Format(MaxDate, "yyyy/MM/dd") & "#)"
        End If

        a = "100"
        b = "101"
        Try
            For Each row As DataGridViewRow In Me.DataGridView1.Rows
                Dim cmdNC1 As New OleDbCommand("SELECT Fre FROM Msg_InformationB " & MYFilter & " AND Tar like '" & a & "'", Con)
                Dim cmdNC2 As New OleDbCommand("SELECT Fre FROM Msg_InformationB " & MYFilter & " AND Tar like '" & b & "'", Con)
                Con.Open()
                row.Cells(0).Value = cmdNC1.ExecuteScalar.ToString
                row.Cells(1).Value = cmdNC2.ExecuteScalar.ToString
                Con.Close()
            Next
        Catch ex As Exception

        End Try
الرد }}}}
تم الشكر بواسطة:
#2
هذا مثال
ارجو التعديل عليه
بداخل المشروع المطلوب


الملفات المرفقة
.rar   ExamHedDataGrid.rar (الحجم : 76.94 ك ب / التحميلات : 47)
الرد }}}}
تم الشكر بواسطة:
#3
وهذه محاولة اخرى بائت بالفشل

لوض عناوين القريد من جدول قاعدة البيانات حسب الاسم

كود :
Using MYDataAdapter As New OleDbDataAdapter("Select DISTINCT E_Name From tbl1", Con)
            Dim DataSet1 As New DataSet
            Call MYDataAdapter.Fill(DataSet1, "E_NameTable")
            For Each MYRow As DataRow In DataSet1.Tables("E_NameTable").Rows
                Dim b As String = MYRow.Item("E_Name")
                If String.IsNullOrEmpty(b) = Nothing Then
                    Re = b
                    MsgBox(Re)
                    Me.TextBox1.Text = b
                    'Me.DataGridView1.Rows.Clear()
                    'Me.DataGridView1.Columns.Clear()
                    'Me.DataGridView1.Refresh()
                    'For n As Integer = 1 To Me.TextBox1.Text
                    '    Me.DataGridView1.Columns.Add("Columns", n)
                    'Next
                    'For o As Integer = 0 To Me.TextBox1.TextLength - 1
                    '    Me.DataGridView1.Columns(o).Width = 30
                    'Next
                End If
            Next MYRow
        End Using
الرد }}}}
تم الشكر بواسطة:
#4
تم بحمد الله ارسال بيانات الاسم من جدول بقاعدة البيانات الى عناوين الداتا قريد
يتبقى ارسال بيانات كل اسم داخل القريد كل بيانات تحت الاسم الخاص به

وهذا كود لارسال الاسماء الى عناوين القريد

كود :
If Con.State = ConnectionState.Open Then Con.Close()
        Con.Open()
        Using MYDataAdapter As New OleDbDataAdapter("SELECT DISTINCT E_Name FROM tbl1", Con)
            Call MYDataAdapter.Fill(DataSet1, "E_NameTable")
            For Each MYRow As DataRow In DataSet1.Tables("E_NameTable").Rows
                Dim a As String = MYRow.Item("E_Name")
                Me.DataGridView1.Columns.Add("Columns", a.ToString)
            Next MYRow
        End Using
الرد }}}}
تم الشكر بواسطة:
#5
كود ارسال البيانات الى القريد
لكن لا تزال المشكلة في العمود الثاني لم تتم

كود :
If Con.State = ConnectionState.Open Then Con.Close()
        Con.Open()
        Dim DataSet2 As New DataSet
        DataSet2.Clear()
        Me.DataGridView1.Rows.Clear()
        Using MYDataAdapter As New OleDbDataAdapter("SELECT E_Type FROM tbl1 Where E_Name like '" & Me.DataGridView1.Columns(0).HeaderText & "'", Con)
            Call MYDataAdapter.Fill(DataSet2, "E_TypeTable")
            For Each MYRow As DataRow In DataSet2.Tables("E_TypeTable").Rows
                Dim a As String = MYRow.Item("E_Type")
                ' Me.DataGridView1.Rows.Add(a.ToString)
                Me.DataGridView1.Rows.Add(Me.DataGridView1.Rows(0).Cells(0).Value, a.ToString)
            Next MYRow
        End Using

يخونا حد يقول حاجة
ولا هو مثالي مش واضح
الرد }}}}
تم الشكر بواسطة:
#6
بصرحة انا مش فهم حاجة اسف Rolleyes
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}}
تم الشكر بواسطة:
#7
ألق نظرة على هذا الفيديو:

https://www.youtube.com/watch?v=e5LV7XoNS6U
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 6 5,933 04-10-17, 10:08 PM
آخر رد: sofiane0552
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 1,618 24-09-17, 08:23 PM
آخر رد: alsouf
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 139 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 182 15-08-17, 02:11 PM
آخر رد: abozeyd
  ممكن تعديل كود انشاء قاعدة اكسس بالكود سعود 8 278 07-08-17, 11:26 PM
آخر رد: أبو نوره
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 169 19-07-17, 03:24 PM
آخر رد: waelalmsry75
  تضمين قاعدة بيانات MySQL مع الرنامج Jounior_P 8 274 19-07-17, 01:58 PM
آخر رد: Jounior_P
Question [سؤال] كيف يتم تشغيل قاعدة بيانات SQL SERVER دون تنصيب MS SQL SERVER alimoi79 1 206 16-07-17, 02:56 AM
آخر رد: ابو ليلى
  [كود] المساعدة في كود بحث برقم التسلسل اذا كان الرقم غير موجود داخل قاعدة بيانات تخرج رسالة وادي العوضي 3 187 14-07-17, 09:43 AM
آخر رد: وادي العوضي
Rainbow [VB.NET] كيف يمكنني الإتصال بملف قاعدة البيانات نوع Paradox sniperjawadino 2 172 12-07-17, 01:20 PM
آخر رد: sniperjawadino

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم