 
Crew .NET |
|
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim verbinding As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=C:\test.mdb")
Try
verbinding.Open()
If verbinding.State = ConnectionState.Open Then
MessageBox.Show("Verbinding geslaagd!", "Melding", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MessageBox.Show("Verbinding maken mislukt!", "Fout", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
verbinding.Close()
Application.Exit()
End Try
End Sub
End Class
Imports System.Data.OleDb Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim verbinding As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=C:\test.mdb") Try verbinding.Open() If verbinding.State = ConnectionState.Open Then MessageBox.Show("Verbinding geslaagd!", "Melding", MessageBoxButtons.OK, MessageBoxIcon.Information) End If Catch ex As Exception MessageBox.Show("Verbinding maken mislukt!", "Fout", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally verbinding.Close() Application.Exit() End Try End Sub End Class
Voila, een simpele code die verbinding maak met een Access DB en controleert of de verbinding lukt of niet en dan een melding of foutmelding weergeeft. Daarna wordt de verbinding verbroken en de applicatie gesloten.
PS: als je een beetje van C# kent kon je de omzetting naar VB.NET zelf wel maken want buiten de syntax is de rest hetzelfde als in C# maar ik neem je niet kwalijk dat je het niet kon hoor!  |
Wat is jouw favoriete javascript framework? (S: 18, R: 2)
Gesponsorde links
Actiefste leden van de maand
