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

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

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

كود :
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

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


الملفات المرفقة
.zip   Example 2013.zip (الحجم : 90.01 ك ب / التحميلات : 41)
الرد }}}}
تم الشكر بواسطة:
#2
Up up up up
الرد }}}}
تم الشكر بواسطة:
#3
[COLOR="#800000"]السلام عليكم

اخي العزيز لا يوجد في المرفقات ملف قاعدة البيانات؟[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#4
sajad كتب :[COLOR="#800000"]السلام عليكم

اخي العزيز لا يوجد في المرفقات ملف قاعدة البيانات؟[/COLOR]

[COLOR="#FF0000"]
اسف اخي لقد نسيت ... ها هو في المرفقات [/COLOR]


الملفات المرفقة
.zip   Data.zip (الحجم : 19.15 ك ب / التحميلات : 29)
الرد }}}}
تم الشكر بواسطة:
#5
[COLOR="#800000"]السلام عليكم

البرنامج بعد التعديل في المرفقات

بالتوفيق ان شاءالله[/COLOR]


الملفات المرفقة
.rar   Example 2013.rar (الحجم : 85.81 ك ب / التحميلات : 63)
الرد }}}}
تم الشكر بواسطة:
#6
sajad كتب :[color="#800000"]السلام عليكم

البرنامج بعد التعديل في المرفقات

بالتوفيق ان شاءالله[/color]

اخي انا لا اقصد هكذا اريد العكس اريد حفظها في قاعدة بيانات sql
الرد }}}}
تم الشكر بواسطة:
#7
اسف اني لم ارفق ايضا هذه من الهم بسبب المشكلة Sad وهذي قاعدة sql مع البرنامج مع التعديل ..


الملفات المرفقة
.zip   Newwwwwwwwwww.zip (الحجم : 218.38 ك ب / التحميلات : 64)
الرد }}}}
تم الشكر بواسطة:
#8
[color="#800000"]السلام عليكم

اخي العزيز ما التعديل الذي تريده؟

هل تريد تحويل الاكواد للتعامل مع الsql ام ماذا؟

رجاءا وضح المطلوب بارك اللله فيك[/color]
الرد }}}}
تم الشكر بواسطة:
#9
[COLOR="#FF0000"]أخي كل مافي الموضوع ان المرفق الاخير الذي وضعته مشروع يضيف اسم ورقم في قاعدة بيانات SQL Server اريده عند الحفظ ان يحفظ في Listview الاسم والرقم
وشكرا لك ...[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#10
[COLOR="#800000"]اخي الكريم الاكواد المستخدمة في المشروع هي للتعامل مع الAccess وليس الsql

وجربت المشروع ووجدته يعلق عند الضغط على زر الحفظ؟[/COLOR]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة وقت الي الوقت الاصلي محمد وهبي 2 41 منذ 11 ساعة مضت
آخر رد: محمد وهبي
  مشكلة في عرض التقرير بعد التحويل الي ملف تنفيذي mo93 7 114 أمس, 09:13 PM
آخر رد: boudyonline
  [VB.NET] اضافة الصور لقاعدة البيانات SQL m.farag87 2 42 أمس, 04:30 PM
آخر رد: Rabeea Qbaha
  ممكن سؤال لأهل الخبره خاص بالتخزين sql server lemozza 5 70 20-10-17, 09:56 PM
آخر رد: lemozza
  مشكلة فى جعل label شفاف بعد استخدام label1.BringToFront الماجيك مسعد 7 135 20-10-17, 01:21 PM
آخر رد: الماجيك مسعد
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 5 123 18-10-17, 09:49 PM
آخر رد: سعود
  [VB.NET] تصحيح مشكلة في المشروع dubai.eig 2 50 17-10-17, 12:41 PM
آخر رد: dubai.eig
  مشكلة تظهر في البرنامج بسبب الداتا بيس اكسس khaled12345 2 66 16-10-17, 07:41 AM
آخر رد: khaled12345
  مشكلة في قراءة قيمة من الريجستري سعود الشامان 14 281 13-10-17, 07:30 PM
آخر رد: سعود الشامان
  اضافة 0 قبل العلامه العشريه فى التكست بوكس نبيل فتحى 6 120 08-10-17, 03:21 AM
آخر رد: نبيل فتحى

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


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