Este es el codigo donde se actualizan el fichero de AS400.
Public Function actualizaBaseDatos() As Integer
' Valores que devuelve
'-1: Error
' 0: No hay actualizaciones
' 1: Actualizaciones Realizadas con exito
Dim nValorDevuelto As Integer
Dim xFilaDatos As DataRow
Dim xParametros As OleDb.OleDbParameterCollection
' Check for changes with the HasChanges method first.
If Not dsHojaRuta.HasChanges() Then
nValorDevuelto = 0
Exit Function
End If
' Crear una variable dataset temporal.
Dim xDataSet As DataSet
' GetChanges for modified rows only.
xDataSet = dsHojaRuta.GetChanges()
' Check the DataSet for errors.
If xDataSet.HasErrors Then
If lMensajes Then
MsgBox("Error")
End If
nValorDevuelto = -1
End If
Try
' After fixing errors, update the data source with the DataAdapter
' used to create the DataSet.
OleDbAdaptadorViajeroBillete.Update(xDataSet, "Table")
nValorDevuelto = 1
Catch ex As Exception
If lMensajes Then
MsgBox("Error: " & ex.Message)
End If
nValorDevuelto = -1
End Try
Return nValorDevuelto
End Function
******************************************************
Este trozo de codigo es donde creo el comando INSERT para actualizar los datos
Private Function creaComandoInsertViajeroBillete() As Integer
' Valores que devuelve
'-1: Error
' 0:
' 1: Creacion del comando correctamente
' INDICE DE ACTUALIZACION TDDQREL0
Dim nValorDevuelto As Integer
Try
OleDbComandoInsercionViajeroBillete = New OleDb.OleDbCommand
OleDbComandoInsercionViajeroBillete.CommandType = CommandType.Text
OleDbComandoInsercionViajeroBillete.CommandText = "INSERT INTO " & sBibViajeroBillete & ".TDDQREL0 (DQDMCD, DQDOCD, DQE5NB, DQBRDT, DQGDNB, DQCKCD, DQREOB, DQQ7OB, DQRSOB, DQAMCD, DQAYPR, DQEGQT) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
OleDbComandoInsercionViajeroBillete.Connection = oConexion.Conexion
OleDbComandoInsercionViajeroBillete.Parameters.Add("Linea", OleDb.OleDbType.VarChar, 4, "DQDMCD")
OleDbComandoInsercionViajeroBillete.Parameters.Add("Servicio", OleDb.OleDbType.VarChar, 4, "DQDOCD")
OleDbComandoInsercionViajeroBillete.Parameters.Add("Turnos", OleDb.OleDbType.Integer, 1, "DQE5NB")
OleDbComandoInsercionViajeroBillete.Parameters.Add("FechaNombramiento", OleDb.OleDbType.Integer, 7, "DQBRDT")
OleDbComandoInsercionViajeroBillete.Parameters.Add("Ticket", OleDb.OleDbType.Integer, 2, "DQGDNB")
OleDbComandoInsercionViajeroBillete.Parameters.Add("DQCKCD", OleDb.OleDbType.VarChar, 1, "DQCKCD")
OleDbComandoInsercionViajeroBillete.Parameters.Add("DQREOB", OleDb.OleDbType.Integer, 5, "DQREOB")
OleDbComandoInsercionViajeroBillete.Parameters.Add("DQQ7OB", OleDb.OleDbType.Integer, 5, "DQQ7OB")
OleDbComandoInsercionViajeroBillete.Parameters.Add("DQRSOB", OleDb.OleDbType.Integer, 5, "DQRSOB")
OleDbComandoInsercionViajeroBillete.Parameters.Add("DQAMCD", OleDb.OleDbType.VarChar, 2, "DQAMCD")
OleDbComandoInsercionViajeroBillete.Parameters.Add("DQAYPR", OleDb.OleDbType.Double, 12, "DQAYPR")
OleDbComandoInsercionViajeroBillete.Parameters.Add("DQEGQT", OleDb.OleDbType.Integer, 9, "DQEGQT")
nValorDevuelto = 1
Catch ex As Exception
If lMensajes Then
MsgBox(ex.Message)
End If
nValorDevuelto = -1
End Try
Return nValorDevuelto
End Function
¿necesitais mas datos?
Xavier Tur Salom
Empresa: SuBús
Auplasa
Dpto: Sistemas de
Información
Tel.: 96 526 93
69
E-mail: [EMAIL PROTECTED]
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de [EMAIL PROTECTED]
Enviado el: jueves, 27 de julio de 2006 13:50
Para: [email protected]
CC: [email protected]; [EMAIL PROTECTED]
Asunto: RE: Visual Basic.NET y AS400
Puedes pasar el código donde haces la llamada
=======================================================
La originalidad no esta en el "HECHO", esta en la"SOLUCIÓN"
Cualquier cosa que gobierne tu vida te autodestruirá
Sino dices lo que piensas es que no piensas - M i O T a O -
=======================================================
.~.
/V\ L I N U X
// \\ >Phear the Penguin<
/( )\
^^-^^
Pon un Pinguino en TU VIDA.COM
Pere Soria
Dpto. de Informática
Telf. +34 964343008
E-mail: [EMAIL PROTECTED]
http://www.recordrent.com
Record Rent a Car S.A.
(quitar nospam para responder)(remove nospam to reply me)
| "Xavier Tur Salom"
<[EMAIL PROTECTED]> Sent by: [EMAIL PROTECTED] 27/07/2006 13:09
|
|
Este es el mensaje que envie hace unos dias.
Tengo un programa hecho en visual basic.net para insertar registros en un fichero del AS400. Para hacer esto, utilizo un dataset para leer el fichero de AS400 y añadir en el dataset más registros. Después de haber terminado de introducir los registros en el dataset, utilizo el metodo .update de adaptador OLEDB para que se realice la actualización de los datos en el AS400. En algunos casos me funciona perfectamente pero, en otros casos me sale el siguiente error:
Message "No se puede convertir el valor de los datos del parámetro de comando [0] 'Linea' por otras razones que no sean la falta de correspondencia de signo ni el desbordamiento de los datos.
No se puede convertir el valor de los datos del parámetro de comando [1] 'Servicio' por otras razones que no sean la falta de correspondencia de signo ni el desbordamiento de los datos.
No se puede convertir el valor de los datos del parámetro de comando [3] 'FechaNombramiento' por otras razones que no sean la falta de correspondencia de signo ni el desbordamiento de los datos.
Error de conversión del parámetro de comando [7] 'DQQ7OB' porque el valor de datos ha desbordado el tipo utilizado por el proveedor.
No se puede convertir el valor de los datos del parámetro de comando [8] 'DQRSOB' por otras razones que no sean la falta de correspondencia de signo ni el desbordamiento de los datos.
Error del parámetro de comando [10] 'DQAYPR: S_TRUNCATED.
" String
Agradezco vuestra ayuda.
Saludos,
Xavier
Gracias por ayudarme
Xavier Tur Salom
Empresa: SuBús Auplasa
Dpto: Sistemas de Información
Tel.: 96 526 93 69
E-mail: [EMAIL PROTECTED]
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de [EMAIL PROTECTED]
Enviado el: jueves, 27 de julio de 2006 10:59
Para: [email protected]
Asunto: Re: Visual Basic.NET y AS400
cual es tú duda???
=======================================================
La originalidad no esta en el "HECHO", esta en la"SOLUCIÓN"
Cualquier cosa que gobierne tu vida te autodestruirá
Sino dices lo que piensas es que no piensas - M i O T a O -
=======================================================
.~.
/V\ L I N U X
// \\ >Phear the Penguin<
/( )\
^^-^^
Pon un Pinguino en TU VIDA.COM
Pere Soria
Dpto. de Informática
Telf. +34 964343008
E-mail: [EMAIL PROTECTED]
http://www.recordrent.com
Record Rent a Car S.A.
(quitar nospam para responder)(remove nospam to reply me)
| "Xavier Tur Salom"
<[EMAIL PROTECTED]> Sent by: [EMAIL PROTECTED] 27/07/2006 09:08
|
|
¿Alguien utiliza visual basic.net y ado.net para leer y actualizar datos del as400?
Xavier Tur Salom
Empresa: SuBús Auplasa
Dpto: Sistemas de Información
Tel.: 96 526 93 69
E-mail: [EMAIL PROTECTED]
