Montar selct

Question

eu to tentando fazer o sistema q tenha uma catraca, eu preciso saber c existe o cogido na tabela de clientes, caso o codigo exista ele tem q voltar duas mensagem uma eh de Liberado outra eh o nome do ...

Sremulador · Answer

voc� pode utilizar um locate tb funciona...

$grandaum$ · Answer

obrigado pela dica mas eu naum sei ultilizar o Locate, poderia me dar um exemplo.....obrigado...

Rjun · Answer

[code:1:65e68a399d]Query1.SQL.Clear;Query1.SQL.Add(�select CODIGO, NOMECLI from CLIENTE where CODIGO = :Codigo�);Query1.Parameters.ParamByName(�Codigo�).Value = edtCodigo.Text;Query1.Open;try  if Query1.IsEmpty then    lblsituacao.Caption := �Acesso liberado�  else    lblsituacao.Caption := �C�digo n�o encontrado.�;finally  Query1.Close;end;[/code:1:65e68a399d]...

Ivanh · Answer

/*Usando dbExpress*/
with TSQLQuery.Create(nil) do
begin
try
SQLConnection := SuaConexao;
SQL.Clear;
SQL.Add(Format(�SELECT ETC... WHERE CODIGO = �s�,[Edit1.Text]));
Open;
if not Fields[0].IsNull then
begin
label1.caption := �Achou�;
end
else
begin
label1.caption := �� Achou�;
end;
finally
Close;
Free;
end;
end;

$grandaum$ · Answer

eu to usando o SqlConnection e pra fazer e o SqlDataSet pra cada tabela,...

$grandaum$ · Answer

[quote:ab828c9aa4=�$Grandaum$�]eu to usando o SqlConnection e pra fazer e o SqlDataSet pra cada tabela,[/quote:ab828c9aa4]]

Deixa eu reescrever tudu issu aki
eu uso o SqlConnection pra fazer conexao com o bd e uso o SqlDataSet pra fazer conexao com as tabelas.....pronto agora melhorou

Ivanh · Answer

[code:1:a26cb4aed8]with TSQLQuery.Create(nil) dobegin  try  SQLConnection := ;  SQL.Clear;  SQL.Add(��);  SQL.Add(��);  Open;  if not Fields&#91;0&93;.IsNull then  begin  end;  finally    Close;    Free;  end;end;[/code:1:a26cb4aed8]Faz assim que funciona!...

$grandaum$ · Answer

[quote:2e5ea169c6=�Rjun�][code:1:2e5ea169c6]Query1.SQL.Clear;Query1.SQL.Add(�select CODIGO, NOMECLI from CLIENTE where CODIGO = :Codigo�);Query1.Parameters.ParamByName(�Codigo�).Value = edtCodigo.Text;Query1.Open;try  if Query1.IsEmpty then    lblsituacao.Caption := �Acesso liberado�  else    lblsituacao.Caption := �C�digo n�o encontrado.�;finally  Query1.Close;end;[/code:1:2e5ea169c6][/quote:2e5ea169c6]ele dah erro na 3� linha no Parameters...

$grandaum$ · Answer

[quote:8706616537=�ivanh�][code:1:8706616537]with TSQLQuery.Create(nil) dobegin  try  SQLConnection := ;  SQL.Clear;  SQL.Add(��);  SQL.Add(��);  Open;  if not Fields&#91;0&93;.IsNull then  begin  end;  finally    Close;    Free;  end;end;[/code:1:8706616537]Faz assim que funciona![/quote:8706616537]ocorre o seguinte erro[Error] UnitPrincipal.pas(157): Incompatible types: �TSQLConnection� and �String�...

$grandaum$ · Answer

[quote:8cd19e3993=�$Grandaum$�][quote:8cd19e3993=�ivanh�][code:1:8cd19e3993]with TSQLQuery.Create(nil) dobegin  try  SQLConnection := ;  SQL.Clear;  SQL.Add(��);  SQL.Add(��);  Open;  if not Fields&#91;0&93;.IsNull then  begin  end;  finally    Close;    Free;  end;end;[/code:1:8cd19e3993]Faz assim que funciona![/quote:8cd19e3993]ocorre o seguinte erro[Error] UnitPrincipal.pas(157): Incompatible types: �TSQLConnection� and �String�[/quote:8cd19e3993]e tb oq viria dentro do    Sql.add(� �);...

Sremulador · Answer

[quote:239f2a8fa1]e tb oq viria dentro do Sql.add(� �);[/quote:239f2a8fa1]o cod para a pesquisa da tabelao locate fica assimtabela.locate (�CAMPO DA TABELA�, campo a variavel a pesquisar, [...])...

F�rum Montar selct #286860