modificar una tabla filtrada

[marcos_0586]

Empezado por Caral

Hola
Da la impresion de que el campo Cod_Cliente es Numerico????.
El DBEdit es un componente NO un campo, por eso no puede estas en la sentencia sql como si lo fuera, para eso se necesita concatenar, trata asi:
Código Delphi [-]Query1.SQL.Text:= 'SELECT Numero from T_telcliente where Cod_cliente= '+DBedit1.text; Query1.active:=true;


Lo demas, esta sobrando.
Saludos

gracias caral por la ayuda, lo he probado,con el DBedit y con un edit pero me aparece un mensaje:type mismatch in expression.
El campo Cod_Cliente es tipo string porque no son solo numeros tambien tiene guiones

[[Caral]]

Hola
Me imagino que el dbedit tiene un query o table independiente del de esta sentencia.
Lo que dice el mensaje es que el tipo de dato no es correcto, lo que quiere decir que o no coincide o no lo encuentra pudiendo ser un null.
Saludos
PD: Que base de datos usas?

[marcos_0586]

hola caral, si, el DBedit esta relacionado con la tabla T_clientes y es el resultado de una busqueda echa en la tabla T_cliente, con respecto al error estoy seguro que es la opcion de que el tipo de datos es incorrecto ya que el valor que estoy buscando existe porque lo hice yo mismo, creo que es por la forma de agregar el dbedit al query ya que el campo a buscar existe y el campo Cod_cliente es tipo texto y el campo dbedit tambien. seguire buscando la forma de solucionar esto, gracias

[[Caral]]

Hola
Usa una variable y un parametro, tal vez ayude.
En el caso de los dbedit aveces molestan.
Saludos

[marcos_0586]

hola, el problema es que estoy buscando un dato que no es clave primaria, por eso me dice ese error, ahora bien, alguien me podria dar un ejemplo de como asignarle el indice a un campo de la tabla? o como buscar por campos que no sean indices? probe con IndexName o con locate pero el locate es con indices tambien. Saludos

[[Caral]]

Hola
A ver asi:

Código Delphi [-]
var Dato: String;
Begin
Dato:= DBEdit1.Text;
Query1.SQL.Text:= 'SELECT Numero from T_telcliente where Cod_cliente= :a'; 
Query1.Parameters[0].Value:= Dato;
Query1.active:=true;

Saludos
PD: Con que base de datos esta trabajando?

[marcos_0586]

trabajo con database desktop que viene con delphi7 (las tablas las hice en paradox 7)
ahora me aparece:
[Error] Unit8.pas(129): Undeclared identifier: 'Parameters'
[Error] Unit8.pas(129): Missing operator or semicolon
a no se que hacer, dejo el codigo a ver si se puede hacer algo para poder terminar con esto

Código SQL [-]
 
procedure TForm8.Image1Click(Sender: TObject); var Dato: String; 
var Dato: String;
begin
if form1.table4.findkey([Edit3.Text])= true  then
begin 
     panel1.Visible:=true; 
    IF RadioButton1.Checked=true then  
    begin  
         Image2.Visible:=false;      
         Image3.Visible:=true;           
 DBLookupComboBox1.ReadOnly:=true;        
    DBEdit1.ReadOnly:=true;      
   DBEdit2.ReadOnly:=true;       
     DBEdit3.ReadOnly:=true;         
   dbgrid1.ReadOnly:=true;         
   Dato:= DBEdit1.Text;     
 Query1.SQL.Text:='SELECT Numero from T_telcliente where Cod_cliente=:a'; 
 Query1.Parameters[0].Value:= Dato;         
   Query1.active:=true;      
     end          
  else       
     begin       
          Image2.Visible:=true;    
             Image3.Visible:=false;               
  DBLookupComboBox1.ReadOnly:=false;         
        DBEdit1.ReadOnly:=false;         
        DBEdit2.ReadOnly:=false;          
       DBEdit3.ReadOnly:=false;     
            dbgrid1.ReadOnly:=false;   
         end;         
 end       
  else        
    begin       
        showmessage('no existe el dni buscado');   
            edit3.Text:='';   
         end;     
  edit3.Text:=''; 
end;