• Miércoles 8 de Mayo de 2024, 04:18

Autor Tema:  Base De Datos Con Visual Foxpro  (Leído 1054 veces)

loki160685

  • Miembro activo
  • **
  • Mensajes: 58
    • Ver Perfil
Base De Datos Con Visual Foxpro
« en: Lunes 1 de Enero de 2007, 21:43 »
0
Estoy manejando una base de datos en Visual Foxpro, por la cantidad de datos que pertenecen a una sola persona, es que la base de datos esta dividida en 5 tablas con relacion de 1 a 1, el problema que tengo es que el ingreso de los datos mediante una TQuery se trunca al momento de ingresar datos a la segunda tabla, y me devuelve el siguiente mensaje de error:


Project ADMINRES.exe raised exception class EDBEngineError with message 'Missing rigth quote' Process stopped.

El ingreso de los datos esta definido en las siguientes funciones:

void __fastcall TIngreso_datos::Ing_datos_tabla1()
{
 //ingreso de datos a la tabla1
    qryIngreso_datos->Close();
    qryIngreso_datos->SQL->Clear();
    qryIngreso_datos->SQL->Add("INSERT INTO reservista(n_m, n_l, grd, nom, udd) VALUES('"+eN_m->Text+"','"+eN_l->Text+ "','"+cbgrd->Text+ "','"+eNom->Text+ "','"+cbUdd->Text+ "')");
    qryIngreso_datos->ExecSQL();
}

void __fastcall TIngreso_datos::Ing_datos_tabla2()
{
//ingreso de datos a la tabla2
    qryIngreso_datos->Close();                                                                                                                                                                                                                                                                      
    qryIngreso_datos->SQL->Clear();
    qryIngreso_datos->SQL->Add("INSERT INTO presentacion(n_m,cntr, l_pres, f_pres, t_ins, rec_m, est, peso, const, est_nutl, senas, gs, frh, c_p, oj, nar, boc, lab, cabos) VALUES('"+eN_m->Text+"',
'"+eCntr->Text+"','"+eL_pres->Text+"','"+DateToStr(dF_pres->Date)+"','"+eT_ins->Text+"','"+cbRec_m->Text+"','"+eEst->Text+"','"+ePeso->Text+"','"+eCons->Text+"','"+eEst_nutl->Text+"','"+eSenas->Text+"','"+cbGs->Text+"','"+cbFrh->Text+"','"+eC_p->Text+"','"+eOj->Text+"','"+eNar->Text+"','"+eBoc->Text+"','"+eLab->Text+"','"+eCabos->Text+"');
    qryIngreso_datos->ExecSQL();    //<----- AQUI ES DONDE OCURRE EL ERROR
}


PORFAVOR ALGUIEN PODRIA AYUDARME??