Como inserir registros usando query???

Delphi

14/11/2003

Olá...

Primeiramente obrigado por ler a minha pergunta, espero que possa me ajudar...

Desenvolvi um sistema usando banco de dados access, mas ele ficou muito lento, agora estou tentando usar ADOQuery, só que nunca usei, estou tentando usar o seguinte código, mas está danto o seguinte erro: ´Tipo de dados incompatível na expressão de critério´. O que pode estar errado??? existe uma forma mais fácil de se fazer isso???

       SQL.Clear;
       Sql.Add(´select * from usuarios where Nome = 654564´);
       Open;
       SQL.Clear;
       Sql.Add(´INSERT INTO Senha(Login, Nome, TipoAcesso, Senha) VALUES( :Login, :Nome, :TipoAcesso, :Senha )´);
       open;
       Parameters.ParamByName(´Login´).Value := Edit1.Text;
       Parameters.ParamByName(´Nome´).Value := Edit2.Text;
       Parameters.ParamByName(´TipoAcesso´).Value := ComboBox1.Text;
       Parameters.ParamByName(´Senha´).Value := Edit3.Text;
       execSql;
       post;
       SetFocus;


desde já muito obrigado....


Balceiro

Balceiro

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

14/11/2003

Tente assim:
-Removendo o comando open antes do Parameters. 
       SQL.Clear; 
       Sql.Add(´INSERT INTO Senha(Login, Nome, TipoAcesso, Senha) VALUES( :Login, :Nome, :TipoAcesso, :Senha )´); 
       Parameters.ParamByName(´Login´).Value := Edit1.Text; 
       Parameters.ParamByName(´Nome´).Value := Edit2.Text; 
       Parameters.ParamByName(´TipoAcesso´).Value := ComboBox1.Text; 
       Parameters.ParamByName(´Senha´).Value := Edit3.Text; 
       execSql;



GOSTEI 0
POSTAR