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.
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