ATUALIZAR BANCO

 Tópico anterior Próximo tópico Novo tópico

ATUALIZAR BANCO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#485178 - 02/11/2018 16:52:18

LUIZCMF9
BOA VISTA
Cadast. em:Setembro/2018


conectdb

      rs.Open "select * from Tb_cadastro where Frota = '" & cmb_grupo.Text & "'", db, 3, 3
      'rs.Open "select * from Tb_manutencao", db, 3, 3
         rs.MoveLast
         'rs.AddNew
            rs(1) = "" & cmb_grupo.Text
            rs(2) = "" & txt_serie1.Text
            rs(3) = "" & txt_hor.Text
         rs.Update
fechadb

Pessoal tentei atualizar a minha tabela Tb_cadastro, onde na tabela o item que quero atualizar ja esta cadastrado. Preciso somente atualizar o mesmo, tentei da forma acima..porem quando utilizo o rs.addnew surge um registro e não quero um novo registro como disse, eu quero atualizar o registro ja existente.....ja com o rs.movelast esta dando erro "o item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado"...o erro aponta para essa linha do codigo: rs(3) = "" & txt_hor.Text

Luis Carlos

#485179 - 02/11/2018 17:36:59

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Isto é muito antigo, se esta usando Ado de preferência a Sql.
Temos.
db.Execute “UPDATE Tb_manutencao  SET FName='” & ( cmb_grupo.Text) & “‘,MName='” & (txt_serie1.Text) & “‘,LName='” & (txt_serie1.Text) & “‘ WHERE ID_Num='” & (txtID.Text) & “‘”
É desse jeito com algo a mais.



#485180 - 02/11/2018 17:48:08

LUIZCMF9
BOA VISTA
Cadast. em:Setembro/2018


Citação:
:
Isto é muito antigo, se esta usando Ado de preferência a Sql.
Temos.
db.Execute “UPDATE Tb_manutencao  SET FName='” & ( cmb_grupo.Text) & “‘,MName='” & (txt_serie1.Text) & “‘,LName='” & (txt_serie1.Text) & “‘ WHERE ID_Num='” & (txtID.Text) & “‘”
É desse jeito com algo a mais.


a minha conexão com banco é assim.

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public path As String
Public foto As String
Public fotoAlt As String

Public Sub conectdb()
   path = App.path & "\BD.mdb"
   db.Open "provider=microsoft.jet.oledb.4.0;data source=" & path & ";jet oledb:database password=3x2lkj333k011;"

End Sub

Public Sub fechadb()
   rs.Close: Set rs = Nothing
   db.Close: Set db = Nothing
  
End Sub

Luis Carlos

#485181 - 02/11/2018 20:18:31

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Pesquise na net vai achar muito material.
Forma mais correta de Update.
Cnn.BeginTrans
  
  Cnn.Execute ("Update Tb_cadastro Set Grupo= '" & cmb_grupo.Text & "',Serie = '" & txt_serie1.Text & "',Hora = '" & txt_hor.Text & "' Where Cod = " & txtCod.Text)
  
   If MsgBox("Confirma alteração deste registro?", vbYesNo) = vbYes Then
        Cnn.CommitTrans
    Else
        Cnn.RollbackTrans
    End If
Basta incrementar.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por LUIZCMF9 em 06/11/2018 16:28:02