GRAVANDO DADOS NA ARRAY

USUARIO.EXCLUIDOS 26/04/2007 10:37:57
#213827
irenko, pq vc nao vai adicionando os dados que vc esta digitando em um grid, ai depois é so ler o grid e gravar no banco, muito mais simples nao acha ?
USUARIO.EXCLUIDOS 26/04/2007 14:21:59
#213885
Creio que a solução do recordset seria a mais eficaz.
existem meio de manipular arrays com "varias colunas" para a mesma linha, porém sinceramente não sei como utilizar.
Caso você não consiga manipular a recordset, avise, postaremos um exemplo pra vc.

um abraço.
USUARIO.EXCLUIDOS 26/04/2007 15:42:02
#213898
irenko, resolveu seu problema ?
IRENKO 27/04/2007 10:59:24
#214022
Renato, so pra finalizar poste esse exemplo de como manipular um recordset para que eu possa testar e aprender. Grato.
USUARIO.EXCLUIDOS 27/04/2007 14:29:30
#214071
ok brother .

segura ai então.:


Option Explicit
Dim rs As New ADODB.Recordset

Private Sub cmd_Exibir_Valores_Recordset_Click()

If Not rs.State = adStateClosed Then rs.MoveFirst

' Enquanto nao acabarem os registros da recordset
Do While Not rs.EOF
    
    'Apresenta valores
    MsgBox "Código: " & rs!Codigo & " Nome: " & rs!Nome & " Endereço: " & rs!Endereco

    'Move para proximo registro da recordset
    rs.MoveNext
Loop

'Fechamos a recordset e  limpamos da memoria
If rs.State = adStateOpen Then
    rs.Close
    Set rs = Nothing
End If
End Sub


Private Sub cmd_Inserir_Recordset_Click()

If rs.State = adStateClosed Then
    'Criamos as colunas do recordset
    rs.Fields.Append "Codigo", adInteger, , adFldMayBeNull  
    rs.Fields.Append "Nome", adVarChar, 50
    rs.Fields.Append "Endereco", adVarChar, 50
    
    'Open no recordset caso esteja fechado.
    rs.Open
End If

'Agora adicionamos os valores dos  txt's nas colunas do recordset
rs.AddNew
rs!Codigo = txtcod
rs!Nome = txtnome
rs!Endereco = txtendereco


'Limpamos os txt's
txtcod.Text = ""
txtnome.Text = ""
txtendereco.Text = ""
End Sub




um abraço qualquer duvida ja sabe.
Página 2 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar