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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء تجربة المثال المرفق لتصدير البيانات الى اكسيل new_programer 7 122 منذ 3 ساعة مضت
آخر رد: new_programer
  [سؤال] عرض الصورة من قاعدة البيانات محمد اسماعيل 3 72 أمس, 06:28 AM
آخر رد: princelovelorn
  [كود] أريد حل مشكلة في إدخال الوقت و التاريخ lolo queen 17 6,104 أمس, 03:01 AM
آخر رد: اسامه الهرماوي
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 4 102 14-02-19, 06:46 PM
آخر رد: عبد العزيز البسكري
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 3 96 11-02-19, 11:39 PM
آخر رد: princelovelorn
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 9 167 06-02-19, 01:16 PM
آخر رد: sendbad100
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 2 59 05-02-19, 11:59 AM
آخر رد: raaddawood
  ماهو سبب وجود سجل فارغ عند إضافة البيانات من الداتاقريد فيو أكثر من مرة جيولوجي مبتدئ 1 82 03-02-19, 07:24 PM
آخر رد: asemshahen5
  ماهو سبب وجود سجل فارغ عند إضافة البيانات من الداتاقريد فيو أكثر من مرة جيولوجي مبتدئ 0 48 02-02-19, 11:25 AM
آخر رد: جيولوجي مبتدئ
  [سؤال] نص اتصال قاعدة sqlite بكلمة المرور princelovelorn 6 201 01-02-19, 03:50 AM
آخر رد: princelovelorn

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


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