تقييم الموضوع :
  • 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 , عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تصدير البيانات من عدة جداول الى قالب وورد معد مسبقا" aljzazy 1 70 21-05-19, 02:03 PM
آخر رد: alshandodi
  [VB.NET] اضافة ايقونة لصفوف الداتاجريد فيو محمد اسماعيل 5 134 17-05-19, 10:33 PM
آخر رد: محمد اسماعيل
  [سؤال] حل مشكلة عدم وجود اضافة vlc في فجويل حاتمي 2 69 16-05-19, 02:11 PM
آخر رد: حاتمي
  أدوات قواعد البيانات في الدوت نت وطريقة استخدامها معتز حسن 4 155 16-05-19, 01:42 PM
آخر رد: elgokr
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 715 15-05-19, 08:24 PM
آخر رد: asemshahen5
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 9 188 15-05-19, 06:08 PM
آخر رد: makky
  [VB.NET] تعديل اكتر من صف بقاعدة البيانات محمد اسماعيل 7 209 11-05-19, 09:21 PM
آخر رد: elgokr
  [VB.NET] قواعد البيانات MDF اسامه الهرماوي 3 136 05-05-19, 01:24 AM
آخر رد: ابراهيم ايبو
  اضافة حقل الي الجدول برمجيا makky 1 73 04-05-19, 02:18 AM
آخر رد: makky
  فلترة البيانات باستخدام رسم بياني العيدروس 11 240 03-05-19, 01:34 AM
آخر رد: العيدروس

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


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