Veritabanı Bağlantı Kontrol

Bu makalemizde veritabanına bağlantımız olup olmadığını
kontrol edeceğiz.

 
Formunuza 2 adet button ekleyin.

Şekil 1

Şekil 2

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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.