Veritabanı Bağlantı Kontrol

Bu makalemizde veritabanına bağlantımız olup olmadığını
kontrol edeceğiz.
Formunuza 2 adet button ekleyin. Aşağıdaki şekilleri inceleyin.

Public Class Form1
Dim baglan As New OleDb.OleDbConnection
Dim komut As New OleDb.OleDbCommand
Private Sub btnBaglan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaglan.Click
Try
baglan = New OleDb.OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=Northwind.mdb")
baglan.Open()
MsgBox("Veritabanı bağlantısı yapıldı...")
Exit Sub
Catch ex As Exception
MsgBox("Veritabanı bağlantısı yapılamadı...")
End Try
End Sub
Private Sub btnKapat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKapat.Click
baglan = New OleDb.OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=Northwind.mdb")
If ConnectionState.Connecting = 2 Then
baglan.Close()
MsgBox("Veritabanı kapatıldı...")
End If
End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN