adicinar regisTro

[*_Charles Potter_* 1]

como faço para adcionar um regisTro ao meu bd?

[Marcos A Sanches 0]

que tipo de banco de dados e conexão você esta usando?

[*_Charles Potter_* 1]

ADO, Microsoft Acess

[dark_devil 0]

Boas *_Charles Potter_*

 

1º. cria um modulo para fazer a ligacao a base de dados

 

CODE

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

2º coloca o seguinte codigo no botao onde vai guardar os dados na base de dados

 

CODE

Private Sub Label1_Click()

 

Set Minha_ligacao = New ADODB.Connection

Minha_ligacao.CursorLocation = adUseClient

Minha_ligacao.Mode = adModeShareDenyNone

' especifico o local da minha base de dados

Minha_ligacao.Open g_str_ConnectionString

' defino a minha consulta guarda os dados

str_SQL = "Insert into Registo(Codigo,Nome) values ('" & Text1 & "','" & Text2 & "')"

' executar a consulta

Minha_ligacao.Execute str_SQL

 

MsgBox "Valores Inseridos Com Sucesso", vbInformation

 

End Sub

Nota: Os nomes das variaveis tem que ser os mesmos que voce usa, senão o programa vai dar erro.

 

Espero ter ajudado,