VB - base de dados Access

[PauloF 0]

Boas.

 

bem, tenho uma duvida, estou fazer um programa que mostra uma lista de fornecedores e os seus produtos, mas a minha duvida é a seguinte, como faço para adicionar dados das textboxs do nome e morada nas respectivas tabelas da bd em access ao clicar no botão para adicionar?

os dados depois podem ser acedidos através das listboxs que se vêem nas imagens, essa parte já está feita.

 

[dark_devil 0]

Boas PauloF

 

Pelo que entendi voce quer adicinar dados na base dados em access...

 

entao faz da seguinte maneira:

 

1º Cria um modulo de ligaçao há base de dados:

 

Public Const g_str_ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Caminho da Base de Dados;Persist Security Info=False"

 

Onde diz "Caminhdo da base de dados", tem que colocar a localização da sua base de dados "Exemplo: c:\base_dados\Ficheiro.mdb".

 

2º Insercao de Dados na base de dados:

 

Set registo = New ADODB.Connection

registo.CursorLocation = adUseClient

registo.Mode = adModeShareDenyNone

 

registo.Open g_str_ConnectionString

 

str_SQL = "Insert into T_contactos (Nome,Morada) values ('" & Text1 & "','" & Text2 & "')"

 

registo.Execute str_SQL

 

MsgBox "Dados Inseridos Com Sucesso", vbInformation

 

Nota: Os campos de estão a Azul tem que ser os campos que voce utiliza quer no programa quer na base de dados. Se nao alterar os dados vai dar erro.

 

Espero ter ajudado...