melika-leyla
جمعه 24 خرداد 1387, 16:20 عصر
برنامه به بانک اکسس بنام db1.mdb که دارای یک جدول بنام mojodi ویک فیلد بنام mojodi است متصل شده
برنامه زیر در خط cmd.ExecuteNonQuery() ارورهای زیر را میدهد
__________________________________________________ ___________________________
check to determie if the object is null before
__________________________________________________ ___________________________
system.data.oledbexcption{"data type mismatch in criteria exprssin"}
__________________________________________________ __________________
system .null Refrence Excption "object Refrence not set an instance of an object
Imports System.Data.OleDb
PublicClass Form1
Inherits System.Windows.Forms.Form
Dim da As OleDbDataAdapter
Dim con As OleDbConnection
Dim cmd As OleDbCommand
Dim strsql AsString
Dim ds AsNew DataSet
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\database\db1.mdb")
da = New OleDbDataAdapter("select * from mojodi", con)
ds.Clear()
con.Open()
da.Fill(ds, "mojodi")
Me.BindingContext(ds, "mojodi").Position = Me.BindingContext(ds, "mojodi").Count - 1
TextBox1.DataBindings.Add(New Binding("text", ds, "mojodi.mojodi"))
da.Update(ds, "mojodi")
MsgBox("eeee")
Me.BindingContext(ds, "mojodi").AddNew()
strsql = "insert into mojodi(mojodi) values ('" & TextBox1.Text & "')"
ds.Clear()
cmd = New OleDbCommand(strsql, con)
cmd.ExecuteNonQuery()
MsgBox("dd")
ds.Clear()
da.Fill(ds, "mojodi")
con.Close()
EndSub
EndClass
برنامه زیر در خط cmd.ExecuteNonQuery() ارورهای زیر را میدهد
__________________________________________________ ___________________________
check to determie if the object is null before
__________________________________________________ ___________________________
system.data.oledbexcption{"data type mismatch in criteria exprssin"}
__________________________________________________ __________________
system .null Refrence Excption "object Refrence not set an instance of an object
Imports System.Data.OleDb
PublicClass Form1
Inherits System.Windows.Forms.Form
Dim da As OleDbDataAdapter
Dim con As OleDbConnection
Dim cmd As OleDbCommand
Dim strsql AsString
Dim ds AsNew DataSet
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\database\db1.mdb")
da = New OleDbDataAdapter("select * from mojodi", con)
ds.Clear()
con.Open()
da.Fill(ds, "mojodi")
Me.BindingContext(ds, "mojodi").Position = Me.BindingContext(ds, "mojodi").Count - 1
TextBox1.DataBindings.Add(New Binding("text", ds, "mojodi.mojodi"))
da.Update(ds, "mojodi")
MsgBox("eeee")
Me.BindingContext(ds, "mojodi").AddNew()
strsql = "insert into mojodi(mojodi) values ('" & TextBox1.Text & "')"
ds.Clear()
cmd = New OleDbCommand(strsql, con)
cmd.ExecuteNonQuery()
MsgBox("dd")
ds.Clear()
da.Fill(ds, "mojodi")
con.Close()
EndSub
EndClass