28-02-13, 02:30 AM
(آخر تعديل لهذه المشاركة : 28-02-13, 02:48 AM {2} بواسطة ahmed mohamed soliman.)
السلام عليكم ورحمة الله وبركاته
انا عندي مثال وهو بالمرفقات وهو يضيف ويحفظ في قاعدة بيانات لكن المشكلة اني اريد ان يظهر البيانات في اللست فيو فقد كنت في قواعد الاكسس استخدم هذا الكود التالي :
هذا في كود الفورم
وهنا نضع الامر في زر بوتون
وكما نعرف ان الفرق بين القاعدة الاكسس وقاعدة SQL Server في الكود السابق
الاكسس
DataAdapter
وال SQL Server
SqlCommand
لكني واجهت مشاكل فهل من تعديل على المثال في المرفقات باسرع وقت تكفوون ..
انا عندي مثال وهو بالمرفقات وهو يضيف ويحفظ في قاعدة بيانات لكن المشكلة اني اريد ان يظهر البيانات في اللست فيو فقد كنت في قواعد الاكسس استخدم هذا الكود التالي :
هذا في كود الفورم
كود :
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
لكني واجهت مشاكل فهل من تعديل على المثال في المرفقات باسرع وقت تكفوون ..