Pessoal continuo com dúvidas e não consegui fazer ainda, já li vários artigos, alguém tem algum exemplo: eu preciso o seguinte:

-Tenho uma tabela produto (cod,produto,qtd,valor)

Aí tenho um form normal, onde vou cadastrar os produtos na tabela do Access, mas não consegui. Alguém poderia citar ou postar um exemplo.

 

Obrigado

Desde o início então:

 

Vá no menu "Project...References" e marque a opção Microsoft Activex Data Objects X.X Library onde X.X é qq uma das versões.

 

Depois declare uma variável na seção General do seu form.

 

Dim Cnn as ADODB.Connection

 

Ou vc também pode declarar em um módulo para q todo o seu sistema enxergue esta variável:

 

Global Cnn as ADODB.Connection

 

Bom, após feito isso coloque no evento load do seu form principal:

 

Set Cnn = new ADODB.Connetion 'instanciando o objeto

Cnn.CursorLocation = adUseClient

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:MEUMDB.MDB"

 

Agora, para salvar os registros, faça assim:

 

Private Sub BotaoSalvarDados_Click()

 

Cnn.Execute "INSERT INTO Tabela_Produto(cod,produto,qtd,valor) VALUES (" & txtCodProd & ",'" & txtDescProd & "'," & txtQtdProd & "," & Replace(txtValor,",",".") & ")"

End Sub

 

Nesta última parte usei SQL para salvar o registro. Para os campos texto usei apóstrofe ( ' ) e para os numéricos só passei o valor. Usei o comando REPLACE para substituir vírgula por ponto pois valor é um número q pode conter casas decimais e o SQL aceita somente padrão americano.

 

Para atualizar um registro vc usa o comando UPDATE:

Cnn. Execute "UPDATE tabela_Produto SET qtd = " & 10 & " WHERE cod = 2"

 

Neste comando acima eu atualizei a qtd do produto para 10 cujo código é 2.

 

Para deletar registros vc usa o comando DELETE:

Cnn. Execute "DELETE FROM tabela_Produto WHERE cod = 2"

 

 

Qq dúvida é só postar ok??

 

t+

Meu amigo muito obrigado pela sua grande ajuda, eu fiz aqui e tá dando o seguinte erro:

 

Object variable or with block variable not set

 

Erro 91

 

q seria?

 

Obrigado

Acho q é pq esqueci o "c" do "ConneCtion" em

Set Cnn = new ADODB.Connetion 'instanciando o objeto

 

caso não seja isso qual linha está dando o erro?

Amigo eu fiz isso, e eu clico no salvar e não faz nada, não sai da tela, coloquei o breakpoint no salvar e os dados está lá nos texts.

 

Obrigado

O erro acima geralmente  ocorre qdo objeto não é instanciado... qual o seu código para salvar os dados?