Error en insercion

06/10/2006 - 01:31 por SergioT | Informe spam
hola

que puede sser :

"La operación debe usar una consulta actualizable"

al intentar hjacer un insert en una tabla?

Estoy intentando insertar un registro en un EXCEL en una hoja en particular
pero recibo el error de arriba, adjunto mi codigo por que algo debe estar
mal que no lo se ya que es primera vez q intento hacer una insercion asi en
excel

Dim cnn As New OleDb.OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\fonos.xls;" & _
"Extended Properties='Excel 8.0;'")



Function Insert(ByVal sNombre As String, ByVal sDireccion As String,
ByVal sFono As String) As Boolean

'==Configura las consultas
Dim sI As String
sI = "INSERT INTO [Fonos$](Nombre,Direccion,Telefono) VALUES ('" &
sNombre & "','" & sDireccion & "','" & sFono & "')"
Me.EjecutaSqlInsUpdDel(sI)

End Function

Function EjecutaSqlInsUpdDel(ByVal sSql) As Boolean

Dim cmd As New OleDb.OleDbCommand(sSql, cnn)
Try
cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()
Catch ex As Exception
Me.lblErrores.Text = ex.Message
End Try

End Function


GRACIAS POR LA AYUDA
Salu2
Sergio T.

Preguntas similare

Leer las respuestas

#1 Matias Iacono
06/10/2006 - 21:49 | Informe spam
Verifica que la base de datos no este de solo lectura. Ademas, que el usuario
usado tenga permisos suficientes para poder hacer esta tarea sobre la base de
datos.

Saludos.

Microsoft MVP
Orador Regional INETA


"SergioT" wrote:

hola

que puede sser :

"La operación debe usar una consulta actualizable"

al intentar hjacer un insert en una tabla?

Estoy intentando insertar un registro en un EXCEL en una hoja en particular
pero recibo el error de arriba, adjunto mi codigo por que algo debe estar
mal que no lo se ya que es primera vez q intento hacer una insercion asi en
excel

Dim cnn As New OleDb.OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\fonos.xls;" & _
"Extended Properties='Excel 8.0;'")



Function Insert(ByVal sNombre As String, ByVal sDireccion As String,
ByVal sFono As String) As Boolean

'==Configura las consultas
Dim sI As String
sI = "INSERT INTO [Fonos$](Nombre,Direccion,Telefono) VALUES ('" &
sNombre & "','" & sDireccion & "','" & sFono & "')"
Me.EjecutaSqlInsUpdDel(sI)

End Function

Function EjecutaSqlInsUpdDel(ByVal sSql) As Boolean

Dim cmd As New OleDb.OleDbCommand(sSql, cnn)
Try
cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()
Catch ex As Exception
Me.lblErrores.Text = ex.Message
End Try

End Function


GRACIAS POR LA AYUDA
Salu2
Sergio T.



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida