[shado1796]

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

انا عندي مثال وهو بالمرفقات وهو يضيف ويحفظ في قاعدة بيانات لكن المشكلة اني اريد ان يظهر البيانات في اللست فيو فقد كنت في قواعد الاكسس استخدم هذا الكود التالي :

هذا في كود الفورم

كود :

Me.FillListView()

كود :

'=======================================  امر ظهور بيانات اللسته ======================================
    Public Sub FillListView()
        DataSet1 = New DataSet
        DataAdapter1 = New OleDbDataAdapter("Select * From Table1", con)
        DataAdapter1.Fill(DataSet1, "Table1")

        Dim Items() As ListViewItem = (From Row As DataRow In DataSet1.Tables("Table1").Rows _
                                       Select New ListViewItem(New String() {Row("ID").ToString, Row("UserName").ToString, Row("MobileNumber").ToString})).ToArray
        ListView1.Items.Clear()
        ListView1.Items.AddRange(Items)
    End Sub
    '=======================================   انتهاء امر ظهور بيانات اللسته ==============================

وهنا نضع الامر في زر بوتون

كود :

ID = vbNullString

        Try
            If Not String.IsNullOrEmpty(TextBox1.Text) AndAlso Not String.IsNullOrEmpty(TextBox2.Text) Then
                Dim AddEditCmd As New OleDbCommand
                con.Open()
                AddEditCmd.Connection = con
                AddEditCmd.CommandType = CommandType.Text
                AddEditCmd.Parameters.Clear()


                AddEditCmd.Parameters.AddWithValue("@UserName", TextBox1.Text)
                AddEditCmd.Parameters.AddWithValue("@MobileNumber", TextBox2.Text)
                

                If Not String.IsNullOrEmpty(ID) Then
                    AddEditCmd.CommandText = "Update Table1 Set [UserName]=@UserName,[MobileNumber]=@MobileNumber Where ID=@ID"
                    AddEditCmd.Parameters.AddWithValue("@ID", ID)
                Else
                    AddEditCmd.CommandText = "INSERT INTO Table1([UserName],[MobileNumber]) VALUES(@UserName,@MobileNumber)"
                End If


                AddEditCmd.ExecuteNonQuery()
                AddEditCmd.Dispose()
                con.Close()


                Me.FillListView()

                If Not String.IsNullOrEmpty(ID) Then
                    MessageBox.Show("تم التعديل بنجاح", "تم", MessageBoxButtons.OK, MessageBoxIcon.Information)

                Else
                    Array.ForEach(Me.Controls.OfType(Of Button).ToArray, AddressOf EnableButton)
                    Array.ForEach(GroupBox1.Controls.OfType(Of Button).ToArray, AddressOf EnableButton)
                    MessageBox.Show("تمت الإضافة والحفظ بنجاح", "تم", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Else
                MessageBox.Show("يرجى التأكد من ادخال الاسم والرقم", "رسالة خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

وكما نعرف ان الفرق بين القاعدة الاكسس وقاعدة SQL Server في الكود السابق

الاكسس
DataAdapter

وال SQL Server
SqlCommand

لكني واجهت مشاكل فهل من تعديل على المثال في المرفقات باسرع وقت تكفوون ..