Problema besta com BD em Acess(ADO Conecction e CIA)

Question

Oi galerinha, mas uma vez venho  com minhas d�vidas bestas heheheh :P .Tenho um BD em Acess, mas quando uso o bot�o para inserir/Alterar etc, ele diz q t� com erro de sintaxe. Queria saber mesmo se es...

Rodrigo Costa · Answer

caro amigo,Coloque o c�digo aqui (a parte que interessa) para n�s podermos ajud�-lo....

Dead_thinker · Answer

Desculpe pessoal, esqueci de colocar o cod. Ai est�:

procedure TForm1.Button1Click(Sender: TObject); //Incluir
begin
WITH QGERAL DO BEGIN
CLOSE;
SQL.CLEAR;
SQL.ADD(�Insert into Endere�os�);
SQL.ADD(�(COD,NOME,TEL,END) Values�);
SQL.ADD(�(:0_COD,:1_NOME,:2_TEL,:3_END)�);
Parameters[0].Value:= strtoint(EDIT1.Text);
Parameters[1].Value:= EDIT2.Text;
Parameters[2].Value:= EDIT3.Text;
Parameters[3].Value:= Edit4.Text;
EXECSQL;
end;
SHOWMESSAGE(�REGISTRO INCLUIDO !�);
end;

procedure TForm1.Button2Click(Sender: TObject); //Alterar
begin
WITH QGERAL DO BEGIN
CLOSE;
SQL.CLEAR;
SQL.ADD(�UPDATE Endere�os SET�);
SQL.ADD(�COD = :0_COD,�);
SQL.ADD(�NOME = :1_NOME,�);
SQL.Add(�TEL = :2_TEL,�);
SQL.ADD(�END = :3_END,�);
SQL.ADD(�WHERE COD = :4_COD�);
Parameters[0].Value:= strtoint(EDIT1.Text);
Parameters[1].Value:= EDIT2.Text;
Parameters[2].Value:= EDIT3.Text;
Parameters[3].Value:= EDIT4.Text;
Parameters[4].Value:= StrToInt(Edit1.Text);
EXECSQL;
end;
SHOWMESSAGE(�REGISTRO ALTERADO !�);
end;

Brnz · Answer

creio ... note... CREIO... q seu problema esta nas quebras de linhas do SQL... do tipo... ponha tudo num ADD soh...

Creio q seja isso pq por exemplo a consulta

sql.add(�select * from�);
sql.add(�tabela�);

naum funfa... mas...
sql.add(�select * from tabela�); tah mais do q certo...

achu q eh issow...

flow...

BRNz...

Brnz · Answer

SAKEEEEEEEEEIqdo dah sql.add ele naum quebra as linhas na verdade...intaum... se quiseres manter em diversos add ponha um espa�o no final de cada q seja necessario... tipo [code:1:5bf646f1bb]WITH QGERAL DO BEGIN CLOSE; SQL.CLEAR; SQL.ADD(�Insert into Endere�os{-->} {<--}�);SQL.ADD(�(COD,NOME,TEL,END) Values{-->} {<--}�); SQL.ADD(�(:0_COD,:1_NOME,:2_TEL,:3_END)�); Parameters[0&93;.Value:= strtoint(EDIT1.Text); Parameters&91;1&93;.Value:= EDIT2.Text; Parameters&91;2&93;.Value:= EDIT3.Text; Parameters&91;3&93;.Value:= Edit4.Text; EXECSQL; [/code:1:5bf646f1bb]...

Rodrigo Costa · Answer

Ou ent�o fa�a de outra maneira:[code:1:e69251601c]adoquery.insert; //� o mesmo que append !adoquery.fieldbyname(�COD�).asinteger:=strtoint(edit1.text);adoquery.fieldbyname(�NOME�).asstring:=edit2.text;adoquery.fieldbyname(�TEL�).asstring:=edit3.text;adoquery.fieldbyname(�END�).asstring:=edit4.text;adoquery.post; //grava[/code:1:e69251601c]usar sql � melhor mesmo, mas talvez, usar os m�todos seja mais f�cil:insert ou append - libera um novo registro em branco;cancel - cancela o processodelete - apaga o regsitroedit - libera o registro para altera��o (requer um post ap�s a altera��o)post - grava o registro...

F�rum Problema besta com BD em Acess(ADO Conecction e CIA) #193156