Trabalhando com dados Excel + Access

[André Batista 0]

Galera, Estou trabalhando com um relatório em excel, faço uma consulta em um base Access e posteriormente gravo informações em uma outra tabela dentro dessa mesma base Access.Na hora do INSERT INTO, nao acontece nada.Alguem pode ajudar? segue as macros utilizadas:Global cn As New ADODB.ConnectionGlobal rs As New ADODB.RecordsetPublic Sub realiza_conexao() cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\base\relatorio.mdb;Persist Security Info=False" cn.OpenEnd SubPublic Sub valida_usuario() On Error Resume Next rs.Open "SELECT * FROM inserindo", _ cn, adOpenForwardOnly, adLockReadOnly resultado_teste = rs!teste rs.Close Set rs = Nothing MsgBox resultado_teste rs.Save "INSERT INTO inserindo (teste) VALUES ('aaaa');"End Sub

[Luizgrs 0]

Ao invés de:

 

rs.Save "INSERT INTO inserindo (teste) VALUES ('aaaa');"

Coloca assim:

cn.execute "INSERT INTO inserindo (teste) VALUES ('aaaa')"

[André Batista 0]

valeuuuuuuuufuncionou a parada aki...abraços