|
Crea Query en Tiempo ejecucion
Hola a Todos,,
Les cuento, estoy recien entrando al mundo de las ADT, por ende estoy migrando todos mis sistemas que trabajaban con DBF (Delphi y Motor Advantage)
pero me encontre con un problema que no he podido resolver, les explico
// Esta rutina Crea una Query en tiempo de Ejecucion
Qr := TAdsQuery.Create(xOw);
Qr.DatabaseName := Datamodule.cnt_data.AliasName ;
Qr.AdsTableOptions.AdsCharType := OEM ;
Qr.AdsTableOptions.AdsRightsCheck := False ;
// Aqui termina la Creacion de la Query
// aca usare la Query recien creada para hacer una Consulta
QR.SQL.Clear ;
Qr.SQL.Add('Insert Into MyTablita (codigo,rut,cargo) ');
Qr.SQL.Add(' values (:codigo,:rut,:cargo)');
Qr.ParamByName('codigo').AsString := Codigo ;
Qr.ParamByName('rut').AsString := Rut ;
Qr.ParamByName('cargo').AsString := Cargo ;
qr.ExecSQL ;
// termino de hacer la Consulta
pues aqui es donde se cae el prg. diciendo que no encuentra la tabla Mytablita.
que podra pasar, faltara algún paramentro en el minuto de crear la Query o definitivamente no es asi...
esto con las DBF me funcionaba impecable...
por fa' si alguien pudiera darme una lucecita se lo agradecera monton....
gracias...
|