Ayuda con actualizacion a Excel
Publicado por Diego (8 intervenciones) el 17/12/2004 16:15:55
Hola, Gracias a todos, espero me puedan alludar, tengo este codigo
'Codigo de Excel que funciona en WindowsForms
Dim ds As New DataSet
Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=c:\XXX.xls; extended properties=excel 8.0")
Dim cm As New OleDb.OleDbCommand("select * from [Respuestas$]", cn)
Dim ad As New OleDb.OleDbDataAdapter(cm)
Try
ad.Fill(ds)
DataGrid1.DataSource = ds.Tables(0)
Application.DoEvents()
Dim comando As New OleDb.OleDbCommand("update [Hoja1$] set O = 100", cn)
cn.Open()
comando.ExecuteNonQuery()
cn.Close()
Catch ex As Exception
cn.Close()
End Try
'Codigo de Acces
Dim ds1 As New DataSet
Dim cn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=d:\XXX.mdb")
Dim cm1 As New OleDb.OleDbCommand("select * from Tabla", cn1)
Dim ad1 As New OleDb.OleDbDataAdapter(cm)
Try
ad1.Fill(ds1)
DataGrid1.DataSource = ds1.Tables(0)
Dim comando1 As New OleDb.OleDbCommand("update Tabla set Campo = 'J'", cn1)
cn1.Open()
comando1.ExecuteNonQuery()
cn1.Close()
Catch ex As Exception
cn1.Close()
End Try
en un Form de Windows corre Bien, pero cuando lo paso a una pagina ASP me bota el siguiente erro:
"System.Data.Oledb.OledbException: Operation must use an updateable query" .................................... NO SE QUE PUEDO HACER, porfa ayudenme.
'Codigo de Excel que funciona en WindowsForms
Dim ds As New DataSet
Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=c:\XXX.xls; extended properties=excel 8.0")
Dim cm As New OleDb.OleDbCommand("select * from [Respuestas$]", cn)
Dim ad As New OleDb.OleDbDataAdapter(cm)
Try
ad.Fill(ds)
DataGrid1.DataSource = ds.Tables(0)
Application.DoEvents()
Dim comando As New OleDb.OleDbCommand("update [Hoja1$] set O = 100", cn)
cn.Open()
comando.ExecuteNonQuery()
cn.Close()
Catch ex As Exception
cn.Close()
End Try
'Codigo de Acces
Dim ds1 As New DataSet
Dim cn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=d:\XXX.mdb")
Dim cm1 As New OleDb.OleDbCommand("select * from Tabla", cn1)
Dim ad1 As New OleDb.OleDbDataAdapter(cm)
Try
ad1.Fill(ds1)
DataGrid1.DataSource = ds1.Tables(0)
Dim comando1 As New OleDb.OleDbCommand("update Tabla set Campo = 'J'", cn1)
cn1.Open()
comando1.ExecuteNonQuery()
cn1.Close()
Catch ex As Exception
cn1.Close()
End Try
en un Form de Windows corre Bien, pero cuando lo paso a una pagina ASP me bota el siguiente erro:
"System.Data.Oledb.OledbException: Operation must use an updateable query" .................................... NO SE QUE PUEDO HACER, porfa ayudenme.
Valora esta pregunta


0