poner en activo un registro
 

Hola buenas a todos,

Yo había trabajado siempre con locate, y con tablas paradox, teniendo un formulario con varios Tedit, compuesto por ejemplo de TeditCódigo, TeditNombre, Eeditdirección, TeditTeléfono, lo más elemental, pues los tenía programada para que al entrar en TeditCodigo, la Tabla automáticamente se ponía en estado SetKey, con lo cual todos los edit se ponián en blanco, introducía el número de Código y automáticamente el evento iba dirigido a un locate que me buscaba el registro y el resto de los campos automáticamente se completaban, hasta ahí bien, ahora intento trabajar con interbase y sql, que es lo que todos recomendais, pero ahora no puedo poner la tabla en setkey por que no existe, con lo cual al posicionarme en el tdedit (Código) no se borran los campos automáticamente, para introducir el que quiero buscar en qué estado tengo que poner la tabla y por otro lado cómo puedo visualizar un registro entero, mediante sql, creo que es lo más elemental y no debe ser muy difícil, pero he mirado en el foro y no lo he encontrado,

Gracias de antemano.

Hola
Que yo sepa no se tiene que poner la tabla en ningun modo.
con poner la sentencia sql bastaría.

Código SQL [-]
select * from tu_tabla where tu_campo_codigo like :tu_dato

por supuesto tendras que colocar el dato relacionado al edit.
Saludos

No me llega a funcionar pongo como sql lo siguiente:

select * from CLIENTES where codigo like:a

Luego en Código lo siguiente, lo tengo puesto que al pulsar return, se posicione la tabla en ese registro y pueda ver todos sus campos en los distintos edit's,

procedure TFormClientes.EditCodigoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
{var
Busqueda:boolean;
Opcion:tlocateoptions;}
var
a,resultado:integer;
begin
if key=vk_return then
begin
a:=strtoint(EditCodigo.Text);
MyQuery.close;
Myquery.ParamByName('CODIGO').AsInteger:=a ;
Myquery.Open;
if Myquery.RecordCount > 0 then
begin
Resultado := Myquery.FIeldByName('Codigo').asInteger;
end
else
Resultado := -1;
MYquery.close;
end;

Pero me sale como error que el Parametro Codigo no found, luego si anulo la línea "Resultado := Myquery.FIeldByName('Codigo').asInteger;" me dice que el Field a not found.

He hecho programas complejos y siempre utilizaba en las búsqueda locates, pero esto me está costando, y sólo pretendo que se posicione en un registro de la tabla.

Por favor, usa las etiquetas adecuadas [sql] y [delphi] para publicar tu código.

Gracias.

// Saludos

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

Así quedaría tu mensaje:

Código SQL [-]
select * from CLIENTES where codigo like:a

Código Delphi [-]
procedure TFormClientes.EditCodigoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
{var
   Busqueda:boolean;
   Opcion:tlocateoptions;}
var
  a,resultado:integer;
begin
    if key=vk_return then
begin
    a:=strtoint(EditCodigo.Text);
    MyQuery.close;
    Myquery.ParamByName('CODIGO').AsInteger:=a ;
    Myquery.Open;
    if Myquery.RecordCount > 0 then
      begin
       Resultado := Myquery.FIeldByName('Codigo').asInteger;
      end
     else
       Resultado := -1;
    MYquery.close;
end;

CODIGO es un campo en la tabla, o sólo es el nombre de un parámetro de la consulta? un parámetro de la consulta? Si el último caso es verdadero, de ahí nace el error que estás teniendo.

Saludos!

Hola javiermirador.

Con select:

Código Delphi [-]
procedure TForm1.edCodigoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then
    with MyQuery do
    begin
      Close;
      SQL.Text := 'SELECT * FROM TU_TABLA WHERE CODIGO = :PCOD';
      ParamByName('PCOD').AsString := edCodigo.Text;
      Open;
      edCpo2.Text := FieldByName('CAMPO_2').AsString;
      edCpo3.Text := FieldByName('CAMPO_3').AsString;
      edCpo4.Text := FieldByName('CAMPO_4').AsString;
      ...
    end;
end;

