ligaçao de vb com access

[mkx 0]

boas pessoal.sou um novato na programaçoa de vb.queria se possivel k alguem me dessen umas dicas de como ligar base de dados com access ou me arranja-s um projecto exemplo..thanks

[dark_devil 0]

boas mkx,

 

para ligar a uma base de dados faz da seguinte maneira:

 

Cria um modulo:

 

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

 

No projecto coloca o seguinte codigo para inserir registo na base de dados:

 

 

Private Sub Command1_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

str_SQL = "Insert into Alunos (nome,faltas) values ('" & Text1 & "','" & T_FALTAS & "')"

' executar a consulta

Minha_ligacao.Execute str_SQL

 

 

 

MsgBox "Valor Inserido com sucesso", vbInformation

 

End Sub

 

Nota: As variaveis tem que ser as mesmas que voce usa na base de dados

 

Comprimentos