FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Automatizar funcion del ReplaceDialog
Hola
sucede que tengo que realizar reemplazos en un campo de una tabla de una base de datos, el problema es que esta BD ya tiene muchos datos e ir manualmente uno por uno seria acabar en 2012. Me surgio la siquiente idea usar un while hasta el EoF e ir realizando los cambios, ahora bien siempre he usado el ReplaceDialog y no se como hacerlo yo directamente y el problema esta en que cada ves que se pase de un registro a otro tedria que ejecutar el ReplaceDialog, si alguien conoce una forma de hacerlo sin tener que ejecutarlo estare muy agradecido
__________________
Nunca esta de más volver a ver la "Guia de Estilo" o "La Otra Guia de Estilo". Recuerda siempre usar los "Tags" para una mejor legibilidad de tu código. Cuando miras fijamente al abismo, este te devuelve la mirada oo______ooo_____ooo_ooooooo_____ooo____oooooo____ooooooo______oooo____ooo____oo_ oo______oooo___oooo_oo____oo__oo___oo__oo____oo__oo____oo___oo____oo__oooo___oo_ oo______oo_oo_oo_oo_oo____oo_oo_____oo_oo_____oo_oo____oo__oo______oo_oo_oo__oo_ oo______oo__ooo__oo_oooooo___ooooooooo_oo_____oo_ooooooo___oo______oo_oo__oo_oo_ oo______oo_______oo_oo_______oo_____oo_oo____oo__oo____oo___oo____oo__oo___oooo_ ooooooo_oo_______oo_oo_______oo_____oo_oooooo____oo_____oo____oooo____oo____ooo_ ________________________________________________________________________________ |
#2
|
||||
|
||||
Hola, s eme ocurrio esta solucion, pero aun asi sigue dejando algunos sin reemplazar, alguna idea ???????
Código:
//--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { ProgressBar1->Show(); ProgressBar1->Min = 0; ProgressBar1->Max = ADOQuery1->RecordCount; ProgressBar1->Step = 1; while (!ADOQuery1->Eof) { int SelPos = DBRichEdit1->Text.Pos(Edit1->Text); if (SelPos > 0) { DBRichEdit1->SelStart = SelPos - 1; DBRichEdit1->SelLength = Edit2->Text.Length(); DBRichEdit1->SelText = Edit2->Text; } ProgressBar1->Show(); ProgressBar1->StepIt(); if (ProgressBar1->Position == ProgressBar1->Max) { ProgressBar1->Position = 0; ProgressBar1->Hide(); } ADOQuery1->Next(); } }
__________________
Nunca esta de más volver a ver la "Guia de Estilo" o "La Otra Guia de Estilo". Recuerda siempre usar los "Tags" para una mejor legibilidad de tu código. Cuando miras fijamente al abismo, este te devuelve la mirada oo______ooo_____ooo_ooooooo_____ooo____oooooo____ooooooo______oooo____ooo____oo_ oo______oooo___oooo_oo____oo__oo___oo__oo____oo__oo____oo___oo____oo__oooo___oo_ oo______oo_oo_oo_oo_oo____oo_oo_____oo_oo_____oo_oo____oo__oo______oo_oo_oo__oo_ oo______oo__ooo__oo_oooooo___ooooooooo_oo_____oo_ooooooo___oo______oo_oo__oo_oo_ oo______oo_______oo_oo_______oo_____oo_oo____oo__oo____oo___oo____oo__oo___oooo_ ooooooo_oo_______oo_oo_______oo_____oo_oooooo____oo_____oo____oooo____oo____ooo_ ________________________________________________________________________________ |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
automatizar instalación de mysql | Aprendiendo | MySQL | 3 | 10-02-2010 16:19:58 |
Automatizar OpenOffice. | Critter | Servers | 2 | 31-07-2007 19:41:24 |
Como usar correctamente ReplaceDialog? | clanmilano | Varios | 1 | 06-02-2006 13:41:57 |
Automatizar BACKUPS y RESTORES | AMINOA2R | Firebird e Interbase | 12 | 20-10-2005 16:11:16 |
Automatizar Login | JoseQ | Internet | 0 | 30-03-2005 12:35:50 |
|