Veritabanına bağlantı classım
[vb]
Public Class Il_Ilce
Public Shared connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='İl İce Mahalle.mdb'"
Private Shared Function Baglan() As OleDbConnection
Dim baglanti As New OleDbConnection(connectionstring)
If baglanti.State <> System.Data.ConnectionState.Open Then
Try
baglanti.Open()
Catch
MsgBox("Veritabanı Bağlantısı Kurulamadı", MsgBoxS
|