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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود اضافة kaiser3D 0 16 منذ 5 ساعة مضت
آخر رد: kaiser3D
  الاخوة الذين يواجهون مشكلة الحفظ في قاعدة بيانات اكسسس abo ragab 1 134 15-12-18, 11:12 PM
آخر رد: alsihran
  بخصوص التاريخ salah mansour 0 26 15-12-18, 05:01 PM
آخر رد: salah mansour
  [VB.NET] جمع قيمة اثناء عملية تحديث البيانات محمد اسماعيل 0 38 14-12-18, 07:32 PM
آخر رد: محمد اسماعيل
  [VB.NET] اضافة سريال لكل عملية محمد اسماعيل 4 115 14-12-18, 07:14 PM
آخر رد: محمد اسماعيل
  [VB.NET] اضافة الملفات محمد اسماعيل 9 601 10-12-18, 03:49 PM
آخر رد: tuscake
  مشكلة فى وضع كود جلب معلومات قاعدة البينات Mohamed Magdy 6 138 09-12-18, 08:14 AM
آخر رد: asemshahen5
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 82 08-12-18, 08:36 PM
آخر رد: masry4u
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 69 08-12-18, 02:22 PM
آخر رد: nandy2016
  [VB.NET] استفسار :- بخصوص تنزيل الداتا في قاعدة البيانات dubai.eig 0 46 06-12-18, 04:36 PM
آخر رد: dubai.eig

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


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