DATAENVIRONMENT

USUARIO.EXCLUIDOS 05/10/2004 17:45:41
#44763
oi pessoal!
COMO POSSO ADICIONAR UM NOVO REGISTRO ATRAVéS DO DATAENVIRONMENT.
VB6MASTER 06/10/2004 20:32:48
#44898 Resposta escolhida
Pode ser:
        cSQL = "INSERT INTO Geral (NProtocolo, AProtocolo, DataProt, Hora, NProcesso, Apresentante, Objeto, Forma, Destino, Comarca, Cartorio)" & _
               " VALUES (" & tpDados.vNProt & ", " & tpDados.vAProt & ", '" & Format(tpDados.vData, "dd/MM/yyyy") & "', '" & Format(tpDados.vHora, "long time") & "', '" & tpDados.vNProc & "', '" & _
               UCase(tpDados.vApres) & "', '" & tpDados.vObjeto & "', '" & tpDados.vForma & "', '" & strDestino & "', '" & _
               tpDados.vComarca & "', '" & tpDados.vCartorio & "' )"
    Dados.BancoDados.Execute cSQL, , adCmdText

Ou então:
'    Dados.rsGeral.Close
'    cSQL = "Select * from Geral"
'    With Dados.rsGeral
'        .Open cSQL, , adOpenDynamic, adLockOptimistic
'        .AddNew
'(seus dados)
'        !AProtocolo = tpDados.vAProt
'        !DataProt = Format(tpDados.vData, "dd/MM/yyyy")
'        !Hora = Format(tpDados.vHora, "long time")
'        !Forma = tpDados.vForma
'        .Update
'        .Close
'    End With

O primeiro método é muiiiiiiiito mais rápido.
Tópico encerrado , respostas não são mais permitidas
Voltar