RE:Problema al pasar xml a access
No se que estoy haciendo mal le recuerdo todo mi codigo, el cual ahora me queda asi:
Dim mstrRutaOrigen As String = Path.GetFullPath(FileUpload1.PostedFile.FileName.ToString)
Dim documento As New XmlDocument
Dim nodo As XmlNode
Dim codigo As Integer
Dim valor1 As Decimal
Dim valor2 As Decimal
Dim valor3 As Decimal
Dim valor4 As Decimal
documento.Load(mstrRutaOrigen)
For Each nodo In documento.DocumentElement.ChildNodes
If nodo.Name = "DEUDA" Then
codigo = nodo.ChildNodes(0).InnerText
valor1 = nodo.ChildNodes(1).InnerText
valor2 = nodo.ChildNodes(2).InnerText
valor3 = nodo.ChildNodes(3).InnerText
valor4 = nodo.ChildNodes(3).InnerText
If verifica_usuario_existe(codigo) = True Then
insertar_datos(codigo, valor1, valor2, valor3, valor4)
End If
Private Sub insertar_datos(ByVal codigo As Integer, ByVal valor1 As Decimal, ByVal valor2 As Decimal, ByVal valor3 As Decimal, ByVal valor4 As Decimal)
With cmd
.Connection = cn
.CommandType = CommandType.Text
.CommandText = "INSERT INTO DEUDA ([usuario_id], [valor1], [valor2], [valor3], [valor4]) VALUES (" & codigo & ", " & valor1 & ", " & valor2 & ", " & valor3 & ", " & valor4 & ")"
.Parameters.Add("@codigo", OleDbType.Integer).Value = codigo
.Parameters.Add("@valor1", OleDbType.Decimal).Value = valor1
.Parameters.Add("@valor2", OleDbType.Decimal).Value = valor2
.Parameters.Add("@valor3", OleDbType.Decimal).Value = valor3
.Parameters.Add("@valor4", OleDbType.Decimal).Value = valor4
.ExecuteNonQuery()
Me.Label1.Text = "¡Registros actualizados con éxito!"
End With
End Sub
a los valores de arriba no les pongo el @ porque no estan declarados asi, mire a ver si estoy haciendo algo mal!
gracias!