boa noite

Estou comecando a trabalhar com ado e estou com um problema no codigo abaixo onde posso estar errando

no formulario tenho apenas uma textbox e um botao salvar
exemplo apenas para estudo
o erro acontece na seguinte linha rs.addnew
desde ja
obrigado
option explicit
Dim db              As ADODB.Connection
Dim rs              As ADODB.Recordset
Dim SQL             As String
Dim strCriterio     As String

Public Sub TEST_ADO()
    Set db = New ADODB.Connection
    Set rs = New ADODB.Recordset
    criterio = "mdbCP_CR.mdb"
    
    With db
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open wkbTeste.Path & criterio
    End With
  
    SQL = "Select * From Tabela"
    rs.Open SQL, db
    rs.AddNew
    rs!Nome = TextBox1.Text
    rs.Update
End Sub

É q qdo vc abre deste modo:

 

rs.Open SQL, db

 

Vc está passando o locktype default q é adLockReadOnly, só para leitura...

Faça assim pra funcionar....

 

   
    SQL = "Select * From Tabela"
    rs.Open SQL, db ,,adLockOptimistic
    rs.AddNew
    rs!Nome = TextBox1.Text
    rs.Update

 

t+

Dim rs              As ADODB.Recordset

Public Sub TEST_ADO() 
    Set rs = New ADODB.Recordset 

    sql="insert into tabela (texto) values '" & text1.text & "'"
    rs.execute SQL, db
End Sub

Ola Vetorial

Os exemplos dos dois amigos acima devem funcionar, nem vou postar nada

Boa tarde Pessoal

os dois exemplos funcionaram perfeitamente

eu me identifiquei melhor com o exemplo do Cardoso G como faco para alterar e excluir usando o metodo execute

desde ja

obrigado

 

 

O processo é padrão do SQL, vc conhece?

 

Todas as funções do SQL roda no ADO.

 

Normalmente eu uso Tabela.Open "Instrucao",Banco

 

Exemplo de instruções...

 

Atualizar

"Update Tabela Set Campo=Valor,Outros campos separados por virgula Where Campo=Valor"

Obs.: Where deve ser informado para que a instrução não tenha resultado na tabela inteira (em todos os registros)

 

Delete

"Delete * From Tabela Where Campo=Valor"

Obs.: O Where serve para fixar somente alguns registro e não para todos (sem o where todos os registros serão apagados)

 

O inserto o Cardoso já informou acima.

 

Outra questão de dica é a seguinte... A resposta do ghost_jlp também é valida para estas instruções, caso queira utilizar para definir acesso de usuário basta por uma vírgula após a variável do banco como o exemplo acima.

 

Blz, espero ter ajudado.

 

Um Abraço, t+.