Grabar registro en oracle via ODBC
Publicado por Jacob D (17 intervenciones) el 03/06/2003 16:54:42
Hola a todos.
MI problema es que necesito grabar un registro en Oracle, pero me error.
El codigo que estoy usando es el sgte.:
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
L_sCodTInf = Txt_Codigo_TInforme.Text
L_sDesTInf = Txt_Descripcion.Text
Set L_dActual = OpenDatabase(G_sRuta + "DB\DB1.mdb", False)
L_sSql_Tinf = ""
L_sSql_Tinf = "INSERT INTO Tipos_Informes (tipo_informe,descripcion) VALUES "
L_sSql_Tinf = L_sSql_Tinf & "('" & Trim(L_sCodTInf) & "','" & Trim(L_sDesTInf) & "');"
Set L_qTInforme = L_dActual.CreateQueryDef("")
L_qTInforme.Connect = G_sOdbcConector
L_qTInforme.SQL = L_sSql_Tinf
L_qTInforme.Execute
Screen.MousePointer = 0
Unload Me
End Sub
tipo_informe es de tipo CHAR 10
descripcion es de tipo VARCHAR2 50
De ante manos gracias.
Atte.
JacobD
MI problema es que necesito grabar un registro en Oracle, pero me error.
El codigo que estoy usando es el sgte.:
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
L_sCodTInf = Txt_Codigo_TInforme.Text
L_sDesTInf = Txt_Descripcion.Text
Set L_dActual = OpenDatabase(G_sRuta + "DB\DB1.mdb", False)
L_sSql_Tinf = ""
L_sSql_Tinf = "INSERT INTO Tipos_Informes (tipo_informe,descripcion) VALUES "
L_sSql_Tinf = L_sSql_Tinf & "('" & Trim(L_sCodTInf) & "','" & Trim(L_sDesTInf) & "');"
Set L_qTInforme = L_dActual.CreateQueryDef("")
L_qTInforme.Connect = G_sOdbcConector
L_qTInforme.SQL = L_sSql_Tinf
L_qTInforme.Execute
Screen.MousePointer = 0
Unload Me
End Sub
tipo_informe es de tipo CHAR 10
descripcion es de tipo VARCHAR2 50
De ante manos gracias.
Atte.
JacobD
Valora esta pregunta


0