vb.net ile accessten listbox' veri çekme
Tarih
27/02/2013 15:09
Konu Sahibi
selime68
Yorumlar
7
Okunma
5466
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Çözüldü 
merhaba
yani başlamış olduğum Microsoft Visual Studio 2010 programlama dilinde uzun uzun uğraşlar sonunda vb.net ile Access veri tabanı arasında bağlantı kurup verileri çekebiliyorum. ve bu işlemi forma eklemiş olduğum DataGridView1'de çekiyorum. eklemiş olduğum kayıtları liste kutusuna çekmek istiyorum fakat başarılı olamadım sanırım lütfen yardımcı olabilirmisiniz. kayıt işlemi için kullandığım kod aşağıda ki gibidir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Imports System.Data
Imports System.Data.OleDb

Public Class Form1

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

        Dim baglanti As New OleDb.OleDbConnection
        baglanti.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & "Data Source=C:\Users\İLHAN\Desktop\Yeni klasör\deneme\deneme\bin\Debug\okuyucu2.mdb"
        baglanti.Open()
        Dim ds As New DataSet
        Dim adb As New OleDb.OleDbDataAdapter("select * from okuyucu", baglanti)
        adb.Fill(ds, "okuyucu")
        DataGridView1.DataSource = ds.Tables("okuyucu")
        baglanti.Close()


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim baglanti As New OleDb.OleDbConnection
        baglanti.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & "Data Source=C:\Users\İLHAN\Desktop\Yeni klasör\deneme\deneme\bin\Debug\okuyucu2.mdb"
        baglanti.Open()
     


        Dim a, b, c, d, f, g, k, l As String
        a = TextBox1.Text
        b = TextBox2.Text
        c = TextBox3.Text
        d = TextBox4.Text
        f = TextBox7.Text
        l = TextBox8.Text
        g = TextBox5.Text
        k = TextBox6.Text
        If a = "" Or b = "" Or c = "" Or d = "" Or f = "" Or l = "" Or g = "" Or k = "" Then
            MsgBox("verileri eksiksiz girmelisiniz")

        End If

        Dim Command As OleDbCommand
        Command = New OleDbCommand("Insert Into okuyucu(Kimlik,tc,ad,soyad,meslek,web,posta,adres) values ('" + a + "','" + b + "','" + c + "','" + d + "','" + f + "','" + l + "','" + g + "','" + k + "') ", baglanti)
        Command.ExecuteNonQuery()
        Dim ds As New DataSet
        Dim adb As New OleDb.OleDbDataAdapter("select * from okuyucu", baglanti)
        adb.Fill(ds, "okuyucu")
        DataGridView1.DataSource = ds.Tables("okuyucu")
        baglanti.Close()
        MsgBox("brawoooooooooooo")

    End Sub

Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.Columns.Add("1.Kolon Adı Ne olsun", 80, HorizontalAlignment.Left) 'kolon adları ve genişlikleri listviewde nasıl gözükmesini istiyorsan
        ListView1.Columns.Add("2.Kolon Adı Ne olsun", 1500, HorizontalAlignment.Left) 'kolon adları ve genişlikleri listviewde nasıl gözükmesini istiyorsan
        Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veritabanının adını yaz.mdb'")
        Dim adp As New OleDb.OleDbDataAdapter()
        adp.SelectCommand = New OleDb.OleDbCommand("Select * From veritaban içindeki tablonun adını yaz", baglan)
        baglan.Open()
        Dim ds1 As New DataSet()
        adp.Fill(ds1)
        baglan.Close()
        Dim item As New ListViewItem
        For Each row As DataRow In ds1.Tables(0).Rows
            item = ListView1.Items.Add(row.Item("1.Kolon Adı")) ' tablodaki alan adı
            item.SubItems.Add(row.Item("1.Kolon Adı")) 'tablodaki alan adı
        Next


Formun load ına koyarsan ve tabiki 1 adet listviev eklemen lazım, form açılışında dolu olarak gelir

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Çözüldü 
SN drummers HOCAM COK TESEKKÜR EDERİM
Cevapla


Çözüldü 

