Hallo Zusammen
Ich bin seit einiger Zeit am Versuchen "mit Buch und Google" Bilder in einer PictureBox anzuzeigen welches sich aus einer DB zusammensetzt und hoffe Ihr könnt mir nun weiterhelfen.
Ich hebe eine OleDB unter Access erstellt. Ich habe darin eine Tabelle mit Name tbKatalog. Den Katalog lade ich im ersten Schritt in ein DGV was Super funktioniert.
Danach mache ich eine Abfrage um in einem zweiten DGV die Einzelteile aus der tbEinzelteil abzufragen welche verwendet wurden um den Artikel im Katalog zu fertigen. Das geht auch noch.
Nun will ich aber das in meiner PictureBox wenn ich im DGV vom Katalog klicke sich die dazugehörigen Bilder angezeigt bekomme.
das versuche ich über die DGV1.CellClick zu realisieren.
ich habe nun das hier versucht nach einigem Suchen leider ohne erfolg
Ich bin seit einiger Zeit am Versuchen "mit Buch und Google" Bilder in einer PictureBox anzuzeigen welches sich aus einer DB zusammensetzt und hoffe Ihr könnt mir nun weiterhelfen.
Ich hebe eine OleDB unter Access erstellt. Ich habe darin eine Tabelle mit Name tbKatalog. Den Katalog lade ich im ersten Schritt in ein DGV was Super funktioniert.
Danach mache ich eine Abfrage um in einem zweiten DGV die Einzelteile aus der tbEinzelteil abzufragen welche verwendet wurden um den Artikel im Katalog zu fertigen. Das geht auch noch.
Nun will ich aber das in meiner PictureBox wenn ich im DGV vom Katalog klicke sich die dazugehörigen Bilder angezeigt bekomme.
das versuche ich über die DGV1.CellClick zu realisieren.
ich habe nun das hier versucht nach einigem Suchen leider ohne erfolg
VB.NET-Quellcode
- Imports System.IO
- Imports System
- Public Class Form1
- 'Globale Variablen
- Dim con As New OleDbConnection
- Dim cmd As New OleDbCommand
- Public reader As OleDbDataReader
- Public cn As New OleDbConnection
- Public i As Integer
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Dim da As New OleDbDataAdapter
- Dim ds As New DataSet
- Dim dt As New DataTable
- con.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;" &
- "Data Source = UHPC_DB_20161001.accdb"
- da = New OleDbDataAdapter("SELECT tbKatalog.ID, Nummer, Artikel, MassEH, Bedarf, Kunde, Ptouch FROM tbKatalog, tbKunde, tbEinheit WHERE tbKunde.ID = tbKatalog.KundeID AND tbEinheit.ID = tbKatalog.MassEhID ", con)
- da.Fill(dt)
- DataGridView1.BorderStyle = BorderStyle.None
- DataGridView1.ColumnHeadersVisible = True
- DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.Black 'LightGray
- DataGridView1.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
- DataGridView1.EnableHeadersVisualStyles = False
- DataGridView1.GridColor = Color.White 'LightGray
- DataGridView1.RowHeadersVisible = False
- DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
- DataGridView1.BackgroundColor = Color.White
- DataGridView1.RowsDefaultCellStyle.BackColor = Color.LightGray
- DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.White
- DataGridView1.DataSource = dt
- End Sub
- 'DataGridView anzeigen für alle artikel jedoch noch Probleme weill alle Instanzen aufgelistet werden daher ist die Listbox noch aktiv
- Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
- Dim da As New OleDbDataAdapter
- Dim ds As New DataSet
- Dim dt As New DataTable
- con.ConnectionString =
- "Provider=Microsoft.ACE.OLEDB.12.0;" &
- "Data Source = UHPC_DB_20161001.accdb"
- da = New OleDbDataAdapter("SELECT tbEinzelteil.ID, ArtNr, ArtNrAlt, Bez, Firma, VE, MassEH, PreisVE, AnLager, Soll, Regal, Etage, Fach " &
- "FROM tbKatalog, tbEinzelteil, tbArtikelDetail, tbLieferant, tbEinheit " &
- "WHERE tbKatalog.ID Like '" &
- DataGridView1.CurrentCell.RowIndex + 1 & "'AND tbKatalog.ID = tbArtikelDetail.KatalogID AND tbEinzelteil.ID = tbArtikelDetail.EinzelteilID " &
- "AND tbLieferant.ID = tbEinzelteil.FirmaID AND tbEinheit.ID = tbEinzelteil.MassEhID ", con)
- Dim da2 As New OleDbDataAdapter("SELECT Nummer " &
- "FROM tbKatalog" &
- "WHERE tbKatalog.ID LIKE " &
- DataGridView1.CurrentCell.RowIndex + 1, con)
- da.Fill(dt)
- DataGridView2.DataSource = dt
- InitializeDataGridView()
- Dim res As String = da2.ToString()
- PictureBox1.Image = Image.FromFile(res, ".jpg") ', IO.FileMode.Open)
- End Sub