تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
(سؤال؟)كود اضافة التاريخ في قاعدة البيانات
#1
بسم الله الرحمن الرحيم 
اريد كود اضافة التاريخ في قاعدة البيانات 
انا كتبت هذا الكود ولكن لم يتم الاضافة .. هل يوجد خطأ في الكود ؟
كود :
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
       ''datt.Text = DateTimePicker1.Text
       If (TextBox2.Text = "" Or TextBox4.Text = "" Or RichTextBox1.Text = "") Then
           MsgBox(" ?↔?اكمل بياناتك")
       Else
           tafel1 = 1
           Try
               con.Open()
               com.Connection = con
               com.CommandText = "insert into sect1 (sect_numb,sect_name,data_sect,tafell,data_tafell,nots) values ( " & TextBox2.Text & ",'" & TextBox4.Text & "', " & DateTimePicker1.Text & " ," & tafel1.ToString & ", " & DateTimePicker2.Text & " ,'" & RichTextBox1.Text & "')"
               ' com.CommandText = "insert into sect1 values(" & TextBox2.Text & ",'" & TextBox4.Text & "','" & DateTimePicker1.ToString & "'," & tafel1 & ",'" & DateTimePicker2.ToString & "','" & RichTextBox1.Text & "')"
               com.ExecuteNonQuery()
               MsgBox("تم التسجيل بنجاح")

               ds.Reset()
               Dim sql4 As String = "select *from sect1 "
               Dim da As New SqlDataAdapter(sql4, con)
               da.Fill(ds, "sect1")
               DataGridView1.DataSource = ds.Tables(0)
           Catch ex As Exception
               MsgBox(ex.Message)
               MsgBox("لم يتم التسجيل")
           Finally
               con.Close()
           End Try
       End If
   End Sub
الرد
تم الشكر بواسطة:
#2
تم التعديل في هذا الجزء
مع بعض الترتيب
جرب الان
كود :
com.Connection = con
               com.CommandType = CommandType.Text
               com.CommandText = "insert into sect1 (sect_numb,sect_name,data_sect,tafell,data_tafell,nots) values ( '" & TextBox2.Text &
                   "','" & TextBox4.Text &
                   "','" & DateTimePicker1.Value &
                   "','" & tafel1.ToString &
                   "','" & DateTimePicker2.Value &
                   "','" & RichTextBox1.Text & "')"
               com.ExecuteNonQuery()
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart مشكلة ال ID في عدم تخزين وترتيب البيانات بشكل منتظم الرائد 5 110 18-07-19, 01:42 AM
آخر رد: الرائد
  منع التكرار في اضافة بيانات لقاعدة بيانات أكسس vb.net ahmedshafea 3 5,559 01-07-19, 12:28 PM
آخر رد: essamprog
Information [سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net fefooo29 4 3,482 10-06-19, 09:31 PM
آخر رد: sherf
  مساعدة في تصميم قاعدة بيانات ادارة ساعات عمل الموظفين Rabeea Qbaha 6 196 06-06-19, 12:23 AM
آخر رد: elgokr
Photo سؤال بخصوص ميزان مراجعه faysal13_13@hotmail.com 5 224 12-05-19, 05:00 PM
آخر رد: elgokr
  قاعدة البيانات بتقفل كل شوية احمد خطاب 5 280 11-05-19, 04:24 AM
آخر رد: احمد خطاب
  سؤال عن قواعد البيانات في فيجوال بيسك2015 Emam emam 6 218 11-05-19, 04:02 AM
آخر رد: Emam emam
  [VB.NET] مشغل قواعد البيانات sql , mysql محمد اسماعيل 2 167 20-04-19, 12:32 PM
آخر رد: محمد اسماعيل
  [VB.NET] قاعدة بيانات postgress tarek 2 252 06-04-19, 09:07 PM
آخر رد: elgokr
  [SQL] مشكلة في ربط قاعدة البيانات SQLSERVER2014 بـ فيجول بيسك 2017 اباذر 4 318 16-03-19, 12:00 AM
آخر رد: اباذر

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


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