GRAVANDO DADOS DEUM RECORDSET

IRENKO 29/05/2007 12:31:47
#218676
Abaixo eu carrego os TextBox com os dados da tabela, ate ai blz carreguei o documento 2633 suponhamos, esse documento tem 10 items os quais vou visualizando atraves dos botoes de navegação. O problema é que preciso gravar esse documento juntamente com seus items em outra tabela, consigo fazer isso item a item, mas como gravar de uma vez o documento 2633 com todos os seus items? Cada item tem seu ID.

Sub AtualizarItems()

Dim Sql As String

Sql = "SELECT [OF],Req,Desc,Posicao,Quant,Csobra,Disp,Origem,Destino,Prazo,Obra,Fabrica,ID,(SELECT COUNT(ID) FROM Movimento) As Total FROM Movimento WHERE LM Like '%" & Tbox.text & "%'"
Set RsItem = BANCO.Execute(Sql)
If IsNull(RsItem("Total")) Then Me.Lb_ContReg.Caption = 0 Else Me.Lb_ContReg.Caption = RsItem("Total")
If RsItem.EOF And RsItem.BOF Then
    Else
    RsItem.MoveLast
    RsItem.MoveFirst
     LB_Item.Caption = RsItem!ID
     TxtPos.text = Nnull(RsItem!Posicao)
     ComboDisp.text = Nnull(RsItem!Disp)
     TxtQT.text = Nnull(RsItem!Quant)
     TxtDesc.text = Nnull(RsItem!Desc)
     ComboOrigem.text = Nnull(RsItem!Origem)
     ComboDestino.text = Nnull(RsItem!Destino)
     
     If RsItem!OF = "" Then
     TxtOF.text = Nnull(RsItem!Req)
     ElseIf RsItem!Req = "" Then
     TxtOF.text = Nnull(RsItem!OF)
     ElseIf RsItem!Req = "" And RsItem!OF = "" Then
     TxtOF.text = "-"
     End If
     TxtSobra.text = Nnull(RsItem!csobra)
     TxtObra.text = Nnull(RsItem!Obra)
     TxtFab.text = Nnull(RsItem!Fabrica)
     LB_Item.Caption = RsItem!ID
     RsItem.MoveNext
    

End If

End Sub
USUARIO.EXCLUIDOS 29/05/2007 13:00:41
#218681
A primeira coisa que te digo eh que vc nao precisa dessa subconsulta (SELECT COUNT(ID) FROM Movimento) já que se trata da mesma tabela. Substitua por COUNT(ID) As Total. A diferenca eh que com a sub consulta, a cada registro lido o engine do BD conta os IDs. Ou seja, se tiver 3000 registros na tabela ele vai contar 3000 vezes esses 3000 IDs. Da outra forma ele conta conforme le. Fica muito mais rapido.

Quanto a sua duvida nao entendi muito bem. Explique melhor como sao as duas tabelas e como elas se relacionam, pois no seu codigo soh vejo uma. EX: Vc tem uma Movimento (itens) q tem um relacionamento muitos-para-um com outra tabela mae? eh isso?
IRENKO 29/05/2007 13:12:19
#218683
As duas tabelas tem os mesmos campos e mesmo nome, se relaiona com o campo ID para os items e tambem quando carrego os TextBox conforme o primeiro post gravo em uma variavel String o Numero do documento onde posteriormente sera gravado na tabela de destino campo Numero.
Tópico encerrado , respostas não são mais permitidas
Voltar