[shado1796]

[b]

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

اخواني انا عندي معلومات تم اضافتها في اداة listview اريد ان لا تذهب وتنحفظ في قاعدة بيانات SQL كيف اجعل البيانات تسحب وتحفظ من اداة listview

،، وشكرا

[/b]

[shado1796]

up up up up

[@@أبورائد@@]

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





تفضل هذا بسيط يمكنكك الاستفادة منه





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

[shado1796]

شكرا لك اخي ،، لكن المشروع لا يفتح انا املك 2010 ،، فقمت بفتح البرنامج لكن لست هذا ما اقصده
بل اقصد اني اضفت بيانات في اداة Listview اضافة فقط بدون حفظها في قاعدة بيانات وفي النهاية اضغط زر بوتون لحفظ ما تم اضافته في قااعدة بيانات SQL
وعند استخراجها تظهر نفس ما تم حفظه الى اداة Listview

[@@أبورائد@@]

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




ذكرت لك أن تستفيد من المثال، بمعنى خذ مايناسبك

ستجد الدالة SaveListView وظيفتها حفظ ما تم إضافته إلى قاعدة البيانات

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




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

[shado1796]

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته




ذكرت لك أن تستفيد من المثال، بمعنى خذ مايناسبك

ستجد الدالة SaveListView وظيفتها حفظ ما تم إضافته إلى قاعدة البيانات

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




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

شكرا لك ،، لكن مثل ما قلت لك المشروع لا يعمل عندي

[@@أبورائد@@]

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

shado1796 كتب :[b]شكرا لك ،، لكن مثل ما قلت لك المشروع لا يعمل عندي

تفضل الدالتان السابق ذكرهما

PHP كود :

' من قاعدة البيانات ListView إجراء تعبئة
    Private Sub FillListView()
        Me.ListView1.Items.Clear()

        Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM table1", conn)
        Dim dt As New DataTable
        da.Fill(dt)
        For Each r As DataRow In dt.Rows
            Dim itm As New ListViewItem
            ' للدلالة على أنه موجود في قاعدة البيانات id نضع رقم
            itm.Tag = r.Item("id")
            itm.Text = r.Item("name")
            itm.SubItems.Add(r.Item("phone"))
            itm.SubItems.Add(r.Item("address"))
            Me.ListView1.Items.Add(itm)
        Next
    End Sub


    ' في قاعدة البيانات ListView إجراء حفظ بيانات
    Private Sub SaveListView()

        conn.Open()
        For Each itm As ListViewItem In Me.ListView1.Items
            ' فإذا كان فهذا دليل على أنه غير موجود في قاعدة البيانات فنقوم بحفظ السطر id نختبر رقم
            If Val(itm.Tag) = 0 Then
                Dim comm As New OleDb.OleDbCommand("INSERT INTO table1 ([name],phone,address) VALUES (@name,@phone,@address)", conn)
                comm.Parameters.AddWithValue("@name", itm.Text)
                comm.Parameters.AddWithValue("@phone", itm.SubItems(1).Text)
                comm.Parameters.AddWithValue("@address", itm.SubItems(2).Text)
                comm.ExecuteNonQuery()
            End If
        Next
        conn.Close()

    End Sub 


[/b]
السلام عليكم ورحمة الله وبركاته

[sherf]

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


ممكن رفع الملف مره ثانية 








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