Galera boa tarde... To iniciando no delphi galera...desculpa qq coisa Preciso gravar o conteúdo da listbox no banco de dados Tipo to me matando com esse código ....q primeiro faço o post e tal...pra poder pegar qual é o código da tabela clientes begin if DBedit1.Text <> '' then begin DataModule1.ADOQuery1.Post; DataModule1.ADOQuery1.close; {fazer identity aqui e salvar em variavel} for i := 0 to listbox1.Items.count -1 begin DataModule1.ADOQuery1.SQL.Text := ''+ 'insert into telefones(cod_cad, telefone, tipo) ' + 'select '+{utilizar variavel usada como identity}+','''+listbox1.Items.Strings[i]+''',''telefone normal'''; DataModule1.ADOQuery1.ExecSQL; end; Button1.Enabled := False; {Botao Cadastrar} Button3.Enabled := True; {Botao Votar} Button4.Enabled := True; {Botao Proximo} Button5.Enabled := True; {Botao Novo} end else showmessage('Não Pode Ter Campo Vazio!'); //DataModule1.ADOQuery1.Close; end; Tenho esses 3 campo na minha tabela telefones e vai acumular tipo 3 a 6 telefones....dai preciso varrer a listbox e colocar o conteúdo dela no db. Só que tem um problema antes primeiro eu tenho q gravar o cadastro na tabela clientes e pegar o id de cadastro Para poder cadastrar na tabela telefones, pra poder relacionar depois, vcs sabem.... To meio perdido. Abraços, Rodrigo Mota
[As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html