تقييم الموضوع :
  • 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
لما يكون العمود الذي نستعلم عنه مفتاح اساسي لا يتكرر او ترقيم تلقائي لن تحدث تكرارات لقيم.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ابي اربط برنامجي بسيرفر او قاعده بيانات مبارك 3 182 22-11-16, 02:57 PM
آخر رد: مبارك
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 7 368 24-07-16, 06:26 PM
آخر رد: سعود
  مشكله في عملية البحث علي كعبي 12 233 01-06-16, 01:21 AM
آخر رد: علي كعبي
  [VB.NET] مشكلة ترحيل واستدعاء التاريخ في sql mazen.excel 6 371 23-04-16, 03:13 AM
آخر رد: محمد كريّم
  [SQL] مشكله لم أجد لها .... فراس صلاح 0 127 29-12-15, 07:20 PM
آخر رد: فراس صلاح
  [VB.NET] تحديث البيانات من قاعده sql الي قاعده اخري Engwaeem22200 3 251 05-12-15, 03:19 AM
آخر رد: حريف برمجة
  [سؤال] حفظ التاريخ في sql moha11 5 532 15-09-15, 05:40 PM
آخر رد: أبو عمر
  مشكلة في إظهار عمود التاريخ في داتا جريد فيو mofhmy 4 877 13-08-15, 11:15 PM
آخر رد: أبوبكر سويدان
  خطأ فى التاريخ بخصوص Allow Null مصطفى_ظيمة 2 432 24-07-15, 03:08 PM
آخر رد: مصطفى_ظيمة
  مشكله فى تحويل قاعدة البيانات من 2007 الي 2003 sa86ra 4 690 09-02-15, 06:01 PM
آخر رد: sa86ra

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


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