Sou novato

[Yoshi 1]

Ai gente so novatu em Delphi tpw q nunca programei antes ai comecei a brincar um pouco com ela . to tentado fazer um sistema querendo q ele apensas insira um nome numa tabela em Access porem ta dando erro na hora de inserir sera q algum poderia me ajudar usei o seguinte codigo

 

DataModule2.Query1.close;

DataModule2.Query1.SQL.Clear;

DataModule2.Query1.SQL.Add('insert into Amigos (nome)');

DataModule2.Query1.Fields.Fields[0].AsString := Edit1.Text;

DataModule2.Query1.Open;

DataModule2.Query1.ExecSQL;

[marcio.theis 3]

Tente somente alterar um pouco fazendo:

 

DataModule2.Query1.close;
DataModule2.Query1.SQL.Clear;
DataModule2.Query1.SQL.Add('insert into Amigos (nome) values (''' + Edit1.Text + ''')');
DataModule2.Query1.Open;
DataModule2.Query1.ExecSQL;

Tem forma mais fácil de se fazer usando os componentes da paleta Data Controls, onde que pode vincular uma tabela com um TDBEdit e dar um .Insert sobre a tabela e depois um .Post... mas como esta começando, deixa para depois... :D

[Yoshi 1]

Hum coloquei issu e deu o seguinte erro

"ERROR CREATING CURSOR HANDLE"

[orc 0]

usando a resposta do companheiro marcio pode fazer assim tb :

 

with DataModule2.Query1 do

begin

Close;

SQL.Clear;

SQL.Add('insert into Amigos (nome) values ( :nome )');

Parambyname( 'Nome' ).asstring := Edit1.text;

ExecSQL;

end;

[marcio.theis 3]

Hum coloquei issu e deu o seguinte erro

"ERROR CREATING CURSOR HANDLE"

Você não pode neste caso usar o comando .Open somente o .ExecSQL, visto que vai executar um SQL que irá inserir algo noBD, ficando:

 

DataModule2.Query1.close;
DataModule2.Query1.SQL.Clear;
DataModule2.Query1.SQL.Add('insert into Amigos (nome) values (''' + Edit1.Text + ''')');
DataModule2.Query1.ExecSQL;