SoloCodigo

Hola a todos, fijense que estoy haciendo una aplicación en la que manejo sentencias SQL en un control ADODC y me marca unos errores, al terminar los errores reviso la BD y si se actualiza la tabla a la que hago referencia...
Pongo el código que tengo para ver si me pueden ayudar con los detalles:



Private Sub Ejecutar_Click()

    Dim SQL As String
    Dim sBase as String
    Dim Conexion as string

    sBase = App.Path
    sBase = sBase & "tablas2002.mdb"
    Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=" & sBase

    ADO.ConnectionString = Conexion
    ADO.RecordSource = "C_Empleados"


    SQL = "INSERT INTO C_Empleados VALUES ('010','Lemus','Gerente',120)"  'Datos de ejemplo
    ADO.RecordSource = SQL
    ADO.Refresh '>>> ***
 
   
End Sub


*** Apartir de esta linea me manda los mensajes
   
   1er. Mensaje: La operacion no esta pemitida si el objeto esta cerrado
   2do. Mensaje:  Error '3704' en tiempo de ejecución:
        Error definido por la aplicación o el objeto

   El primer mensaje no se como evitarlo, el segundo lo puedo librar con un "On Error GoTo"

J.M.Movilla

Que crees, Fijate que probe lo del ADO.Refresh y aun asi me salen los mismor errores... y solamente me provoca errores si realizo una consulta de actualización (Insert InTo, Delete, Update).


Gracias por todo y no me queda mas que seguir buscando o hacerlo con el monton de lineas de código...

Hasta pronto y Feliz Pascua

J.M.Movilla fijate que tienes toda la razon, pero la verdad se me olvido mencionar que si le daba un refresh... up's...  y en cuanto a las sentencias SQL solo da ya problemas cuando utilizo el Insert Into y el Update...  espero encontrar la solucion pronto.

Gacias por todo... J.M.Movilla

Hasta pronto!!!