تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن جملة select اسلام الكبابى 9 185 12-09-21, 01:03 AM
آخر رد: اسلام الكبابى
  تحويل multiline text الى single line في عمود في قاعدة بيانات sql server bassant 0 79 07-09-21, 04:36 PM
آخر رد: bassant
  الحفظ فى قاعدة البيانات اسلام الكبابى 10 398 06-09-21, 06:52 PM
آخر رد: اسلام الكبابى
  [سؤال] كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW atef_020 9 24,018 31-08-21, 04:59 AM
آخر رد: a7med saba
  [Acces2010] عمل قاعدة بيانات لنظام غيابات الطلبة hassan karim 1 481 31-08-21, 04:47 AM
آخر رد: a7med saba
  [سؤال] كيفية الوصول الى قاعدة بيانات mysql موجودة على الكمبيوتر المحلي xammp عن طريق النت alfaiz678 4 526 25-06-21, 09:46 AM
آخر رد: alfaiz678
  طريقة أضافة اكثر من سيرفر على نفس قاعدة البيانات alim54 0 187 20-06-21, 11:20 PM
آخر رد: alim54
  [سؤال] عدم إظهار الصور مع النص فى Listview من قاعدة البيانات alims 1 540 08-04-21, 11:46 PM
آخر رد: alims
  ملى الصفحة تلقائياً او ربط مستعرض الانترنت بقاعدة البيانات علي عدنان 2 2,736 02-02-21, 01:31 AM
آخر رد: فارس زيدان
  [سؤال] مشكلة اضافة التاريخ مع قاعدة بيانات alims 6 822 25-01-21, 02:45 AM
آخر رد: alims

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


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