اضافه کردن سطر به بانک

[melika-leyla]

در برنامه ام که به بانک اکسس وصل است برا یاضافه کردن سطر به هر دو روش مشکل دارم درروش اول که از دستور زیر استفاده کردم

#me.bindingcontext(ds,"table1").addnew()#
strsql="insert into tabel1("&feild1,"&"feild2,"&")values ('"&textbox.,text &"','"&textbox2 &"')
ولی در خط اول ارور زیر را میدهد
system.nullrefrenceexception

در روش دوم
ds.tables("table1").rows.add(newrow)
ارور زیر را میدهد
object refrence not set to an instance of object

[kablayi]

سلام ...

چرا از دستورات SQL برای درج اطلاعات استفاده نمیکنی ...؟

[melika-leyla]

در برنامه ام که به بانک اکسس وصل است برا یاضافه کردن سطر به هر دو روش مشکل دارم درروش اول که از دستور زیر استفاده کردم
Me.BindingContext(ds, "mojod").AddNew()
'strsql = "insert into mojod(" & "mojodi," & "date," & "radif," & ") values ('" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox1.Text & "')"
strsql = "insert into mojod(mojodi,date,radif) values ('" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox1.Text & "')"
ds.Clear()
con.Open()
cmdclasf = New OleDbCommand(strsql, con)
cmdclasf.ExecuteNonQuery()
'con.Close()
MsgBox("dd")
ds.Clear()
da.Fill(ds, "mojod")
con.Close()
*****************
ولی در خط اول ارور زیر را میدهد
system.nullrefrenceexception
**********************

در روش دوم
newrow1 = ds.Tables("mojod").NewRow
MsgBox("enter")
Call empty()
newrow1("mojodi") = TextBox2.Text
newrow1("date") = TextBox3.Text
newrow1("radif") = TextBox1.Text
ds.Tables("mojod").Rows.Add(newrow1)
cb = New OleDbCommandBuilder(da)
da = cb.DataAdapter
da.Update(ds, "mojod")
con.Close()
*************************
در خط اول ارور زیر را میدهد
object refrence not set to an instance of object
*********************

[kablayi]

سلام ...
برای درج بهتره از این روش استفاده کنی ...


dim strsql as string = "insert into mojod(mojodi,date,radif) values ('" & TextBox2.Text & "','" & TextBox3.Text & "','" TextBox1.Text & "')"
dim strcon as string= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBTaxitellFile.accdb"

Dim cn As New OleDbConnection(strcon)
Dim cmd As New OleDbCommand(StrSql, cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()

MessageBox.Show("!... اطلاعات با موفقیت درج گردید")