Parametros

Delphi

14/05/2004

OI GALERA,

estou tendo problemas em uma select simples ---> SELECT CODIGO, TE, CLIENTE, REGIAO, UF, DATACAD FROM CLIENTE WHERE CODIGO = :CODIGO
na propriedade Params codigo esta como ftinteger e input
qdo tento conectar da a seguinte mensagem Parameter not set
Estou usando MSSQL SERVER 2000, este problema acontece com parametros integer, smallint e datetime.
Alguem sabe a solução?
Ah, tudo isso em tempo de design

Meus emails vrssoftware@terra.com.br ou vsouza2003@terra.com.br

Valeu


[b:2fe9ec421d]Título editado. Favor não postar em caixa alta, pois equivale a gritar.[/b:2fe9ec421d]
Sandra/Moderação


Vrssoftware

Vrssoftware

Curtidas 0

Respostas

Bon Jovi

Bon Jovi

14/05/2004

Deveria funcionar sim. Esse teste funciona:

//dfm
object ADODataSet1: TADODataSet
  Connection = ADOConnection1
  CommandText = ´SELECT NOME FROM CLIENTE WHERE ID_CLIENTE = :ID_CLIENTE´
  Parameters = <
    item
      Name = ´ID_CLIENTE´
      Attributes = [paSigned]
      DataType = ftInteger
      Precision = 10
      Size = 4
      Value = Null
    end>
  Left = 264
end


//pas
procedure TForm1.Button1Click(Sender: TObject);
var
  Teste: integer;
begin
  Teste := 1;
  ADODataSet1.Close;
  ADODataSet1.Parameters.ParamByName(´ID_CLIENTE´).Value := Teste;
  ADODataSet1.Open;
end;


E setando o valor em tempo de projeto tb funciona normal:

object ADODataSet1: TADODataSet
  Connection = ADOConnection1
  CommandText = ´SELECT NOME FROM CLIENTE WHERE ID_CLIENTE = :ID_CLIENTE´
  Parameters = <
    item
      Name = ´ID_CLIENTE´
      Attributes = [paSigned]
      DataType = ftInteger
      Precision = 10
      Size = 4
      Value = 1
    end>
  Left = 264
end


Delphi 5 6.18 com update pack 1
SQLServer 2000
Provider SQLOLEDB.1


GOSTEI 0
POSTAR