Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
27/02/2013 15:09
Konu Sahibi
selime68
Yorumlar
7
Okunma
6312
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

selime68

Üye
Kullanici Avatari
Üye
8
2
19/02/2013
0
13/03/2014,01:35
Çö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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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

selime68

Üye
Kullanici Avatari
Üye
8
2
19/02/2013
0
13/03/2014,01:35
Çözüldü 
SN drummers HOCAM COK TESEKKÜR EDERİM


Cevapla

selime68

Üye
Kullanici Avatari
Üye
8
2
19/02/2013
0
13/03/2014,01:35
Çö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....
405
11/05/2009
125
İzmir
Ofis 2003
28/08/2017,11:37
Çö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

selime68

Üye
Kullanici Avatari
Üye
8
2
19/02/2013
0
13/03/2014,01:35
Çö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.718 12/03/2014, 11:05 ogulcan92
Çözüldü Tek Buton Üzerinden veri tabanındaki iki tabloya veri kaydetmeyi yapamadım. oztuncla 9 4.016 01/06/2013, 02:33 drummers
Çözüldü Sqlden 2 ayrı tabloya veri çekme .neshe 4 2.111 13/04/2013, 02:42 .neshe
Çözüldü Acil yardım lütfen listbox Limiyaforen 5 1.987 27/05/2012, 19:56 alpeki99
Çözüldü Webden Bilgi Çekme ve Analiz Oluşturma dostaydin 4 2.599 19/09/2010, 17:07 ogulcan92

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.