Fórum Insert Into com AdoQuery #241288
04/07/2004
0
Galera como Faço um Insert passando parametros no ado...? fiz assim deu erro:
Direto no componente :
Insert into TbAcesso (Cod_A,Cod_U,FrmAluno,FrmTurma,
FrmResponsavel,FrmPreMatricula,FrmFinanceiro,FrmSenha)
values(Cod_a =:A,Cod_u =:B,FrmAluno =:C,FrmTurma =:D ,
FrmResponsavel=:E,FrmPreMatricula=:F,FrmFinanceiro=:G,FrmSenha=:H)
Dinamicamente :
DmSL.QryMaxCodigo.Active := False;
DmSL.QryMaxCodigo.Close;
DmSL.QryMaxCodigo.SQL.Clear;
DmSL.QryMaxCodigo.SQL.Add(´SELECT MAX(COD_A)as Cod_Max FROM TbAcesso´);
DmSL.QryMaxCodigo.Open;
DmSL.QryMaxCodigo.Active := True;
Cod := DmSL.QryMaxCodigo.FieldByName(´COD_MAX´).AsInteger +1;
Cod_A := StrToInt(Edit1.Text);
DmSL.QryPesqSenha.Active := False;
DmSL.QryPesqSenha.close;
DmSL.QryPesqSenha.Sql.Clear;
DmSL.QryPesqSenha.Sql.Add(´Insert into TbAcesso (COD_A,COD_U,FRMALUNO,FRMTURMA,FRMRESPONSAVEL,FRMPREMATRICULA,FRMFINANCEIRO,FRMSENHA)VALUES(´);
DmSL.QryPesqSenha.Sql.Add(´´+COD+´,´+ Cod_a +´,SIM,SIM,SIM,SIM,SIM,SIM)´);
DmSL.QryPesqSenha.ExecSQL;
DmSL.QryPesqSenha.Active := True;
Ta dando erro alguem me ajude por gentileza...
Direto no componente :
Insert into TbAcesso (Cod_A,Cod_U,FrmAluno,FrmTurma,
FrmResponsavel,FrmPreMatricula,FrmFinanceiro,FrmSenha)
values(Cod_a =:A,Cod_u =:B,FrmAluno =:C,FrmTurma =:D ,
FrmResponsavel=:E,FrmPreMatricula=:F,FrmFinanceiro=:G,FrmSenha=:H)
Dinamicamente :
DmSL.QryMaxCodigo.Active := False;
DmSL.QryMaxCodigo.Close;
DmSL.QryMaxCodigo.SQL.Clear;
DmSL.QryMaxCodigo.SQL.Add(´SELECT MAX(COD_A)as Cod_Max FROM TbAcesso´);
DmSL.QryMaxCodigo.Open;
DmSL.QryMaxCodigo.Active := True;
Cod := DmSL.QryMaxCodigo.FieldByName(´COD_MAX´).AsInteger +1;
Cod_A := StrToInt(Edit1.Text);
DmSL.QryPesqSenha.Active := False;
DmSL.QryPesqSenha.close;
DmSL.QryPesqSenha.Sql.Clear;
DmSL.QryPesqSenha.Sql.Add(´Insert into TbAcesso (COD_A,COD_U,FRMALUNO,FRMTURMA,FRMRESPONSAVEL,FRMPREMATRICULA,FRMFINANCEIRO,FRMSENHA)VALUES(´);
DmSL.QryPesqSenha.Sql.Add(´´+COD+´,´+ Cod_a +´,SIM,SIM,SIM,SIM,SIM,SIM)´);
DmSL.QryPesqSenha.ExecSQL;
DmSL.QryPesqSenha.Active := True;
Ta dando erro alguem me ajude por gentileza...
Jonasaf
Curtir tópico
+ 0
Responder
Posts
04/07/2004
Bon Jovi
Ta dando erro alguem me ajude por gentileza...
Mas qual erro ele retorna???
Responder
Gostei + 0
04/07/2004
Ruysalles
Como vc não enviu qual erro está dando nem o banco de dados que está utilizando, vou tentar ajudar no erro que localizei.
Caso vc esteja utilizando MSAccess:
DmSL.QryPesqSenha.Sql.Text = ´Insert Insert into TbAcesso ´ +
´ (COD_A, ´ +
´ COD_U, ´ +
´ FRMALUNO, ´ +
´ FRMTURMA, ´ +
´ FRMRESPONSAVEL, ´ +
´ FRMPREMATRICULA, ´ +
´ FRMFINANCEIRO, ´ +
´ FRMSENHA) VALUES(´ +
inttostr(COD) + ´,´
inttostr(Cod_a) + ´,´ ´SIM´ ,´SIM´,´SIM´,´SIM´,´SIM´,´SIM´)´
ou no SqlServer
DmSL.QryPesqSenha.Sql.Text = ´Insert Insert into TbAcesso ´ +
´ (COD_A, ´ +
´ COD_U, ´ +
´ FRMALUNO, ´ +
´ FRMTURMA, ´ +
´ FRMRESPONSAVEL, ´ +
´ FRMPREMATRICULA, ´ +
´ FRMFINANCEIRO, ´ +
´ FRMSENHA) VALUES(´ +
inttostr(COD) + ´,´
inttostr(Cod_a) + ´,´ +
´´´´ + ´ SIM + ´´´´ + ´, ´ +
´´´´ + ´ SIM + ´´´´ + ´, ´ +
´´´´ + ´ SIM + ´´´´ + ´, ´ +
´´´´ + ´ SIM + ´´´´ + ´, ´ +
´´´´ + ´ SIM + ´´´´ + ´, ´ +
´´´´ + ´ SIM + ´´´´ + ´)´;
No caso do Access, é necessário colocar aspas duplas (´) antes das strings e no sql server 04 aspas simples (´) concatenadas na string.
Espero ter ajudado
Caso vc esteja utilizando MSAccess:
DmSL.QryPesqSenha.Sql.Text = ´Insert Insert into TbAcesso ´ +
´ (COD_A, ´ +
´ COD_U, ´ +
´ FRMALUNO, ´ +
´ FRMTURMA, ´ +
´ FRMRESPONSAVEL, ´ +
´ FRMPREMATRICULA, ´ +
´ FRMFINANCEIRO, ´ +
´ FRMSENHA) VALUES(´ +
inttostr(COD) + ´,´
inttostr(Cod_a) + ´,´ ´SIM´ ,´SIM´,´SIM´,´SIM´,´SIM´,´SIM´)´
ou no SqlServer
DmSL.QryPesqSenha.Sql.Text = ´Insert Insert into TbAcesso ´ +
´ (COD_A, ´ +
´ COD_U, ´ +
´ FRMALUNO, ´ +
´ FRMTURMA, ´ +
´ FRMRESPONSAVEL, ´ +
´ FRMPREMATRICULA, ´ +
´ FRMFINANCEIRO, ´ +
´ FRMSENHA) VALUES(´ +
inttostr(COD) + ´,´
inttostr(Cod_a) + ´,´ +
´´´´ + ´ SIM + ´´´´ + ´, ´ +
´´´´ + ´ SIM + ´´´´ + ´, ´ +
´´´´ + ´ SIM + ´´´´ + ´, ´ +
´´´´ + ´ SIM + ´´´´ + ´, ´ +
´´´´ + ´ SIM + ´´´´ + ´, ´ +
´´´´ + ´ SIM + ´´´´ + ´)´;
No caso do Access, é necessário colocar aspas duplas (´) antes das strings e no sql server 04 aspas simples (´) concatenadas na string.
Espero ter ajudado
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)