ATUALIZAR BANCO ACCESS 2013

JABA 21/05/2016 14:27:48
#462352
Tenta assim:

[txt-color=#e80000]rs.Open[/txt-color] [Ô]INSERT INTO tabcadfaz (nomefaz, mtcub, plantas, captanque, qtdebicos, esplinha, esppl) VALUES ([ô][Ô] & txtnomefaz.Text & [Ô][ô], [ô][Ô] & txtmtcub.Text & [Ô][ô], [ô][Ô] & txtplantas.Text & [Ô][ô], [ô][Ô] & txtcaptanque.Text & [Ô][ô], [ô][Ô] & txtbicos.Text & [Ô][ô], [ô][Ô] & txtesplinha.Text & [Ô][ô], [ô][Ô] & txtesppl.Text & [Ô][ô])[Ô] [txt-color=#e80000], Conexao, 3, 3[/txt-color]
  
rs.MoveLast

txtcodfaz.Text = rs!codfaz
txtnomefaz.Text = rs!nomefaz
txtmtcub.Text = rs!mtcub
txtplantas.Text = rs!plantas
txtcaptanque.Text = rs!captanque
txtbicos.Text = rs!qtdebicos
txtesplinha.Text = rs!esplinha
txtesppl.Text = rs!esppl

MsgBox [Ô]Fazenda cadastrada com sucesso![Ô], vbInformation + vbOKOnly, [Ô]Sistema diz[Ô]
ADILSOO 21/05/2016 14:34:54
#462353
Agora diz que os tipos são incompatíveis...
ADILSOO 21/05/2016 14:38:26
#462354
Minha conexão está assim...

  Global Conexao As New ADODB.Connection
Public SERIAL2 As String
Public DATAa As String


Public Function Conecta(valor As Boolean)
Dim CaminhoBD
CaminhoBD = Application.ThisWorkbook.Path & [Ô]\Dados\Dados.accdb[Ô]

    If valor = True Then
        If Conexao.State = 1 Then Conexao.Close
       Conexao.CursorLocation = adUseClient
             Conexao = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & CaminhoBD & [Ô];Persist Security Info=False[Ô]
             Conexao.Open
        Else
            Conexao.Close
    End If
End Function
JABA 21/05/2016 14:50:42
#462355
Talvez tenha a ver com a parte no final. Faça assim pra ver:


rs.Open [Ô]INSERT INTO tabcadfaz (nomefaz, mtcub, plantas, captanque, qtdebicos, esplinha, esppl) VALUES ([ô][Ô] & txtnomefaz.Text & [Ô][ô], [ô][Ô] & txtmtcub.Text & [Ô][ô], [ô][Ô] & txtplantas.Text & [Ô][ô], [ô][Ô] & txtcaptanque.Text & [Ô][ô], [ô][Ô] & txtbicos.Text & [Ô][ô], [ô][Ô] & txtesplinha.Text & [Ô][ô], [ô][Ô] & txtesppl.Text & [Ô][ô])[Ô] , Conexao, [txt-color=#e80000]adOpenUnspecified, adLockUnspecified[/txt-color]
  
rs.MoveLast

txtcodfaz.Text = rs!codfaz
txtnomefaz.Text = rs!nomefaz
txtmtcub.Text = rs!mtcub
txtplantas.Text = rs!plantas
txtcaptanque.Text = rs!captanque
txtbicos.Text = rs!qtdebicos
txtesplinha.Text = rs!esplinha
txtesppl.Text = rs!esppl

MsgBox [Ô]Fazenda cadastrada com sucesso![Ô], vbInformation + vbOKOnly, [Ô]Sistema diz[Ô]
ADILSOO 21/05/2016 15:24:02
#462357
Mesmo assim...
OMAR2011 21/05/2016 17:14:40
#462358
Abre sua tabela assim.
Dim rs As New ADODB.Recordset
rs.Open [Ô]Select * From Tb[Ô], Cnn, adOpenDynamic, adLockPessimistic [ô][txt-color=#e80000] Nisso ocorre erro da forma aberta não correta[/txt-color]
Quanto ao Add.new, acho que não tem necessidade, visto que é usado com Dao.
Não tenho tanto certeza.
Página 2 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar