تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اضافة التاريخ الى قاعدة البيانات
#1
السلام عليكم ورجمة الله وبركاته 

لدي قاعدة بيانات اكسس ولاكن اوجه مشكله في اضافة التاريخ حاولت اغير نوع الجدول الى تاريخ ولم ينفع وغيرتها الى نص ولم ينفع استخدمت كودين

الكود الاول
كود :
 Dim ConnStr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & Application.StartupPath & "\data\stag01y40.mdb;User ID=Admin;jet oledb:database password=4405;"

       Dim Conn As New OleDbConnection(ConnStr)
       Dim SQLstr As String


       Dim SavInto As New OleDb.OleDbCommand

       If Conn.State = ConnectionState.Open Then
           Conn.Close()


       End If







       SQLstr = "INSERT INTO [send] (id  , date , from_b , to_b , note_m , note1 , note2 , note3 , fr3)" & _
        "values ('" & TextBox1.Text & "','" & DateTimePicker1.Text  & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox3.Text & "','" & "1" & "','" & "0" & "','" & "0" & "','" & TextBox8.Text & "')"
       SavInto.CommandType = CommandType.Text
       SavInto.CommandText = SQLstr
       SavInto.Connection = Conn
       Conn.Open()
       'SavInto.CommandText = "UPDATE [table3] SET num14= '" & TextBox28.Text & ""


       SavInto.ExecuteNonQuery()
       SavInto.Dispose()


       Conn.Close()
الكود الثاني

كود :
Dim CmdInsert As New OleDbCommand
With CmdInsert
.Connection = Conn
.CommandType = CommandType.Text
.CommandText = "Insert Into send (id , date , from_b , to_b , note_m , note1 , note2 , note3 , fr3)values( @id ,  @date ,  @from_b ,  @to_b ,  @note_m ,  @note1 ,  @note2 ,  @note3 ,  @fr3)
.Parameters.Clear()
.Parameters.AddWithValue("@id", OleDbType.VarChar).Value = TextBox1.Text
.Parameters.AddWithValue("@date", OleDbType.Date).Value = DateTimePicker1.text
.Parameters.AddWithValue("@from_b", OleDbType.VarChar).Value = ComboBox1.Text
.Parameters.AddWithValue("@to_b", OleDbType.VarChar).Value = ComboBox2.Text
.Parameters.AddWithValue("@note_m", OleDbType.VarChar).Value = TextBox3.Text
.Parameters.AddWithValue("@note1", OleDbType.VarChar).Value = "1"
EndrWithers.AddWithValue("@note2", OleDbType.VarChar).Value = "0"
Tryrameters.AddWithValue("@note3", OleDbType.VarChar).Value = "0"
Ifarameters.AddWiThenlue("@fr3", OleDbType.VarChar).Value = TextBox8.Text
End With
Try
If Conn.State = 1 Then Conn.Close()
Conn.Open()
CmdInsert.ExecuteNonQuery()
Con.Close()
MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
CmdInsert = Nothing
Catch ex As Exception
Conn.Close()
MsgBox(Err.Description, MsgBoxStyle.Information)
Finally
If Conn.State = ConnectionState.Open Then Conn.Close()
End Try
End Sub


ارجو مساعدتي بحل هذه المشكله
الرد }}}
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
جرّب أخي الكريم تغيير كلمة date هكذا[date]
أو غيّر الكلمة تماما مثلا : dattee
تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: allo5_800 , elgokr
#3
(18-11-18, 02:11 AM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
جرّب أخي الكريم تغيير كلمة date هكذا[date]
أو غيّر الكلمة تماما مثلا : dattee
تحياتي

اشكرك اخي والله ما توقعت يكون للاسم هذا الاثر
الرد }}}
تم الشكر بواسطة: elgokr , عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 81 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  فلترة datagridview بدون قاعدة بيانات صالح عبدالله 3 295 02-02-24, 04:07 PM
آخر رد: صالح عبدالله
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 304 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [VB.NET] التاريخ في أداة أبو سامر لطباعة DataGridView مبرمج صغير 1 17 629 26-01-24, 01:52 AM
آخر رد: مبرمج صغير 1
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 399 24-01-24, 10:12 PM
آخر رد: annagui
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق

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


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