[Kamil]

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

لحفظ الأصناف من DataGridView إلى قاعدة بيانات SQL Server في VB.NET، يمكنك اتباع الخطوات التالية:

استخراج البيانات من DataGridView:

قم بقراءة كل صف من DataGridView واستخراج البيانات.
الاتصال بقاعدة البيانات:

قم بإنشاء اتصال بقاعدة البيانات باستخدام SqlConnection.
تنفيذ عملية الإدخال:

قم بإعداد أمر SQL لإدخال البيانات في قاعدة البيانات باستخدام SqlCommand.
تكرار العملية لكل صف:

قم بتنفيذ أمر الإدخال لكل صف من DataGridView.
إليك مثال على كيفية تنفيذ هذه الخطوات:

PHP كود :

Imports System.Data.SqlClient

Private Sub SaveDataGridViewToDatabase()
    ' نص الاتصال بقاعدة البيانات
    Dim connectionString As String = "Data Source=YourServerName;Initial Catalog=YourDatabaseName;Integrated Security=True"

    ' إنشاء الاتصال بقاعدة البيانات
    Using connection As New SqlConnection(connectionString)
        ' فتح الاتصال
        connection.Open()

        ' بدء المعاملة
        Dim transaction As SqlTransaction = connection.BeginTransaction()

        Try
            ' إعداد أمر الإدخال
            Dim insertCommand As New SqlCommand("INSERT INTO YourTableName (Column1, Column2, Column3) VALUES (@Column1, @Column2, @Column3)", connection, transaction)

            ' إضافة المعاملات لأمر الإدخال
            insertCommand.Parameters.Add("@Column1", SqlDbType.VarChar)
            insertCommand.Parameters.Add("@Column2", SqlDbType.VarChar)
            insertCommand.Parameters.Add("@Column3", SqlDbType.Int)

            ' قراءة البيانات من DataGridView
            For Each row As DataGridViewRow In DataGridView1.Rows
                If Not row.IsNewRow Then
                    ' تعيين القيم للمعاملات
                    insertCommand.Parameters("@Column1").Value = row.Cells("Column1").Value.ToString()
                    insertCommand.Parameters("@Column2").Value = row.Cells("Column2").Value.ToString()
                    insertCommand.Parameters("@Column3").Value = Convert.ToInt32(row.Cells("Column3").Value)

                    ' تنفيذ أمر الإدخال
                    insertCommand.ExecuteNonQuery()
                End If
            Next

            ' تأكيد المعاملة
            transaction.Commit()

            MessageBox.Show("Data saved successfully!")
        Catch ex As Exception
            ' إذا حدث خطأ، التراجع عن المعاملة
            transaction.Rollback()
            MessageBox.Show("An error occurred: " & ex.Message)
        End Try
    End Using
End Sub 


تأكد من تعديل أسماء الأعمدة (Column1, Column2, Column3) وأسماء الجدول (YourTableName) والاتصال (YourServerName, YourDatabaseName) بما يتناسب مع إعداداتك الخاصة.


بهذا الكود، يمكنك استيراد البيانات من Excel إلى DataGridView، ثم حفظها في قاعدة البيانات باستخدام زر يقوم باستدعاء الدالة SaveDataGridViewToDatabase.