Tengo problemas para grabar en oracle
Publicado por jacobd (17 intervenciones) el 30/05/2003 21:39:56
Hola
Al que me pueda ayudar se lo agradesere, tengo solo 2 meses de esperiencia en oracle y este problema no lo he podido solucionar, el codigo que he usado es el siguiente:
Private Sub Cmd_Grabar_Click()
Dim L_qTInforme As QueryDef
Dim L_rTInforme As Recordset
Dim L_dActual As Database
Dim L_sSql_Tinf As String
Dim L_sCodTInf As String
Dim L_sDesTInf As String
Screen.MousePointer = 11
On Error GoTo Errloquesea
'L_sCodTInf = Txt_Codigo_TInforme.Text
'L_sDesTInf = Txt_Descripcion.Text
'************* Esto solo lo incorpre para estar seguro de enviar un string
L_sCodTInf = "PRUEBA_2"
L_sDesTInf = "DESCRIPCION TIPO INFORME DE PRUEBA_2"
'********************************************
Set L_dActual = OpenDatabase("C:\GESTIONLP\CONTROLACCESO\DB\DB1.mdb", False)
L_sSql_Tinf = ""
L_sSql_Tinf = "INSERT INTO Tipos_Informes1 "
L_sSql_Tinf = L_sSql_Tinf & " VALUES "
L_sSql_Tinf = L_sSql_Tinf & "('" & L_sCodTInf & "', '" & L_sDesTInf & "');"
Set L_qTInforme = L_dActual.CreateQueryDef("")
L_qTInforme.Connect = G_sOdbcConector
L_qTInforme.Execute L_sSql_Tinf
Unload Me
Errloquesea:
MsgBox Err.Description, vbInformation, "Error de grabación"
End Sub
Me tira un mensaje de error:
Error de conversión de tipos de datos. (Error 3421)
Los campos de la tabla son varchar2.
Tambien lo trate de hacer con un procedimiento almacenado y me dio el mismo error
Al que me pueda ayudar se lo agradesere, tengo solo 2 meses de esperiencia en oracle y este problema no lo he podido solucionar, el codigo que he usado es el siguiente:
Private Sub Cmd_Grabar_Click()
Dim L_qTInforme As QueryDef
Dim L_rTInforme As Recordset
Dim L_dActual As Database
Dim L_sSql_Tinf As String
Dim L_sCodTInf As String
Dim L_sDesTInf As String
Screen.MousePointer = 11
On Error GoTo Errloquesea
'L_sCodTInf = Txt_Codigo_TInforme.Text
'L_sDesTInf = Txt_Descripcion.Text
'************* Esto solo lo incorpre para estar seguro de enviar un string
L_sCodTInf = "PRUEBA_2"
L_sDesTInf = "DESCRIPCION TIPO INFORME DE PRUEBA_2"
'********************************************
Set L_dActual = OpenDatabase("C:\GESTIONLP\CONTROLACCESO\DB\DB1.mdb", False)
L_sSql_Tinf = ""
L_sSql_Tinf = "INSERT INTO Tipos_Informes1 "
L_sSql_Tinf = L_sSql_Tinf & " VALUES "
L_sSql_Tinf = L_sSql_Tinf & "('" & L_sCodTInf & "', '" & L_sDesTInf & "');"
Set L_qTInforme = L_dActual.CreateQueryDef("")
L_qTInforme.Connect = G_sOdbcConector
L_qTInforme.Execute L_sSql_Tinf
Unload Me
Errloquesea:
MsgBox Err.Description, vbInformation, "Error de grabación"
End Sub
Me tira un mensaje de error:
Error de conversión de tipos de datos. (Error 3421)
Los campos de la tabla son varchar2.
Tambien lo trate de hacer con un procedimiento almacenado y me dio el mismo error
Valora esta pregunta


0