Fórum ParamByName #181890
12/09/2003
0
Oi Pessoal minha aplicação é composta por um DataModule(DM) que contém um ADOConnection, ADOQuery(Qaux2) e etc... a base de dados é MS Access. Estava tentando realizar este insert só que na hora de compilar, ele reclama do ParamByName. Este código tirei de um livro de SQLServer. Gostaria de saber se com o Access posso realizar o insert utilizando essa estrutura? Se sim, quais são os procedimentos que tenho que seguir?.
With DM.Qaux2 do
begin
Sql.Clear;
Sql.Add(´ INSERT INTO tbCLIENTES´);
Sql.Add(´ VALUES( :nome, :endereco , :cidade, :bairro, :cep, :uf, :nascimento, :dddt, :telefone, :dddc, :celular, :email, :sexo, :vip)´);
ParamByName(´nome´).value:=ENome.Field.AsString;
ParamByName(´endereco´).value:=EEndereco.Field.AsString;
ParamByName(´cidade´).value:=ECidade.Field.AsString;
ParamByName(´bairro´).value:=EBairro.Field.AsString;
ParamByName(´cep´).value:=ECep.Field.AsString;
ParamByName(´uf´).value:=EUf.Field.AsString;
ParamByName(´nascimento´).value:=ENascimento.Field.AsString;
ParamByName(´dddt´).value:=EDddt.Field.AsString;
ParamByName(´telefone´).value := ETelefone.Field.AsString;
ParamByName(´dddc´).value := EDddc.Field.AsString;
ParamByName(´celular´).value := ECelular.Field.AsString;
ParamByName(´email´).value := EEmail.Field.AsString;
ParamByName(´sexo´).value := ESexo.Field.AsString;
ParamByName(´vip´).value := EVip.Field.AsString;
ExecSQL;
End;
OBS: os campos são TDBEDIT
Obrigada pela atenção
With DM.Qaux2 do
begin
Sql.Clear;
Sql.Add(´ INSERT INTO tbCLIENTES´);
Sql.Add(´ VALUES( :nome, :endereco , :cidade, :bairro, :cep, :uf, :nascimento, :dddt, :telefone, :dddc, :celular, :email, :sexo, :vip)´);
ParamByName(´nome´).value:=ENome.Field.AsString;
ParamByName(´endereco´).value:=EEndereco.Field.AsString;
ParamByName(´cidade´).value:=ECidade.Field.AsString;
ParamByName(´bairro´).value:=EBairro.Field.AsString;
ParamByName(´cep´).value:=ECep.Field.AsString;
ParamByName(´uf´).value:=EUf.Field.AsString;
ParamByName(´nascimento´).value:=ENascimento.Field.AsString;
ParamByName(´dddt´).value:=EDddt.Field.AsString;
ParamByName(´telefone´).value := ETelefone.Field.AsString;
ParamByName(´dddc´).value := EDddc.Field.AsString;
ParamByName(´celular´).value := ECelular.Field.AsString;
ParamByName(´email´).value := EEmail.Field.AsString;
ParamByName(´sexo´).value := ESexo.Field.AsString;
ParamByName(´vip´).value := EVip.Field.AsString;
ExecSQL;
End;
OBS: os campos são TDBEDIT
Obrigada pela atenção
Angela
Curtir tópico
+ 0
Responder
Posts
13/09/2003
Joilson_gouveia
O Componente ADOQuery tem a propriedade [b:5e48ee94f5]ParamByName[/b:5e48ee94f5] ligada à propriedade [b:5e48ee94f5]Parameters[/b:5e48ee94f5]:
ADOQuery1.[b:5e48ee94f5]Parameters.ParamByName[/b:5e48ee94f5](´CAMPO1´).Value := ....
ADOQuery1.[b:5e48ee94f5]Parameters.ParamByName[/b:5e48ee94f5](´CAMPO1´).Value := ....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)