[ay.alhaj]

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


انا حاولت اكتب كود الحفظ بطريقة مختلفة بحيث اقوم باضافة كل التكست بوك الى قاعدة البيانات مرة واحدة عن طريقة عملية loop لكن لم تنجح الطريقة 

من يمكنه مساعدتي في تعديل هذا الكود وجزاكم الله كل خير

كود :

       Try
           Dim sql = ("select * from Company_Details where Company_ID=N'" & (Company_ID.Text) & "'")
           Dim adp As New SqlClient.SqlDataAdapter(sql, sqlconn)
           Dim ds As New DataSet
           adp.Fill(ds)
           Dim dt = ds.Tables(0)
           If dt.Rows.Count > 0 Then
               Exit Sub
           Else
               Dim dr = dt.NewRow

               Dim CTL As New Control



               For i = 0 To Me.Controls.Count - 1


                   If TypeOf CTL.Controls(i) Is TextBox And dr.Item(dr!CTL.Name(i)) = Me.Controls(i).Name Then


                       dr.Item(dr!CTL.Name(i)) = Me.Controls(i).Text


                   End If
               Next


                       dt.Rows.Add(dr)
                       Dim cmd As New SqlClient.SqlCommandBuilder(adp)
                       adp.Update(dt)

                       MsgBox("تم حفظ بيانات الشركة بنجاح", MsgBoxStyle.Information, "رسالة تأكيد ")
                   End If

       Catch ex As Exception
           MessageBox.Show(ex.Message, "فشل في عملية الحفظ ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
       End Try