Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/10/2010, 22:15
cristianeme
 
Fecha de Ingreso: octubre-2010
Mensajes: 6
Antigüedad: 14 años, 1 mes
Puntos: 1
Exclamación Problema con ADO y VB6

Buenas !
Necesito de su gran ayuda!

Tengo una tabla compuesta por 4 columnas, de los cuales tengo que retirar los datos de dos y modificarlos.
con que sentecia de sql puedo hacerlo?
lo que tengoque hacer es modificar uno por uno, ya que todos tienen valores diferentes, y lo que tengo que modificar es lo siguiente
Tengo las fechas en formato AAAAMMDD y tengo que pasarlas a DD/MM/AAAA
Entonces esto es lo que hice con ADODC:

Código:
variable = Adodc2.Recordset.Fields(2)
    diai_variable = Right(variable, 2)
    mesi_variable = Mid(variable, 5, 2)
    anoi_variable = Left(variable, 4)
    fecha_i = diai_variable & "/" & mesi_variable & "/" & anoi_variable
    Adodc2.Recordset.Fields(2) = fecha_i
    'MsgBox "" + CStr(fecha_i) + ""
    variable_f = Adodc2.Recordset.Fields(3)
    diaf_variable = Right(variable_f, 2)
    mesf_variable = Mid(variable_f, 5, 2)
    anof_variable = Left(variable_f, 4)
    fecha_f = diaf_variable & "/" & mesf_variable & "/" & anof_variable
    Adodc2.Recordset.Fields(3) = fecha_f
    'Adodc1.Recordset.Update
    Adodc2.Recordset.MoveNext
Peeeero, si lo hago paso por paso (F8) funciona bien, pero si lo corro al programa normalmente, arroja errores del tipo "El motor de base de datos Microsoft Jet detuvo el proceso porque otro uaurio está intentando modificar los mismos datos que usted al mismo tiempo". Pero paso a paso, esto anda perfecto, no arroja errores y lo reflejo con un Datareport.

Me podrian ayudar como hacerlo con código SQL po favor! Seria algo como:
Ado.execute UPDATE ?

Por favor, es como urgente casi !!

Muchas gracias !!!!