Error con el Adaptador.Fill()
Publicado por GONPAS (60 intervenciones) el 19/11/2003 21:02:21
Hola a todos, tengo la siguiente consulta:
Tengo un cógido que funciona perfecto (es una dll), pero cuando lo invoco desde un servicio web me dá problemas.
El Código es:
Public Function grabar(ByVal nombre As String, ByVal apellido As String, ByVal rut As String, ByVal telefono As Integer, ByVal direccion As String) As String
Dim sql_insertar As New OleDbCommand()
Dim mensaje As String
Dim sql_select As New OleDbCommand()
Dim da_insertar As New OleDbDataAdapter()
Dim datos As New DataSet()
Try
Dim dt_tabla1 As New DataTable("Tabla1")
dt_tabla1.Columns.Add("Nombres", GetType(String))
dt_tabla1.Columns.Add("Apellidos", GetType(String))
dt_tabla1.Columns.Add("Rut", GetType(String))
dt_tabla1.Columns.Add("fono1", GetType(Integer))
dt_tabla1.Columns.Add("Direccion", GetType(String))
datos.Tables.Add(dt_tabla1)
sql_insertar.CommandText = "Insert Into Tabla1 (Nombres, Apellidos, Rut, Fono1, Direccion) values ('" & nombre & "','" & apellido & "','" & rut & "','" & telefono & "','" & direccion & "')"
sql_insertar.Connection = conexion
da_insertar.InsertCommand = sql_insertar
da_insertar.SelectCommand = da_insertar.InsertCommand
**** da_insertar.Fill(datos, "tabla1") *****
da_insertar.Update(datos, "tabla1")
mensaje = "Datos Grabados"
Catch
mensaje = Err.Description + Err.HelpFile
End Try
Return mensaje
End Function
La línea que está marcada con arteriscos (****), es la que me dá el siguente error y no sé por qué, si alguno de ustedes puede ayudarme se los agradeceré muchos...
Error que me dá:
La operación debe usar una consulta actualizable.
De antemano muchas gracias
Tengo un cógido que funciona perfecto (es una dll), pero cuando lo invoco desde un servicio web me dá problemas.
El Código es:
Public Function grabar(ByVal nombre As String, ByVal apellido As String, ByVal rut As String, ByVal telefono As Integer, ByVal direccion As String) As String
Dim sql_insertar As New OleDbCommand()
Dim mensaje As String
Dim sql_select As New OleDbCommand()
Dim da_insertar As New OleDbDataAdapter()
Dim datos As New DataSet()
Try
Dim dt_tabla1 As New DataTable("Tabla1")
dt_tabla1.Columns.Add("Nombres", GetType(String))
dt_tabla1.Columns.Add("Apellidos", GetType(String))
dt_tabla1.Columns.Add("Rut", GetType(String))
dt_tabla1.Columns.Add("fono1", GetType(Integer))
dt_tabla1.Columns.Add("Direccion", GetType(String))
datos.Tables.Add(dt_tabla1)
sql_insertar.CommandText = "Insert Into Tabla1 (Nombres, Apellidos, Rut, Fono1, Direccion) values ('" & nombre & "','" & apellido & "','" & rut & "','" & telefono & "','" & direccion & "')"
sql_insertar.Connection = conexion
da_insertar.InsertCommand = sql_insertar
da_insertar.SelectCommand = da_insertar.InsertCommand
**** da_insertar.Fill(datos, "tabla1") *****
da_insertar.Update(datos, "tabla1")
mensaje = "Datos Grabados"
Catch
mensaje = Err.Description + Err.HelpFile
End Try
Return mensaje
End Function
La línea que está marcada con arteriscos (****), es la que me dá el siguente error y no sé por qué, si alguno de ustedes puede ayudarme se los agradeceré muchos...
Error que me dá:
La operación debe usar una consulta actualizable.
De antemano muchas gracias
Valora esta pregunta


0