Realizar update de dados Excel para o Access VBA

[BRUNOJUL]

Olá , podem ajudar no codigo para realizar update de dados do Excel para o Access

Tenho uma tabela no Access(TBL1) onde incialmente realizo um consulta que me traz as infomações.

Apos o recebimento dos dados edito algumas celulas da segunda coluna , e preciso atualizar o banco de dados sem criar uma nova tabela , apenas fazendo o update dos dados nas respectivas celulas editadas .

Tenho o codigo abaixo mas não esta funcionando.

Private Sub CommandButton1_Click()
Dim cn As ADODB.Connection 'variável para base
Dim rs As ADODB.Recordset 'variável para tabela
Dim r As Long 'variável para o númerdo da linha na planilha

'conectando ao banco de dados access
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
ThisWorkbook.Path & "\BD_V1.mdb"

 Set rs = New ADODB.Recordset

rs.Open "TBL_1", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' Todos os registros da tabela

 'Set rs.ActiveConnection = con

startRow = 1

''''''''''''''''''''''
'campo chave está na coluna 1 do Excel
 Do Until Cells(startRow, 1).Value = Empty
rs.Open "Select *From TBL_1 WHERE ID = " Cells(startRow, 1)

If Not rs.EOF Then
rs.Fields(1).Value = Cells(startRow, 2)
rs.Fields(2).Value = Cells(startRow, 3)
rs.Fields(3).Value = Cells(startRow, 4)
rs.Fields(4).Value = Cells(startRow, 5)
rs.Fields(5).Value = Cells(startRow, 6)
rs.Update
End If

startRow = startRow + 1
Loop
 'fecha a tabela
rs.Close
Set rs = Nothing
'fecha o banco de dados
cn.Close
Set cn = Nothing
End Sub

Podem ajudar grato ;

Bruno

Editado Agosto 1, 2010 por kuroi
Adicionar tag CODE

[kuroi]

o q acontece de errado??

[BRUNOJUL]

Olá , podem ajudar no codigo para realizar update de dados do Excel para o Access

Tenho uma tabela no Access(TBL1) onde incialmente realizo um consulta que me traz as infomações.

Apos o recebimento dos dados edito algumas celulas da segunda coluna , e preciso atualizar o banco de dados sem criar uma nova tabela , apenas fazendo o update dos dados nas respectivas celulas editadas .

Tenho o codigo abaixo mas não esta funcionando.

Private Sub CommandButton1_Click()
Dim cn As ADODB.Connection 'variável para base
Dim rs As ADODB.Recordset 'variável para tabela
Dim r As Long 'variável para o númerdo da linha na planilha

'conectando ao banco de dados access
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
ThisWorkbook.Path & "\BD_V1.mdb"

 Set rs = New ADODB.Recordset

rs.Open "TBL_1", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' Todos os registros da tabela

 'Set rs.ActiveConnection = con

startRow = 1

''''''''''''''''''''''
'campo chave está na coluna 1 do Excel
 Do Until Cells(startRow, 1).Value = Empty
rs.Open "Select *From TBL_1 WHERE ID = " Cells(startRow, 1)

If Not rs.EOF Then
rs.Fields(1).Value = Cells(startRow, 2)
rs.Fields(2).Value = Cells(startRow, 3)
rs.Fields(3).Value = Cells(startRow, 4)
rs.Fields(4).Value = Cells(startRow, 5)
rs.Fields(5).Value = Cells(startRow, 6)
rs.Update
End If

startRow = startRow + 1
Loop
 'fecha a tabela
rs.Close
Set rs = Nothing
'fecha o banco de dados
cn.Close
Set cn = Nothing
End Sub

Podem ajudar grato ;

Bruno

Nã o reconhece o ID no banco de dados mas atualiza a primeira linha do banco com as infomações

e quando coloco neste formato aparece mensagem que a variavel não foi definida .

rs.Open "Select *From TBL_1 WHERE ID = " Cells(startRow, 1)

[kuroi]

tente abrir assim:

rs.Open "Select * From TBL_1 WHERE ID = " Cells(startRow, 1), cn, adOpenKeyset, adLockOptimistic, adCmdTable

[BRUNOJUL]

tente abrir assim:

rs.Open "Select * From TBL_1 WHERE ID = " Cells(startRow, 1), cn, adOpenKeyset, adLockOptimistic, adCmdTable

Tentei desta forma , mas não funcionou , os campos da tabela agora estão com mensagem de nulo e não atualiza.