Public Class Veritaban_islemleri



#Region "Veritabanı Bağlantısı"



    Public Shared connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='dRmusavirV.mdb';Jet OLEDBatabase Password=131313"

    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ı", MsgBoxStyle.Exclamation, " Hata !!!")

                baglanti.Close()





            End Try

        End If

        Return baglanti

    End Function

#End Region





Public Shared Function il_Getir() As DataTable

        Dim adapter As New OleDb.OleDbDataAdapter("SELECT * FROM il", Baglan)

        Dim dt As New DataTable

        adapter.Fill(dt)

        

        Baglan.Close()

        Return dt

    End Function



End Class

Public Class Form1



Private Sub il_Aktar()

        Dim dt As DataTable = Veritaban_islemleri.il_Getir()

        

        DComboBox1.ValueMember = "il_id"

        DComboBox1.DisplayMember = "ilad"

        DComboBox1.DataSource = dt

               

End Sub



 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       

        il_Aktar()



 End Sub



End Class