تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله في اضافه التاريخ في قاعده البيانت
#1
السلام عليكم ورحمه الله


اخواني الكريم


انا عندي قاعده بيانات اكسيس وصممت برنامج على vb.net 2010

انا المشكله عندي عندما اقوم بعملي هالبحث واريد ان اعمل تعديل يظهر لي خطأ والظاهر انه في التاريخ

هذا هو الكود المستعمل

كود :
Imports System.Data
Imports JbsaPrintDataGridView
Imports System.Data.OleDb
Public Class FormRecodSearch
    Dim frm As New RecordMain
    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source =" & Application.StartupPath & "\Database.mdb"
    Dim Conn As New OleDbConnection(ConStr)
    Dim DataSet1 As New DataSet
    Dim SQLstr As String
    Dim m As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Static m As Integer = 0
        If TextBox1.Text = Trim("") Then Exit Sub
        If RadioButton4.Checked = True Then
            ExactSearch()
        ElseIf RadioButton5.Checked = True Then
            GeneralSearch()
        End If
        Conn.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
        DataAdapter1.Fill(DataSet1, "TheTable")
        Conn.Close()

        TextBox2.DataBindings.Add("Text", DataSet1, "TheTable.Code")
        TextBox3.DataBindings.Add("Text", DataSet1, "TheTable.Mall")
        TextBox4.DataBindings.Add("Text", DataSet1, "TheTable.Expiry_date_repairs")
        TextBox5.DataBindings.Add("Text", DataSet1, "TheTable.Repair_Cost")
        TextBox6.DataBindings.Add("Text", DataSet1, "TheTable.Description_repairs")




        DataGridView1.DataSource = DataSet1
        DataGridView1.DataMember = "TheTable"
        Button1.Enabled = False
        If Me.BindingContext(DataSet1, "TheTable").Count = 0 Then
            MsgBox("No Result, Please Try Again ")
            Exit Sub
        End If
        Button1.Enabled = True
        Button1.Enabled = True
    End Sub
    Public Sub ExactSearch()
        If RadioButton1.Checked = True Then
            SQLstr = "SELECT * FROM TheTable WHERE Code = '" & TextBox1.Text & "'"
        End If
    End Sub
    Public Sub GeneralSearch()
        If RadioButton1.Checked = True Then
            SQLstr = "SELECT * FROM TheTable WHERE Code LIKE '%" & TextBox1.Text & "%'"
        End If
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox2.ReadOnly = False
        TextBox3.ReadOnly = False
        TextBox5.ReadOnly = False
        TextBox6.ReadOnly = False
        m = TextBox2.Text
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim SavInto As New OleDb.OleDbCommand
        Dim adapter2 As New OleDbDataAdapter(SQLstr, Conn)
        SavInto.Connection = Conn
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = "UPDATE TheTable SET Mall = '" & Trim(TextBox3.Text) & "' , Expiry_date_repairs = '" & TextBox4.Value.ToShortDateString() & "' , Repair_Cost= '" & Trim(TextBox5.Text) & "' , Description_repairs= '" & Trim(TextBox6.Text) & "', WHERE Code ='" & m & "'"
        Conn.Open()
        SavInto.ExecuteNonQuery()
        Conn.Close()

        TextBox2.ReadOnly = True
        TextBox3.ReadOnly = True
        TextBox5.ReadOnly = True
        TextBox6.ReadOnly = True



    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox2.ReadOnly = True
        TextBox3.ReadOnly = True
        TextBox5.ReadOnly = True
        TextBox6.ReadOnly = True

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox2.DataBindings.Clear()
        TextBox3.DataBindings.Clear()
        TextBox4.DataBindings.Clear()
        TextBox5.DataBindings.Clear()
        TextBox6.DataBindings.Clear()

        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        
        Button1.Enabled = True
        SQLstr = ""
        DataSet1.Clear()
        Me.DataGridView1.DataSource = Nothing
    End Sub

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        RecordMain.Show()
        Me.Close()

    End Sub

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        PrintJbsaDataGridView.Print_Grid(Me.DataGridView1)
    End Sub
End Class

الخطأ هو

كود :
Syntax error in UPDATE statement.

اتمنى المساعده

ولكم جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
انا اظن بان الخطأ في هذا الجزء من الكود

كود :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim SavInto As New OleDb.OleDbCommand
        Dim adapter2 As New OleDbDataAdapter(SQLstr, Conn)
        SavInto.Connection = Conn
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = "UPDATE TheTable SET Mall = '" & Trim(TextBox3.Text) & "' , Expiry_date_repairs = '" & TextBox4.Value.ToShortDateString() & "' , Repair_Cost= '" & Trim(TextBox5.Text) & "' , Description_repairs= '" & Trim(TextBox6.Text) & "', WHERE Code ='" & m & "'"
        Conn.Open()
        SavInto.ExecuteNonQuery()
        Conn.Close()

        TextBox2.ReadOnly = True
        TextBox3.ReadOnly = True
        TextBox5.ReadOnly = True
        TextBox6.ReadOnly = True



    End Sub
الرد }}}
تم الشكر بواسطة:
#3
اتمنى المساعده يا اخوووواااان
الرد }}}
تم الشكر بواسطة:
#4
اخواني الكرام الرجاء المساعده
الرد }}}
تم الشكر بواسطة:
#5
اخواني الرجاء مساعدتي فانا في امس الحاجه لهذا الكود
الرد }}}
تم الشكر بواسطة:
#6
استخدم الاضافة بالبارمترات افضل واسهل
الرد }}}
تم الشكر بواسطة:
#7
اخي الكريم سعود شكرا على الرد

ولكن هل يمكن استخدام البارمترات في عمل update لقاعده البيانات ام فقط insert
انا اريد ان اعمل update اخي الكريم

اتمنى المساعده
الرد }}}
تم الشكر بواسطة:
#8
ميزة الاضافة بالبارامترات (عندي شخصيا) التعامل مع كل عمود بسطر مستقل بالكود مثال
كود :
dim cm as new oledbcommand("update tb set tname=@tname,age=@age where tid=@tid",con)
cm.parameters.addwithvalue("@tname",oledbtype.varchar).value=tname.text
cm.parameters.addwithvalue("@age",oledbtype.integer).value=val(age.text)
cm.parameters.addwithvalue("@tid",oledbtype.integer).value=val(tid.text)

con.open
try
cm.executenonquery
msgbox"تم التحديث بنجاح"
Catch ex As Exception
msgbox(err.description)
end try


لاحظ جملة oledbtype.varchar
هذي نوع البيانات المخزن يختلف من نوع لنوع
الرد }}}
تم الشكر بواسطة:
#9
اخي الكريم سعود جزالك ال هكل خير

انا استعملت الكود

ولكنه يقوم بكتاب جميع المدخلات بنفس القيمه لكل العمود المحدد

انا استعملته في عمليت البحث

اريد ان يعدل على الصف المحدد فقط

والتاريخ عند حفظه ياتي بهذي الصيغه لا ادري لماذا
2/8/1904

مع العمل انه تم الحفظ بتاريخ 17/03/2013

اتمنى مساعدتي
الرد }}}
تم الشكر بواسطة:
#10
لما يكون العمود الذي نستعلم عنه مفتاح اساسي لا يتكرر او ترقيم تلقائي لن تحدث تكرارات لقيم.
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغير التاريخ من ميلادي الى تقويم أم القرى aftfm 0 827 19-08-22, 03:48 AM
آخر رد: aftfm
  [سؤال] مشكلة اضافة التاريخ مع قاعدة بيانات alims 6 2,335 25-01-21, 02:45 AM
آخر رد: alims
  مشكله في برمجه زر الاضافه و الحفظ Medo84 2 1,422 07-01-21, 05:27 PM
آخر رد: Medo84
  مشكلة في إظهار عمود التاريخ في داتا جريد فيو mofhmy 5 6,558 12-11-20, 12:13 PM
آخر رد: bahaa.elkomy@yahoo.com
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 9 5,947 06-04-20, 12:12 AM
آخر رد: wadyreem
  [SQL] مشكله تشغيل السيكول على جهاز العميل m.farag87 1 1,694 29-06-19, 01:14 AM
آخر رد: سامي محمد
  (سؤال؟)كود اضافة التاريخ في قاعدة البيانات اسمهان 1 2,032 20-02-19, 11:08 AM
آخر رد: alfaiz678
  [VB.NET] مشكله فى التزمن issamsaidd 0 1,232 02-01-19, 08:34 AM
آخر رد: issamsaidd
  مشاكل التاريخ الهجري aftfm 3 2,559 05-04-18, 08:27 PM
آخر رد: aftfm
  [SQL] مشكلة تواجهنى عند محاولة استرجاع قاعده بيانات ahmedmansour 1 2,048 27-11-17, 09:39 PM
آخر رد: حريف برمجة

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


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