Insert com SQL em Tabela do Acess

18/12/2003

1

Uso este seguinte comando para dar insert em minha tabela, ele funciona mais ta faltando mais campos e não sei como fazer.

ADOQueryCupom.close;
ADOQueryCupom.SQL.Clear;
ADOQueryCupom.SQL.add(´insert into TabValeCompras(nome)values(´+Chr(39) + DBE2Cupom.Text + Chr(39) +´)´);
ADOQueryCupom.ExecSQL;

Aqui estou fazendo insert no campo NOME, mais tenho que fazer o seguinte dar um insert com MATRICULA que e um campo integer, NOME string, CODIGOVALE que e integer, DESCRICAOVALE string, preciso fazer insert em todos de uma vez, alguem pode me ensinar.


Obrigado.


Responder

Posts

18/12/2003

Rock.it

INSERT INTO Customer (CustNo, Company) VALUES (:CustNo, :CompanyName) (.....) with ADOQuery2 do begin DataSource := DataSource1; ParamByName(´CompanyName´).AsString := Edit1.Text; Prepared := True; ExecSQL; end;


Ola,

to postando essa parte do help so para confirmar msm, nunca usei ADO,
mas o padrão para vc passar valores para uma Query é usar parametros,
ou seja a sua query ficaria assim:

SQL.Add(´Insert into TabValeCompras(nome,matricula,codigovale,descricaovale)´);
SQL.Add(´values(:nome,:matricula,:codigovale,:descricaovale)´);
ParamByName(´nome´).asString := valortal;
ParamByName(´matricula´).AsInteger := valorb;
ParamByName(´codigovale´).AsString := valor;
ParamByName(´descricaovale´).AsString := valordescricaovale;
ExecSQL;


O o nome do parametro é o q vem depois dos dois pontos.

Espero ter ajudado!
:arrow: rock.it


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira