Banco.sdsCliente. Active := False;
Banco.sdsCliente. CommandType := ctQuery;
Banco.sdsCliente. CommandText := '';
Banco.sdsCliente. CommandText := 'select * from CLIENTE where
NOME_CLIENTE like :Valor;
Banco.sdsCliente. ParamByName( 'valor'). AsString :=
quotedstr
vê assim, com as aspas...
Banco.sdsCliente.Active:= False;
Banco.sdsCliente.CommandType := ctQuery;
Banco.sdsCliente.CommandText :=
'select * ' +
'from CLIENTE ' +
'where ' + DBEdit1.DataField + ' = ''' + Input ;
Banco.sdsCliente. Active := True;
eu n lembro
Esse SQL daí tá meio viajado não acha?
Eu faria assim:
Banco.ctQuery.Close;
Banco.ctQuery.SQL.Add('select * from CLIENTE where = :CAMPO');
Banco.ctQuery.Parameters.ParamByName('CAMPO').Value;
Banco..DataSet.Open;
partindo ro pressuposto que Banco é o nome
3 matches
Mail list logo