Inserir multiplo registro em uma tabela

Delphi

01/04/2004

Quero inserir um mesmo dados em diversos registros diferentes, mudando apenas um campo.

Exemplo
Tenho que inserir no campo data_da_prova o valor de 22/03
e no campo disciplina de acordo com o que eu escolher em um checklistbox

1º Matemática
2º Inglês
3º História

Ficaria assim na tabela, após a gravação.
------------------------
| 22/03 | Matemática|
------------------------
| 22/03 | Inglês |
------------------------
| 22/03 | História |
------------------------

Estou utilizando ADO e Access.
O código que estou utilizando é:

ADOTblprova.Insert
ADOTblprovaDtProva.AsDateTime := ´22/03/2004´;
ADOTblprovaDisciplina.AsString := ´Matematica´;

ADOTblprova.Insert
ADOTblprovaDtProva.AsDateTime := ´22/03/2004´;
ADOTblprovaDisciplina.AsString := ´Inglês´;

ADOTblprova.Insert
ADOTblprovaDtProva.AsDateTime := ´22/03/2004´;
ADOTblprovaDisciplina.AsString := ´História´;

Só que ao invés de passar o valor da disciplina manualmente, quero passar esse como parametro de
acordo com o que foi marcado no checklistbox.


Chucky21

Chucky21

Curtidas 0

Respostas

Djjunior

Djjunior

01/04/2004

seria algo do tipo :

ADOTblprova.Insert
ADOTblprovaDtProva.AsDate := StrToDate(EdtDataProva.text);
ADOTblprovaDisciplina.AsString := ChkBox.text;

:?: :?: :?:


GOSTEI 0
Chucky21

Chucky21

01/04/2004

Obrigado pela ajuda, mas eu preciso que seja de acordo com a quantidade de itens marcados no checklistbox (paleta Additional).

Acho que seria isso

ADOTblprova.Insert
ADOTblprovaDtProva.AsDate := StrToDate(EdtDataProva.text);
ADOTblprovaDisciplina.AsString := ChkLstBoxDisciplina.text;


GOSTEI 0
Djjunior

Djjunior

01/04/2004

se o sua caixa de seleção aceita mais de uma seleção então tu vai ter que usar bookmark, dê uma olhada no help, pra ver como funciona. :lol:


GOSTEI 0
POSTAR