Problema para guardar una consulta recorsource en una variable
Buenas!
lo que pasa es que tengo un problema con un programa que usa una base de datos MySQL, ya que no he podido actualizar un registro; yo estoy utlizando ADO para el manejo de la base de daots, y lo que necesito saber es, como puedo poner una consulta recordsource en una variable. A continuación muestro parte del codigo que tengo hecho:
Detalle_evento.Adodc1.RecordSource = "SELECT fecha_inicio FROM detalle_evento ORDER BY fecha_inicio DESC LIMIT 1"
Detalle_evento.Adodc1.Refresh 'necesito poner esto aqui para actualizar el ADO, pero cuando le ingreso el nuevo registro me saca error
temp$ = Mid(Detalle_evento.Adodc1.Recordset.GetString, 1, 19) 'esta es la parte que no funciona
Detalle_evento.Adodc1.Recordset.AddNew
Detalle_evento.Adodc1.Recordset.Fields("fecha_inicio") = temp$
Detalle_evento.Adodc1.Recordset.Fields("fecha_fin") = t$
Detalle_evento.Adodc1.Recordset.Fields("cod_evento") = var(3)
Detalle_evento.Adodc1.Recordset.Fields("cod_empleado") = var(4)
On Error GoTo n
Detalle_evento.Adodc1.Recordset.Update
Detalle_evento.Adodc1.Refresh
Por favor si alguien me puede colaborar en esto estarÃa grandemente agradecido.
lo que pasa es que tengo un problema con un programa que usa una base de datos MySQL, ya que no he podido actualizar un registro; yo estoy utlizando ADO para el manejo de la base de daots, y lo que necesito saber es, como puedo poner una consulta recordsource en una variable. A continuación muestro parte del codigo que tengo hecho:
Detalle_evento.Adodc1.RecordSource = "SELECT fecha_inicio FROM detalle_evento ORDER BY fecha_inicio DESC LIMIT 1"
Detalle_evento.Adodc1.Refresh 'necesito poner esto aqui para actualizar el ADO, pero cuando le ingreso el nuevo registro me saca error
temp$ = Mid(Detalle_evento.Adodc1.Recordset.GetString, 1, 19) 'esta es la parte que no funciona
Detalle_evento.Adodc1.Recordset.AddNew
Detalle_evento.Adodc1.Recordset.Fields("fecha_inicio") = temp$
Detalle_evento.Adodc1.Recordset.Fields("fecha_fin") = t$
Detalle_evento.Adodc1.Recordset.Fields("cod_evento") = var(3)
Detalle_evento.Adodc1.Recordset.Fields("cod_empleado") = var(4)
On Error GoTo n
Detalle_evento.Adodc1.Recordset.Update
Detalle_evento.Adodc1.Refresh
Por favor si alguien me puede colaborar en esto estarÃa grandemente agradecido.
