poner en activo un registro

[javiermirador]

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.

[[Caral]]

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

[javiermirador]

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.

[roman]

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

Gracias.

// Saludos

[Casimiro Notevi]

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;

[[Chris]]

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!

[ecfisa]

Hola javiermirador.

que al pulsar return, se posicione la tabla en ese registro y pueda ver todos sus campos en los distintos edit's,

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.

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.:

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.