De este modo se selecciona el registro y se copian los valores de los campos a los edits. Si hubiera un DBGrid enlazado a MyQuery, sólo se mostrará el registro seleccionado.

Con Locate:

Código Delphi [-]
procedure TForm1.edCodigoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then
    with MyQuery do
    begin
      Locate('CODIGO', edCodigo.Text, []);
      edCpo2.Text := FieldByName('CAMPO_2').AsString;
      edCpo3.Text := FieldByName('CAMPO_3').AsString;
      edCpo4.Text := FieldByName('CAMPO_4').AsString;
      ...
    end;
end;

De este modo se selecciona el registro y se copian los valores de los campos a los edits. Si hubiera un DBGrid enlazado a MyQuery, se mostrará el resto de los registros.

Saludos.

Gracias, ha funcionado a la perfección, pero con el locate se llenaban los edit's automáticamente aquí hay que llenarlos uno a uno con código, pero vamos es sólo un comentario, muchísimas gracias

Si lo que quieres es que se llenen automaticamente puedes usar DBEdit enlazados a la consulta.

Efectivamente Mamaro, los TDBEdits se llenan automáticamente, pero hay un problema que en la tabla se queda como activo el primer registro, es decir la idea es visualizar todos los campos en los distintos TdbEdits, y para visualizarlos es introducir el registro que quiero visualizar en el tDbEdit donde está el campo clave que se llama CODIGO, si dicho registro existe, entonces la tabla la pongo en Modo Edit y poder modificar cualquier campo de ese registro y si no existe pongo la tabla en modo Insert, y así entroducir un nuevo Registro, esto lo hacía a la perfección con el Locate, pero viendo que todos aconsejábais hacelo por SQL que es más potente.

Así al introducir los que me dices:

Código Delphi [-]
 
procedure TFormClientes.EditCodigoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  a,resultado:integer;
begin
    if key=vk_return then
      with Myquery do
      begin
        a:=strtoint(EditCodigo.Text);
        MyQuery.close;
        MyQuery.ParamByName('a').Asstring:=editcodigo.Text;
        MyQuery.Open;
        if Myquery.RecordCount > 0 then
           begin
            Resultado := Myquery.FIeldByName('Codigo').asInteger;
            editnombre.Text:=FieldbyName('nombre').AsString ;
            editDireccion.Text:=FieldbyName('Direccion').AsString;
                           :
                           :
            da.DataModule1.IBTablaClientes.Edit;
           end
          else
            begin
            dat.DataModule1.IBTablaClientes.Insert;
            end;
        close;
      end;
end;

Todos los TBEdit's se completan, por el ejemplo le introduzco en EditCodigo el 53 y los demás se completan con con el Registro 53, pero al meterme en el TEditNombre, este cambia su valor y me visualiza el Nombre del primer registro, y así me van cambiando todos los TDbedit según me meto en cada uno al primer registro, con lo cual la Tabla no se posiciona en el Registro 53 sino en el 1.

Y por otro lado cada TDBédit, lo enlazo con la consulta como me dices de Query mediante el DataSource y sí se posiciona en ese Registro 53 automáticamente, pero la tabla no consigo ponerla en insertar ni en editar, para modificar valores o modificarlos como en es el caso siguiente:

Código Delphi [-]
 
procedure TFormClientes.EditCodigoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  a,resultado:integer;
begin
    if key=vk_return then
      with Myquery do
      begin
        a:=strtoint(EditCodigo.Text);
        MyQuery.close;
        MyQuery.ParamByName('a').Asstring:=editcodigo.Text;
        MyQuery.Open;
        if Myquery.RecordCount > 0 then
           begin
             dat.DataModule1.IBTablaClientes.Edit;
           end
          else
            begin
            dat.DataModule1.IBTablaClientes.Insert;
            end;
        close;
      end;
end;

También se completan todos los Tdbedit's, pero no se pone la tabla en edit o en insert, ni usando

Código Delphi [-]
FormClentes.Datasource1.edit

Perdonar por el rollo, pero es algo muy elemental y no consigo resolverlo, es sólo posicionar la tabla en un registro y si existe ediarlo y poder modificarlo y si no existe el código ponerlo en insertar y añadir nuevo registro, sin utilizar locates.

Gracias.