Blz Muito obrigado eu fiz assim, pois uso adotable :
For i:= a to (b + c -1) do
begin
dm.ADOTExemplar.Insert;
dm.ADOTExemplarCodExemplar.Value:=IntToStr(i);
Agora como eu posso copiar os outros campos tambem, junto?
Tipo preencho os dados : edição, nome do livro, e ele cria esses
códigos que esta funfando filé, e copiando a primeira linha, junto
com o código.
Ex:
1 maria 5ºEdição
2 Maria 5ºEdição
3 Maria 5ºEdição
Muito Grato pela atenção
--- Em delphi-br@yahoogrupos.com.br, Luciano Calenzani Simões
<[EMAIL PROTECTED]> escreveu
>
> ...
> for i := InicioIntervalo to (InicioIntervalo + Quantidade - 1) do
> begin
> ...
> Query.SQL.Text := 'insert ...';
> ...
> Query.ParamByName('codexemplar).AsInteger := i;
> Query.ExecSQL;
> ...
> end;
> ...
>
> Luciano Calenzani Simões
>
>
>
>
>
> ----- Mensagem original ----
> De: Alexsandro <[EMAIL PROTECTED]>
> Para: delphi-br@yahoogrupos.com.br
> Enviadas: Segunda-feira, 16 de Junho de 2008 17:32:11
> Assunto: [delphi-br] Adicionar vários registro num intervalo de
números
>
>
>
> Boa tarde pessoal,
> Como eu posso adicionar registros em uma tabela de acordo com o
> intervalo que o usuário solicitar?
> Ex: Sistema de biblioteca
> Quando o usuário for incluir um exemplar, teria que informar
quantos
> exemplares e o intervalo:
> Quantidade : 3
> inicioIntervalo: 4 //no caso o intervalo fica 4,5,6
> Resultado :
> fkLivro codExemplar
> 40 4
> 40 5
> 40 6
>
> porque se for incluir novos exemplares é só informar o intervalo de
> novo e a quantidade
> quant:2
> inicio de interva:7
>
>
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço
para armazenamento!
> http://br.mail.yahoo.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
