mohammad.heydaree
شنبه 26 آذر 1390, 01:38 صبح
با سلام
دوستان عزیز
بنده برای اینکه اطلاعاتی رواز فرمی که طراحی کردم داخل بانک اطلاعاتم درج کنم از کد زیر استفاده کردم
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()
خطا میگیرد.
لطفا راهنمایی فرمایید
همچنین سایر کد های مربوط به بانک اطلاعاتی اکسس را برایم قرار دهید(حذف,آپدیت,ویرایش,و نحوه ی نمایش بر روی دیتا گرید )
با تشکر از تمامی شما عزیزان
دوستان عزیز
بنده برای اینکه اطلاعاتی رواز فرمی که طراحی کردم داخل بانک اطلاعاتم درج کنم از کد زیر استفاده کردم
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()
خطا میگیرد.
لطفا راهنمایی فرمایید
همچنین سایر کد های مربوط به بانک اطلاعاتی اکسس را برایم قرار دهید(حذف,آپدیت,ویرایش,و نحوه ی نمایش بر روی دیتا گرید )
با تشکر از تمامی شما عزیزان