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
