درج دربانک اطلاعاتی

[mohammad.heydaree]

با سلام
دوستان عزیز
بنده برای اینکه اطلاعاتی رواز فرمی که طراحی کردم داخل بانک اطلاعاتم درج کنم از کد زیر استفاده کردم

Imports System.Data.OleDb
Imports System.Data
--------------------------
Public Class frmsefaresh
Private con As OleDbConnection
Private com As OleDbCommand
----------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Application.Exit()
End Sub
-----------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim cmd As OleDbCommand = New OleDbCommand
Dim str As String
str = "insert into sefaresh (ID,mid,name,date,time,did,tid,from,to,tel,totalpr ice,Aprice,Dprice) values (@ID,@mid,@name,@date,@time,@did,@tid,@from,@to,@t el,@totalprice,@Aprice,@Dprice)"
cmd.CommandText = str
cmd.Connection = con
cmd.Parameters.AddWithValue("@ID", idtxt.Text)
cmd.Parameters.AddWithValue("@mid", midtxt.Text)
cmd.Parameters.AddWithValue("@name", nametxt.Text)
cmd.Parameters.AddWithValue("@time", timetxt.Text)
cmd.Parameters.AddWithValue("@did", didtxt.Text)
cmd.Parameters.AddWithValue("@tid", tidtxt.Text)
cmd.Parameters.AddWithValue("@from", fromtxt.Text)
cmd.Parameters.AddWithValue("@to", totxt.Text)
cmd.Parameters.AddWithValue("@tell", teltxt.Text)
cmd.Parameters.AddWithValue("@totalprice", tprictxt.Text)
cmd.Parameters.AddWithValue("@Aprice", aprictxt.Text)
cmd.Parameters.AddWithValue("@Dprice", aprictxt.Text)
cmd.Parameters.AddWithValue("@ID", idtxt.Text)
cmd.Parameters.AddWithValue("@ID", idtxt.Text)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Sub
-------------------------------------------------------------------------------
Private Sub frmsefaresh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con = New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=taxi.accdb"
End Sub
End Class


متاسفانه بعد از اجرای فرنامه و زدن کلید ثبت به
cmd.ExecuteNonQuery()
خطا میگیرد.
لطفا راهنمایی فرمایید
همچنین سایر کد های مربوط به بانک اطلاعاتی اکسس را برایم قرار دهید(حذف,آپدیت,ویرایش,و نحوه ی نمایش بر روی دیتا گرید )
با تشکر از تمامی شما عزیزان

[Mani_rf]

برای این که متوجه بشی مشکل از کجاست بهتره تا خطایی که گرفته می شود را بگذاری تا کد های که خطا می دهد.
در لیست فیلد ها فیلدی به نام totalpr ice وجود دارد، فاصله در بین نام فیلد مجاز نیست. اگر این مشکل را حل نکرد عکسی از خطایی که گرفته میشود را قرار بده تا کمکت کنیم.