25-06-13, 02:07 PM
السلام عليكم ورحمه الله
اخواني الكريم
انا عندي قاعده بيانات اكسيس وصممت برنامج على vb.net 2010
انا المشكله عندي عندما اقوم بعملي هالبحث واريد ان اعمل تعديل يظهر لي خطأ والظاهر انه في التاريخ
هذا هو الكود المستعمل
الخطأ هو
اتمنى المساعده
ولكم جزيل الشكر
اخواني الكريم
انا عندي قاعده بيانات اكسيس وصممت برنامج على 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.
اتمنى المساعده
ولكم جزيل الشكر