Jump to content

Como ligar o vb.net a uma base de dados acess ?


Lukas S.
 Share

Recommended Posts

Sou novo nestas ligações a base de dados ... alguém pode ajudar ? gostaria de aceder aos dados de uma base de dados feita em acess e colocar dados lá e guardar ... anyone ? thanks in advance

E o Impossível foi criado por pessoas fracas pra acabar com o sonho das pessoas fortes. Não deixes que acabem com o teu. Sonha , luta , ambiciona e realiza. Se amas , se gostas tu vais conseguir. Cala todas as pessoas que um dia duvidaram de ti e prova que foste mais forte de qualquer outro.

Link to comment
Share on other sites

Boas,

Segue aqui um exemplo, certifica-te que tens a base de dados na pasta do programa ou muda na CONNECTIONSTRING a localização se necessario.

Imports System.Data.OleDb
Public Class Form1
       Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\GparqueBD.mdb")
       Dim query As New OleDbCommand
       Dim dr As OleDbDataReader
       Dim x, y As String

       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
               Try
                       If cn.State = ConnectionState.Closed Then
                               cn.Open()
                       End If
                       query.Connection = cn
                       If query.Connection.State = ConnectionState.Closed Then
                               query.Connection.Open()
                       End If
                       query.CommandText = "SELECT * FROM Lugares"
                       dr = query.ExecuteReader
                       If dr.HasRows Then
                               While dr.Read
                                       x = dr(0)
                                       y = dr(1)
                               End While
                       End If
                       dr.Close()
                       cn.Close()
               Catch ex As Exception
                       MsgBox(ex.Message)

               End Try
       End Sub
End Class

Qualquer dúvida que tenhas mete aqui.

Espero ter ajudado, dá um feedback depois 🙂

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.