View Single Post
  #1  
Old 11/01/2013
BPL's Avatar
BPL BPL is offline
Miembro
 
Join Date: Jan 2009
Posts: 47
Rep Power: 0
BPL Va por buen camino
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...
Reply With Quote