Cadastrando com o ADO :::

Delphi

07/11/2003

Olá galera!!!!!!!
Olha eu de novo aqui...hehehehhehehe

O meu problema é o seguinte:

Eu estou usando o ADOConnection e estou usando o seguinte código para cadastrar:

Connected := true;
Open;
Execute(´INSERT INTO TClientes (nome,r_social,endereco,cep,bairro,cidade,estado,telefone,telefone2,obs) ´ +
´Values (´´+ frmcli.enome.text +´´, ´´+ frmcli.Er_social.Text +´´, ´ +
´´´+ frmcli.Eendereco.text +´´, ´´+ frmcli.Ecep.text + ´´, ´ +
´´´+ frmcli.Ebairro.text +´´, ´´+ frmcli.ECidade.text +´´, ´ +
´´+ IntToStr(frmcli.cuf.ItemIndex)+´, ´´+ frmcli.Etel.Text+´´, ´ +
´´´+ frmcli.Etel2.Text +´´, ´´+ frmcli.Eobs.Text +´´´);
showmessage(´Cliente cadastrado com sucesso!´);
Close;
Connected := false;

Está dando erro de sintaxe.
Onde eu estou errando? Parece estar tudo certo.


Tectaf

Tectaf

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

07/11/2003

Experimente utilizar QuotedStr(frmcli.enome.text) ao invés de ´´´´+frm.cli.text+´´´´.


GOSTEI 0
Tectaf

Tectaf

07/11/2003

Continua dando o erro mesmo utilizando QuotedStr(frmcli.enome.text) ao invés de ´´´´+frm.cli.text+´´´´.

O que pode ser ainda???

Me Ajudem, por favor!!! :cry:


GOSTEI 0
Marcelo.c

Marcelo.c

07/11/2003

Substituiu em todos ?

Você está utilizando ADOConnection, não deveria ser ADOCommand ?


GOSTEI 0
Michel

Michel

07/11/2003

Frm_EmissaoCheques.ADOCommand1.CommandText :=´Insert into cheques Values(´+ chr(39) + inttostr(total) + chr(39)+´,´+
chr(39)+Frm_EmissaoCheques.Combobox1.Text + chr(39)+´,´+
chr(39)+Frm_EmissaoCheques.edit1.Text + chr(39)+´,´+
chr(39)+Frm_EmissaoCheques.edit3.Text + chr(39)+´,´+
chr(39)+Frm_EmissaoCheques.MaskEdit1.Text + chr(39)+´,´+
chr(39)+Frm_EmissaoCheques.edit2.Text + chr(39)+´,´+
chr(39)+Frm_EmissaoCheques.Panel2.Caption + chr(39)+´,´+
chr(39)+Frm_EmissaoCheques.Panel3.Caption + chr(39)+´,´+
chr(39)+Frm_EmissaoCheques.memo1.Text + chr(39)+´,´+
chr(39)+Frm_EmissaoCheques.edit6.Text + chr(39)+´,´+
chr(39)+Frm_EmissaoCheques.edit7.Text + chr(39)+´,´+
chr(39)+Frm_EmissaoCheques.MaskEdit2.Text + chr(39)+´)´;
Frm_EmissaoCheques.ADOCommand1.Execute;


GOSTEI 0
POSTAR