[moh developer]

(23-09-20, 06:46 AM)Mohamad Anan كتب : و عليكم السلام و رحمة الله و بركاته

أخي الكريم للحصول على سجل جديد فارغ يحتوي على نفس حقول الجدول عليك أولا ملئ الجدول بالبيانات
رسالة الخطأ تؤكد عدم وجود الحقل الثاني لأن فهرس الحقل الأول 0

ليصبح الكود بالترتيب التالي

كود :

       Dim con As New SqlConnection("Server= \SQLEXPRESS; Database = mail; Integrated Security = true")

       Dim da As New SqlDataAdapter
       Dim dt As New DataTable
       Dim cmd As New SqlCommand
       Dim cmdb As SqlCommandBuilder

       Dim strTableName As String = "TableName"

       REM تمرير أمر الإختيار لمحول البيانات
       da = New SqlDataAdapter("SELECT * FROM [" & strTableName & "]", con)
       REM لاستكمال عملية التحديث في حال حدوث خطأ
       da.ContinueUpdateOnError = True
       REM هنا يتم توليد أوامر التعديل و الحذف وفقاً لأمر الإختيار
       cmdb = New SqlCommandBuilder(da)
       REM مسح الجدول إذا كان مستخدم مسبقاً
       dt = New DataTable
       REM فتح الإتصال
       If con.State = ConnectionState.Closed Then con.Open()
       REM قراءة الجدول من القاعدة و حفظه في المتغير
       da.Fill(dt)
       REM إغلاق الإتصال
       con.Close()
       REM عند ملئ الجدول بالبيانات تحصل على سطر جديد بنفس الحقول
       Dim r As DataRow = dt.NewRow
       r(0) = TextBox1.Text
       dt.Rows.Add(r)
       REM فتح الإتصال
       If con.State = ConnectionState.Closed Then con.Open()
       da.Update(dt)
       REM إغلاق الإتصال
       con.Close()

مع العلم أني لم أختبر الكود و عدلته ضمن المشاركة فقط