Delphi 6 com SQL Server 7
13/09/2005
0
Estou com problema e gostaria que alguem podesse me ajudar,pois bem, o problema é o seguinte:
Estou conectando um Banco de Dados no SQL Server 7, através do ADO, a conexão com o banco esta perfeita e bem configurada. O problema que me deparei foi que o SQL Server não aceita os ´ : ´ (dois pontos)como parametro para uma consulta, inserir dados ou alterar dados, como por exemplo:
Const SQL_pesquisa : String = ´Select NomeRegiao From Regiao ´+
´Where NomeRegiao Like :prnPesq ´;
Begin
With dm.qryRegiao do
begin
Close;
SQL.Clear;
SQL.Add(SQL_pesquisa);
Parameters.ParamByName(´prnPesq´).Value := Edit1.Text + ´¬´;
Open;
end;
end;
Sempre trabalhei com IB/FB e nunca me deu problema como eu estou trabalhando em orgão governamental o DB dele é o SQL Server 7. No IB/FB eu uso da mesma forma com excessão (Parameters) e dá certo, gostaria que alguem me ajuda-se neste dilema !!!!
[color=green:f71e294968]Movido de Delphi para SQL Server[/color:f71e294968]
Wly
Posts
13/09/2005
Rjun
resourcestring
SQL_pesquisa = ´Select NomeRegiao From Regiao Where NomeRegiao Like ¬s´;
begin
dm.qryRegiao.SQL.Clear;
dm.qryRegiao.SQL.Add(Format(SQL_Pesquisa, [´´´ + Edit1.Text + ´¬´]);
try
dm.qryRegiao.Open;
// Código para processar o resultado
finally
dm.qryRegiao.Close;
end;
end;
14/09/2005
Wly
Select NomeRegiao From Regiao Where (NomeRegiao=:prnPesq);
No delphi eu utilizo assim para testar, tanto atraves do Acess ou do IB/FB:
Const SQLpesq : String = ´Select NomeRegiao From Regiao Where (NomeRegiao=:prnPesq)´;
With dm.qryRegiao do
begin
close;
sql.clear;
sql.add(SQLpesq);
parambyname(´prnPesq´).asString := Edit1.text;
open;
end;
Este exemplo acima foi testa no Delphi 6 acessando SGDB do IB/FB, no caso MS Access coloquei um o ´parameters´ e nos dois funcionaram.
14/09/2005
Rjun
Se você esta utilizando ADO você deve usar Parameters.ParamByName.
Const
SQLpesq : String = ´Select NomeRegiao From Regiao Where (NomeRegiao=:prnPesq)´;
begin
dm.qryRegiao.sql.clear;
dm.qryRegiao.sql.add(SQLpesq);
dm.qryRegiao.Parameters.ParabyName(´prnPesq´).asString := Edit1.text;
try
dm.qryRegiao.Open;
// Código para processamento da query
finally
dm.qryRegiao.Close;
end;
end;
14/09/2005
Wly
Const
SQLpesq : String = ´Select NomeRegiao From Regiao Where (NomeRegiao=:prnPesq)´;
begin
dm.qryRegiao.sql.clear;
dm.qryRegiao.sql.add(SQLpesq);
dm.qryRegiao.Parameters.ParabyName(´prnPesq´).asString := Edit1.text;
try
dm.qryRegiao.Open;
// Código para processamento da query
finally
dm.qryRegiao.Close;
end;
end;
Fiz o test acima porem o erro esta dando em ´asString´ coloquei ´Value´ e mesmo assim continua dando erro ???
14/09/2005
Rjun
Clique aqui para fazer login e interagir na Comunidade :)