Autor Tema: Error En Dataadapter.update (Leído 1648 veces)

Khuzu dum · « **en:** Miércoles 4 de Mayo de 2005, 11:05 »

Hola a todos:
Antes de nada me gustaria dar las gracias a todos por la posibilidad que me brindais con este foro, gracias.

Mi problema consiste en que estoy realizando un programa que lea un archivo de texto en concreto y lo transforma en una serie de tablas de access, entonces, me surge el error an una tabla solamente y consiste en "error de sintaxis en la instruccion insert into", he revisado los datos de la base de datos y del codigo y los nombres estan bien, lo unico que se me ocurre es que tengo dos campos memo en dicha tabla, por que el texto que tengo que guardar es muy largo, y sea lo que me esta petando.
Os agradeceria que me ayudarais con vuestros conocimientos .

Gracias

Khuzu dum

Este es el codigo que me da problemas por si veis algun error que yo no he visto o se. Gracias por todo:

ArchivoDatos = "C:\Documents and Settings\fpiedra\Mis documentos\telefonos.mdb"
CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ArchivoDatos
Try
cn = New OleDb.OleDbConnection(CadenaConexion)
Catch e As Exception
MessageBox.Show("Error al crear la conexión:" & vbCrLf & e.Message)
Exit Sub
End Try
'
cn.Open()

ds3 = New Data.DataSet

da3 = New OleDb.OleDbDataAdapter("SELECT * FROM Servicios_facturados", cn)

Dim cmb3 As New OleDb.OleDbCommandBuilder(da3)

da3.MissingSchemaAction = MissingSchemaAction.AddWithKey

ds3.Clear()

da3.Fill(ds3, "Servicios_facturados")

Sub tabla_resumen_servicios_facturados()
ordenar = 0
While control4
If PrimeraLinea = "" Or PrimeraLinea = "resumen servicios facturados (sin impuestos):" Or PrimeraLinea = "conceptos facturados; importe (euros); importes totales (euros)" Then
Else

indice = PrimeraLinea.IndexOfAny(";", 0)
prueba = PrimeraLinea.Substring(indice + 1)

If ordenar = 0 Then

limpieza_servicios_facturados_1()

ElseIf ordenar = 1 Then

limpieza_servicios_facturados_1()

ElseIf ordenar = 2 Then

limpieza_servicios_facturados_1()

ElseIf ordenar = 3 Then

limpieza_servicios_facturados_1()

ElseIf ordenar = 4 Then

limpieza_servicios_facturados_1()

ElseIf ordenar = 5 Then

limpieza_servicios_facturados_1()
dr3("cargos") = temporal & "" & prueba

ElseIf ordenar = 6 Then

limpieza_servicios_facturados_2()

ElseIf ordenar = 7 Then

limpieza_servicios_facturados_2()

ElseIf ordenar = 8 Then

limpieza_servicios_facturados_2()

ElseIf ordenar = 9 Then

limpieza_servicios_facturados_2()
dr3("descuentos") = temporal2 & "" & prueba

ElseIf ordenar = 10 Then
dr3("total_exento_IVA") = prueba
ElseIf ordenar = 11 Then
dr3("total_sin_IVA") = prueba
ElseIf ordenar = 12 Then
dr3("IVA(16%)") = prueba
ElseIf ordenar = 13 Then
dr3("total") = prueba
ElseIf ordenar = 14 Then
dr3("Num_telefonos_asociados") = prueba
dr3("mes") = "Marzo"
control4 = False
Try
ds3.Tables("Servicios_facturados").Rows.Add(dr3)
da3.Update(ds3, "Servicios_facturados")
ds3.AcceptChanges()
Catch exc As Exception
MessageBox.Show(exc.Message)
Exit Sub
End Try
End If
ordenar += 1
End If
PrimeraLinea = LineInput(1)
End While
end sub

Sub limpieza_servicios_facturados_1()

cajon = prueba
indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)

If limpieza = False Then
temporal = prueba
limpieza = True
Else
temporal = temporal & "" & prueba
End If

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal = temporal & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal = temporal & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal = temporal & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal = temporal & "," & prueba

End Sub

Sub limpieza_servicios_facturados_2()

cajon = prueba
indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)

If limpieza2 = False Then
temporal2 = prueba
limpieza2 = True
Else
temporal2 = temporal2 & "" & prueba
End If

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal2 = temporal2 & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal2 = temporal2 & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal2 = temporal2 & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal2 = temporal2 & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal2 = temporal2 & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal2 = temporal2 & "," & prueba

End Sub

Gracias por el tiempo que me habeis dedicado

SoloCodigo

Autor Tema: Error En Dataadapter.update (Leído 1648 veces)

Khuzu dum

Error En Dataadapter.update

Khuzu dum

Re: Error En Dataadapter.update