Visual Basic Code
item = ListView1.Items.Add(row.Item("Kimlik")) ' tablodaki alan adı
            item.SubItems.Add(row.Item("Kimlik")) 'tablodaki alan adı



hocam vermiş olduğunuz kodun yukarıda ki kısmını tam olarak anlayamadım yardımcı olabilirmisiniz

Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
(27/02/2013, 17:17)selime68 Adlı Kullanıcıdan Alıntı:

Visual Basic Code
item = ListView1.Items.Add(row.Item("Kimlik")) ' tablodaki alan adı
            item.SubItems.Add(row.Item("Kimlik")) 'tablodaki alan adı



hocam vermiş olduğunuz kodun yukarıda ki kısmını tam olarak anlayamadım yardımcı olabilirmisiniz




verileri aldığınız tablodaki alanların adları. Firmalar diye bir tablon var olduğunu varsayalım. içinde ad,soyad alanları olsun

Visual Basic Code
item = ListView1.Items.Add(row.Item("ad")) ' tablodaki alan adı
            item.SubItems.Add(row.Item("soyad")) 'tablodaki alan adı

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Çözüldü 
Hocam vermiş olduğunuz kodları yazdım fakat listview'e verileri çekemedim yazmış olduğum kod aşağıda ki gibi.nerde yanlış yapıyorum anlayamadım. deneme.mdb adında bir Access veri tabanım ve bu veri tabanında "veri" adında tablom var.tablo içinde ise Kimlik,adi,soyadi, ve meslek adında alanlarım var

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Imports System.Data
Imports System.Data.OleDb


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim baglanti As New OleDbConnection
        baglanti.ConnectionString = "provider=Microsoft.JET.OleDb.4.0;" & "Data source =C:\Users\İLHAN\Desktop\yeni örnek\deneme\deneme\bin\Debug\deneme.mdb"
        baglanti.Open()

        Dim ds As New DataSet
        Dim adb As New OleDb.OleDbDataAdapter("Select * from veri", baglanti)
        adb.Fill(ds, "veri")
        DataGridView1.DataSource = ds.Tables("veri")
        baglanti.Close()
        '--------------------------------------------------
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.Columns.Add("KİMLİK", 80, HorizontalAlignment.Left) 'kolon adları ve genişlikleri listviewde nasıl gözükmesini istiyorsan
        ListView1.Columns.Add("ADI", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("SOYADI", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("MESLEK", 80, HorizontalAlignment.Left) 'kolon adları ve genişlikleri listviewde nasıl gözükmesini istiyorsan
        Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\Users\İLHAN\Desktop\yeni örnek\deneme\deneme\bin\Debug\deneme.mdb'")
        Dim adp As New OleDb.OleDbDataAdapter()
        adp.SelectCommand = New OleDb.OleDbCommand("Select * veri", baglan)
        baglan.Open()
        Dim ds1 As New DataSet()
        adp.Fill(ds1)
        baglan.Close()
        Dim item As New ListViewItem
        For Each row As DataRow In ds1.Tables(0).Rows
            item = ListView1.Items.Add(row.Item("Kimlik")) ' tablodaki alan adı
            item.SubItems.Add(row.Item("adi")) 'tablodaki alan adı
            item.SubItems.Add(row.Item("soyadi"))
            İtem.SubItems.Add(row.Item("meslek"))

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü VB6 ListView'e Accessten Veri Alma Sorunu alican60 4 2.355 12/03/2014, 11:05 ogulcan92
Çözüldü Tek Buton Üzerinden veri tabanındaki iki tabloya veri kaydetmeyi yapamadım. oztuncla 9 3.370 01/06/2013, 02:33 drummers
Çözüldü Sqlden 2 ayrı tabloya veri çekme .neshe 4 1.764 13/04/2013, 02:42 .neshe
Çözüldü Acil yardım lütfen listbox Limiyaforen 5 1.651 27/05/2012, 19:56 alpeki99
Çözüldü Webden Bilgi Çekme ve Analiz Oluşturma dostaydin 4 2.197 19/09/2010, 17:07 ogulcan92


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya