Visual Basic - Grabar registro en oracle via ODBC

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder