Perspolis
یک شنبه 08 اردیبهشت 1387, 13:07 عصر
سلام استاد اگه میشه مشکل منو حل کنید
من یک فرم مثل کد زیر طراحی کردم و داده ها رو به راحتی وارد میکنم و هیچ مشکلی نداره اما نمیدنم چرا یه فرم دیگه طراحی کردم موقع درج داده ها خطای : Syntax error in INSERT INTO statement. میده
کد مورد نظر:
Public Class frmChekBazar
Private m_cnADONetConnection As New OleDb.OleDbConnection
Private m_dtDataAdapter As OleDb.OleDbDataAdapter
Private m_cbCommandBuilder As OleDb.OleDbCommandBuilder
Private m_dtPYDb As New DataTable
Private m_rowPosition As Integer = 0
Private Sub frmChekBazar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'PYDbDataSet.People_Bazar' table. You can move, or remove it, as needed.
m_cnADONetConnection.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source= E:\PYDb.mdb"
m_cnADONetConnection.Open()
m_dtDataAdapter = New OleDb.OleDbDataAdapter("Select * From ChekBazar", m_cnADONetConnection)
m_cbCommandBuilder = New OleDb.OleDbCommandBuilder(m_dtDataAdapter)
m_dtDataAdapter.Fill(m_dtPYDb)
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
grChek.Enabled = True
Me.txtNam.Text = ""
Me.comProduce.Text = ""
Me.txtNumber.Text = ""
Me.txtIDChek.Text = ""
Me.comBank.Text = ""
Me.txtShobe.Text = ""
Me.txtDate.Text = ""
Me.txtPrice.Text = ""
Me.txtDescrip.Text = ""
End Sub
Private Sub Exi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Exi.Click
Me.m_cnADONetConnection.Close()
Me.m_cnADONetConnection.Dispose()
Me.Close()
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
If Me.grChek.Enabled = True Then
Dim drNewR As DataRow = m_dtPYDb.NewRow
drNewR("PoepleName") = Me.txtNam.Text
drNewR("ProduceName") = Me.comProduce.Text
drNewR("Number") = Me.txtNumber.Text
drNewR("ID_chek") = Me.txtIDChek.Text
drNewR("BankName") = Me.comBank.Text
drNewR("Shobe") = Me.txtShobe.Text
drNewR("Date_chek") = Me.txtDate.Text
drNewR("Sum_chek") = Me.txtPrice.Text
drNewR("Description") = Me.txtDescrip.Text
m_dtPYDb.Rows.Add(drNewR)
m_dtDataAdapter.Update(m_dtPYDb)
MsgBox("مشخصات با موفقیت ثبت شد.", MsgBoxStyle.MsgBoxRtlReading, "")
End If
End Sub
End Class
من یک فرم مثل کد زیر طراحی کردم و داده ها رو به راحتی وارد میکنم و هیچ مشکلی نداره اما نمیدنم چرا یه فرم دیگه طراحی کردم موقع درج داده ها خطای : Syntax error in INSERT INTO statement. میده
کد مورد نظر:
Public Class frmChekBazar
Private m_cnADONetConnection As New OleDb.OleDbConnection
Private m_dtDataAdapter As OleDb.OleDbDataAdapter
Private m_cbCommandBuilder As OleDb.OleDbCommandBuilder
Private m_dtPYDb As New DataTable
Private m_rowPosition As Integer = 0
Private Sub frmChekBazar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'PYDbDataSet.People_Bazar' table. You can move, or remove it, as needed.
m_cnADONetConnection.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source= E:\PYDb.mdb"
m_cnADONetConnection.Open()
m_dtDataAdapter = New OleDb.OleDbDataAdapter("Select * From ChekBazar", m_cnADONetConnection)
m_cbCommandBuilder = New OleDb.OleDbCommandBuilder(m_dtDataAdapter)
m_dtDataAdapter.Fill(m_dtPYDb)
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
grChek.Enabled = True
Me.txtNam.Text = ""
Me.comProduce.Text = ""
Me.txtNumber.Text = ""
Me.txtIDChek.Text = ""
Me.comBank.Text = ""
Me.txtShobe.Text = ""
Me.txtDate.Text = ""
Me.txtPrice.Text = ""
Me.txtDescrip.Text = ""
End Sub
Private Sub Exi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Exi.Click
Me.m_cnADONetConnection.Close()
Me.m_cnADONetConnection.Dispose()
Me.Close()
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
If Me.grChek.Enabled = True Then
Dim drNewR As DataRow = m_dtPYDb.NewRow
drNewR("PoepleName") = Me.txtNam.Text
drNewR("ProduceName") = Me.comProduce.Text
drNewR("Number") = Me.txtNumber.Text
drNewR("ID_chek") = Me.txtIDChek.Text
drNewR("BankName") = Me.comBank.Text
drNewR("Shobe") = Me.txtShobe.Text
drNewR("Date_chek") = Me.txtDate.Text
drNewR("Sum_chek") = Me.txtPrice.Text
drNewR("Description") = Me.txtDescrip.Text
m_dtPYDb.Rows.Add(drNewR)
m_dtDataAdapter.Update(m_dtPYDb)
MsgBox("مشخصات با موفقیت ثبت شد.", MsgBoxStyle.MsgBoxRtlReading, "")
End If
End Sub
End Class