Conecto Mas Não Consigo Manipular

[Guest renatoden]

Consigo conectar no Access mas não consigo manipular as tabelas e os dados, estou usando o componente ADO(Primeira Vez que uso).

with (ADOQuery1) do

begin

Close;

SQL.Clear;

SQL.Add('INSERT INTO cliente');

SQL.Add('(cli_nome,cli_nascimento,cli_rg,cli_cpf,cli_endereco,cli_numero,cli_bairro,cli_cep,cli_cidade,cli_email,cli_telefone,cli_celular,cli_marca,cli_modelo,cli_placa,cli_ano,cli_cor)');

SQL.Add('VALUES');

SQL.Add('("cli_nome","1/8/1983","1111111111","cli_cpf","cli_endereco","179","cli_bairro","cli_cep","cli_cidade","cli_email","(51)3344-5386","(51)92715617","cli_marca","cli_modelo","cli_placa","2004","cli_cor")');

Active := True;

ExecSQL;

Application.MessageBox('Operação realizada com sucesso!','Aviso do Sistema',MB_ICONEXCLAMATION + MB_OK + MB_DEFBUTTON2);

end;

O Provedor não oferece suporte para retornar vários conjuntos de registros de uma única execução.

[Kikonanet]

Troque o ExecSql por Open e não precisa do active=true....

Tente assim:

with (ADOQuery1) do

begin

Close;

SQL.Clear;

SQL.Add('INSERT INTO Tabela(campos)');

SQL.Add('VALUES (Valores)');

Open;

end;

[Progr'amador]

Troque o ExecSql por Open e não precisa do active=true....

Olá Kikonanet,

Correto que não precisa do 'Active := True' mas está correto o ExecSQL, o Open só é usando numa "SELECT", toda vez que se usar o INSERT, UPDATE e DELETE deve-se usar o ExecSQL mesmo.

renatoden, tenta assim:

with (ADOQuery1) do begin

Close;

SQL.Clear;

SQL.Add('INSERT INTO cliente');

SQL.Add('(cli_nome,cli_nascimento,cli_rg,cli_cpf,cli_endereco,cli_numero,cli_bairro,cli_cep,cli_cidade,cli_email,cli_telefone,cli_celular,cli_marca,cli_modelo,cli_placa,cli_ano,cli_cor)');

SQL.Add('VALUES');

SQL.Add('(''cli_nome'',''1/8/1983'',''1111111111'',''cli_cpf'',''cli_endereco'',''179'',''cli_bairro'',''cli_cep'',''cli_cidade'',''cli_email'',''(51)3344-5386'',''(51)92715617'',''cli_marca'',''cli_modelo'',''cli_placa'',''2004'',''cli_cor'')');

ExecSQL;

Application.MessageBox('Operação realizada com sucesso!','Aviso do Sistema',MB_ICONEXCLAMATION + MB_OK + MB_DEFBUTTON2);

end;

[Kikonanet]

isso mesmo comi bola