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

لدي مشكلة في اضافة حقول الداتا قريت فيو فعندما اضيف الحقول الى قاعدة البيانات لاتضاف كل الحقول وانما يضاف صف واحد فقط !!

وهذا هو الكود الذي اعمل به ..


كود :
Try
           con.Open()
           cmd.Connection = con
           cmd.CommandText = "insert into TABLE1 (name,age) values (@name,@age)"

           cmd.Parameters.Add("@name", SqlDbType.VarChar, 10)
           cmd.Parameters.Add("@age", SqlDbType.Int)

           cmd.Prepare()


           For Each row As DataGridViewRow In dgv2.Rows
               If Not row.IsNewRow Then
                   cmd.Parameters("@name").Value = row.Cells(0).Value.ToString
                   cmd.Parameters("@age").Value = row.Cells(1).Value.ToString


               End If
           Next
           cmd.ExecuteNonQuery()
           MessageBox.Show("insert succes")
       Catch ex As Exception
           MessageBox.Show("Error :" & ex.ToString())
       Finally
           con.Close()
           dgv2.Rows.Clear()

       End Try
الرد
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله
ربما ارفاق المشروع سيكون فكرة جيدة اخي الكريم .

اهلا و سهلا
لا اله الا الله الحنان المنان
الرد
تم الشكر بواسطة:
#3
(13-04-17, 11:31 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله  
ربما ارفاق المشروع سيكون فكرة جيدة اخي الكريم .

اهلا و سهلا

مشكور على الاجابة والتفاعل مع المشكلة

لقد ارفقت لك المشروع .. انه يدخل صف واحد فقط وانا اريده ان يدخل كافة البيانات في الداتا قريد .. وشكرا مرة اخرى


الملفات المرفقة
.rar   insertdgv.rar (الحجم : 120.5 ك ب / التحميلات : 32)
الرد
تم الشكر بواسطة:
#4
السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد تم إضافة قاعدة بيانات Access إلى مشروعك وإضافة نموذج بعنوان Form2 في نفس المشروع لعدم وجود قاعدة بيانات sql، وقد قمنا بتطبيق المثال بناء لطلبك.
المرفق بعد التعديل عليه :

.rar   khodor1985 - insertdgv.rar (الحجم : 224.24 ك ب / التحميلات : 35)
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: كود برمجي , كود برمجي
#5
(14-04-17, 11:55 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد تم إضافة قاعدة بيانات Access إلى مشروعك وإضافة نموذج بعنوان Form2 في نفس المشروع لعدم وجود قاعدة بيانات sql، وقد قمنا بتطبيق المثال بناء لطلبك.
المرفق بعد التعديل عليه :

مشكور اخي
ولكني اضفت القاعدة ولكن بداخل الملف , اسف على هذا الخطا كان يجب ان اضعها خارج الملف ولكني مبتدئ Big Grin 

الامر الثاني اني اعمل بفيجوال 2008 ولدي فيجوال 2010 ولكن يبدو انك تعمل بفيجوال اعلى لذلك لم يفتح معي المشروع Sad

انا اسف تعبتك معاي

انا اسف اخي khodor1985 لا اريد ان اتعبك معي فقط اكتب لي كود 'الحفظ ' اذا امكن وانا ساجربة وان عمل او لم يعمل ساعلمك
الرد
تم الشكر بواسطة:
#6
لقد تم التعديل على إصدار المشروع بناء لطلبك
المشروع بعد التعديل عليه :

.rar   khodor1985 - 2008 - tinsertdgv.rar (الحجم : 231.16 ك ب / التحميلات : 31)

PHP كود :
Imports System.Data.OleDb
Imports System
.Data
Public Class Form2
    Dim con 
As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MyDb.accdb")
    
Dim cmd As OleDbCommand
    Dim da 
As OleDbDataAdapter
    Dim dt 
As DataTable
    Dim sqlstr 
As String

    Sub loadPerson
()
        Try
            
dgvPerson.Rows.Clear()
            
sqlstr "Select * from Person"
            
da = New OleDbDataAdapter(sqlstrcon)
            
dt = New DataTable("Person")
            
da.Fill(dt)
            For 
Each rw As DataRow In dt.Rows
                dgvPerson
.Rows.Add(rw(0), rw(1), rw(2))
            
Next
        
Catch ex As Exception
            MessageBox
.Show(ex.Message)
        
End Try
    
End Sub

    Sub InsertPerson
()
        Try
            
con.Open()

            For 
Each rw As DataGridViewRow In dgvPerson.Rows
                sqlstr 
"Insert Into Person(Fname,Age) Values(@Fname,@Age)"
                
cmd = New OleDbCommand(sqlstrcon)
                
cmd.Parameters.Add("@Fname"OleDbType.VarWChar).Value rw.Cells(1).Value.ToString()
                
cmd.Parameters.Add("@Age"OleDbType.VarWChar).Value rw.Cells(2).Value.ToString()
                
cmd.ExecuteNonQuery()
            
Next
            con
.Close()
        Catch 
ex As Exception

        End 
Try
    
End Sub

    Sub DeleteAllPerson
()
        Try
            
con.Open()
            
sqlstr "Delete From Person"
            
cmd = New OleDbCommand(sqlstrcon)
            
cmd.ExecuteNonQuery()
            
con.Close()
        Catch 
ex As Exception

        End 
Try
    
End Sub

    
Private Sub btnSave_Click(sender As ObjectAs EventArgsHandles btnSave.Click
        DeleteAllPerson
()
        
InsertPerson()
        
loadPerson()
    
End Sub

    
Private Sub Form2_Load(sender As ObjectAs EventArgsHandles MyBase.Load
        loadPerson
()
    
End Sub
End 
Class 
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: Amir_Alzubidy
#7
(15-04-17, 12:18 AM)khodor1985 كتب : لقد تم التعديل على إصدار المشروع بناء لطلبك
المشروع بعد التعديل عليه :


PHP كود :
Imports System.Data.OleDb
Imports System
.Data
Public Class Form2
    Dim con 
As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MyDb.accdb")
 
   Dim cmd As OleDbCommand
    Dim da 
As OleDbDataAdapter
    Dim dt 
As DataTable
    Dim sqlstr 
As String

    Sub loadPerson
()
 
       Try
            dgvPerson
.Rows.Clear()
 
           sqlstr "Select * from Person"
 
           da = New OleDbDataAdapter(sqlstrcon)
 
           dt = New DataTable("Person")
 
           da.Fill(dt)
 
           For Each rw As DataRow In dt.Rows
                dgvPerson
.Rows.Add(rw(0), rw(1), rw(2))
 
           Next
        Catch ex 
As Exception
            MessageBox
.Show(ex.Message)
 
       End Try
 
   End Sub

    Sub InsertPerson
()
 
       Try
            con
.Open()

 
           For Each rw As DataGridViewRow In dgvPerson.Rows
                sqlstr 
"Insert Into Person(Fname,Age) Values(@Fname,@Age)"
 
               cmd = New OleDbCommand(sqlstrcon)
 
               cmd.Parameters.Add("@Fname"OleDbType.VarWChar).Value rw.Cells(1).Value.ToString()
 
               cmd.Parameters.Add("@Age"OleDbType.VarWChar).Value rw.Cells(2).Value.ToString()
 
               cmd.ExecuteNonQuery()
 
           Next
            con
.Close()
 
       Catch ex As Exception

        End 
Try
 
   End Sub

    Sub DeleteAllPerson
()
 
       Try
            con
.Open()
 
           sqlstr "Delete From Person"
 
           cmd = New OleDbCommand(sqlstrcon)
 
           cmd.ExecuteNonQuery()
 
           con.Close()
 
       Catch ex As Exception

        End 
Try
 
   End Sub

    Private Sub btnSave_Click
(sender As ObjectAs EventArgsHandles btnSave.Click
        DeleteAllPerson
()
 
       InsertPerson()
 
       loadPerson()
 
   End Sub

    Private Sub Form2_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        loadPerson
()
 
   End Sub
End 
Class 
انا اسف جدا ولكني عدلت على قاعده البيانات سيرفر ولكنها لم تنجح معي ونفس المشكلة يحفظ صف واحد فقط.. جدا اسف ولكن لو تكرمت وعدلت على الاسكيول سيرفر تكون ماقصرت معي .. لقد ارفقت لك قاعدة البيانات ..


الملفات المرفقة
.rar   dgvinsert.rar (الحجم : 131.25 ك ب / التحميلات : 33)
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy
#8
ماشي

أخي العزيز في مشكلة في ملف الـ Backup
إما أن ترفق نلف الـ Backup من جديد أو تعمل DeAttach للقاعدة لكي تتمكن من ضغطها ورفعها

طيب شوف أنا رح أعمل مثال نفس مثالك على قاعدة بيانات من نو ع Sql.

لا يمكنني ذلك لأن SQL عندي إصداره 2014 وأنت عندك إصدار الـ سيكوال أكيد قديم
إرفع القاعدة لو سمحت
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy
#9
(15-04-17, 01:08 AM)khodor1985 كتب : ماشي

أخي العزيز في مشكلة في ملف الـ Backup
إما أن ترفق نلف الـ Backup من جديد أو تعمل DeAttach للقاعدة لكي تتمكن من ضغطها ورفعها

طيب شوف أنا رح أعمل مثال نفس مثالك على قاعدة بيانات من نو ع Sql.

اخي خلاص كودك نفز .. انا غلطت في التعديل في شي ماانتبهت لاني اعدله


انا ااااااااااسف جدا والله تعبتك معاي كتير كتير بس ربنا يجعله في ميزان حسناتك ان شاءالله .. بجد كل كلمات الشكر ماتوفيك حقك بس ماعارف كيف اعبر ..

شكرررررررررررررررررررررررا .. ومرة ثانية اسف لتعبك معاي
الرد
تم الشكر بواسطة: khodor1985 , khodor1985 , Amir_Alzubidy , Amir_Alzubidy
#10
لا يمكنني ذلك لأن SQL عندي إصداره 2014 وأنت عندك إصدار الـ سيكوال أكيد قديم
إرفع القاعدة لو سمحت

الحمد لله
بخدمتكم أخي
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: Amir_Alzubidy , كود برمجي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] رفعت قاعدة بيانات access على Google Drive ولم استطع استعراض التقارير؟؟ abomo3ath 10 263 منذ 42 دقيقة مضت
آخر رد: atefkhalf2004
Exclamation ما هذا ؟ مشكلة في اداة ShockwaveFlash لعرض فيديوهات الـ Youtube YousefOkasha 6 60 منذ 3 ساعة مضت
آخر رد: YousefOkasha
  [VB.NET] استيراد اعمدة جريد فيو من قاعدة بيانات اكسس حسب الاختيار Marwan9990 4 72 منذ 9 ساعة مضت
آخر رد: Marwan9990
  [سؤال] اريد طريقه بسيطه لعمل اضافه لكل محتويات الداتا جريد الى قاعده البيانات MYSQL dametucorazon 2 27 اليوم, 08:30 AM
آخر رد: dametucorazon
  مشكلة فى استدعاء الفاتورة للتعديل عليها atef_020 27 368 أمس, 10:23 PM
آخر رد: atefkhalf2004
  اضافة حركة لليبل حافظ حافظ 7 118 أمس, 12:11 AM
آخر رد: elgokr
  [VB.NET] كيف يمكن تفادي مشكلة اقلاع البرنامج اكثر من مرة larbihamri 4 82 20-07-18, 03:29 AM
آخر رد: YousefOkasha
  [VB.NET] تعديل قاعدة البيانات محمد اسماعيل 7 86 18-07-18, 07:26 PM
آخر رد: elgokr
  [سؤال] كفية عمل شات يعتمد فقط على قاعدة البيانات sql alims 3 79 17-07-18, 01:27 PM
آخر رد: محمد اسماعيل
  [VB.NET] سؤال عن قاعدة البيانات من الخبراء محمد اسماعيل 2 86 17-07-18, 01:25 PM
آخر رد: محمد اسماعيل

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


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