ehsan_2000
یک شنبه 18 فروردین 1387, 18:40 عصر
سلام
میشه بگید دلیل این خطا چیه؟
Dim da As Data.OleDb.OleDbDataAdapter = New Data.OleDb.OleDbDataAdapter
Dim dt As Data.DataTable = New Data.DataTable("table1")
Dim cmd As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand
Dim cnt As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection
Dim r1, r2, r3, r4 As String
cnt.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2.mdb"
cnt.Open()
r1 = GridView2.SelectedRow.Cells(1).Text
r2 = GridView2.SelectedRow.Cells(2).Text
r3 = GridView2.SelectedRow.Cells(3).Text
r4 = GridView2.SelectedRow.Cells(4).Text
cmd.CommandType = Data.CommandType.Text
cmd.Connection = cnt
cmd.CommandText = "INSERT INTO table1 (id,name,tahsilat,group) values('" + r1 + "','" + r2 + "','" + r3 + "','" + r4 + "')"
cmd.ExecuteNonQuery()
cmd.CommandText = "select * from table1"
da.SelectCommand = cmd
dt.Clear()
da.Fill(dt)
GridView1.DataSource = dt
GridView1.DataBind()
اینم خطا :
میشه بگید دلیل این خطا چیه؟
Dim da As Data.OleDb.OleDbDataAdapter = New Data.OleDb.OleDbDataAdapter
Dim dt As Data.DataTable = New Data.DataTable("table1")
Dim cmd As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand
Dim cnt As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection
Dim r1, r2, r3, r4 As String
cnt.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2.mdb"
cnt.Open()
r1 = GridView2.SelectedRow.Cells(1).Text
r2 = GridView2.SelectedRow.Cells(2).Text
r3 = GridView2.SelectedRow.Cells(3).Text
r4 = GridView2.SelectedRow.Cells(4).Text
cmd.CommandType = Data.CommandType.Text
cmd.Connection = cnt
cmd.CommandText = "INSERT INTO table1 (id,name,tahsilat,group) values('" + r1 + "','" + r2 + "','" + r3 + "','" + r4 + "')"
cmd.ExecuteNonQuery()
cmd.CommandText = "select * from table1"
da.SelectCommand = cmd
dt.Clear()
da.Fill(dt)
GridView1.DataSource = dt
GridView1.DataBind()
اینم خطا :