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 no quero um novo registro como disse, eu quero atualizar o registro ja existente.....ja com o rs.movelast esta dando erro []o item no pode ser encontrado na coleo 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 preferncia 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 preferncia 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 conexo 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 alterao 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