Visual Basic.Net Database İşlemleri

' Public Class Form1'in altına yaz
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Dim con As New OleDb.OleDbConnection

'Form.load'a aşağıdakileri yaz
               Dim db01, db02 As String
        db01 = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb"
        db02 = ";Persist Security Info=True;Jet OLEDB:Database Password="

        con.ConnectionString = db01 & db02
        con.Open()

        sql = "SELECT * FROM BilgiBankasi ORDER BY AD"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "BilgiBankasi")

        Me.ListBox1.DataSource = ds.Tables(0)
        Me.ListBox1.DisplayMember = "AD"
        Me.ListBox1.ValueMember = "SIRA"
        Me.ListBox1.SelectedItem = "AD"
        con.Close()

database bilgilerini seninkine göre değiştir yeter (database adı db.mdb ,tablo adı BilgiBankasi,primary sütun adı SIRA , listbox1'e doldurulacak bilgilerin sütün adı AD)

Vatansever dedi: ↑

' Public Class Form1'in altına yaz
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Dim con As New OleDb.OleDbConnection

'Form.load'a aşağıdakileri yaz
               Dim db01, db02 As String
        db01 = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb"
        db02 = ";Persist Security Info=True;Jet OLEDB:Database Password="

        con.ConnectionString = db01 & db02
        con.Open()

        sql = "SELECT * FROM BilgiBankasi ORDER BY AD"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "BilgiBankasi")

        Me.ListBox1.DataSource = ds.Tables(0)
        Me.ListBox1.DisplayMember = "AD"
        Me.ListBox1.ValueMember = "SIRA"
        Me.ListBox1.SelectedItem = "AD"
        con.Close()

database bilgilerini seninkine göre değiştir yeter (database adı db.mdb ,tablo adı BilgiBankasi,primary sütun adı SIRA , listbox1'e doldurulacak bilgilerin sütün adı AD)

Teşekkür Ederim Eve Gidince Deneyeceğim...

con.Open() da sorun var hata veriyor program çalısmıyor

hala cevap gelmedi eğer bulabilen varmı yardım etsin hatta veri tabanı adım Bilgiislem table 2 tane var gidenpc ve rehber ben rehberden sadece ad olan kısmı listbox a çekmeyi istiorum..

Kod çalışıyor database'ni debug klasörünün içine kopyaladınmıki Visual Studio 2008 ile yapılmış çalışan örneğimi aşağıdaki linkten indirip bak

http://www.divshare.com/download/14198097-b72

dostum benm veri taban türüm sql sever database visual basicden olusturdum direk databasemi o yüzden bağlantı kurmuor ne yapmam lazım.

---------- Post added at 22:08 ---------- Previous post was at 21:52 ----------

Bu verdiğin aslında daha iyidi onuda bilmek kardır :D

Başkasının bir forumda yazdığını ekleyeyim bir incele
**************************************
' form unuza bir button ve bir listbox ekleyin
' SQL Server dan databases a üzerinde sağ tuş new database diyin ve adını havayollari diyin oluşan havayollari veritabanının tables bölümüne gelin new table deyin adını kisi yapın tablonun bu tablonun içinde Isim adında bi sutün oluşturun ve değerini nvarchar(25) deyin ve oluşan tabloyu açıp kafanıza göre doldurun
' eklediğimiz button nun click olayının altına aşağıdaki kodları yazın

'burda connection nesnemi belirtiyom ve connection string imi yazdım
Dim conn As New SqlClient.SqlConnection("Data Source=.;initial Catalog=havayollari;uid=sa;pwd=;Connection TimeOut=5;")

'command nesnemi tanımladım ve command text tını yazım connectionna bağladım nesenemi
Dim cmd As New SqlClient.SqlCommand("select * from kisi", conn)

'verileri okutturmak için datareader nesnemi tanımladım
Dim dr As SqlClient.SqlDataReader

'olurda hata verirse program try ın içine yazıyom kodları msgbox da hatayı cıkartmak için
Try
conn.Open()
cmd = dr.ExecuteReader

'while döngüsüyle listbox a database im deki verileri ekliyom
While dr.Read
ListBox1.Items.Add(dr.Item("Isim"))
End While
Catch ex As Exception
MsgBox(ex.Message)
Finally
conn.Close()
End Try
*********************************************
Birde aşağıdaki linge bak burdada sql server'dan listbox'a veri doldurma kodu var
http://www.daniweb.com/forums/thread278415.html

Teşekkür Ettim süpersin =)