Bilder in Datagridview

menorca · 11. Mai 2013, 15:59

Habe hier leider kein passendes Ergebnis gefunden, wie kann ich untenstehenden Code anpassen das die GridView mir die Bilder anzeigt?
möglichst in 20x20 Größe automatisch an Zelle anpassen. Der Pfad steht in der DB

Brainfuck-Quellcode

Try
Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\ETMSW\ETM_Daten\ETM.mdb"
Dim myConnection As OleDbConnection = New OleDbConnection
myConnection.ConnectionString = ConnString
myConnection.Open()
'---------------------------------
'//Tab Lagerbestand
'---------------------------------
Dim da As OleDbDataAdapter = New OleDbDataAdapter("SELECT tblArtikel.ArtID, " & _
"tblArtikel.ArtNummer,tblArtikel.ArtBezeichnung, " & _
"tblArtikel.ArtZusatz,tblLagerbestaende.LaBesMenge AS Bestand, " & _
"tblLagerbestaende.LaPlaID AS Lager,tblArtikel.ArtAngelegt, tblArtikel.Menge," & _
"tblArtikel.ArtMindestbestand AS [Min]," & _
"tblArtikel.ArtMaxbestand AS [Max], " & _
"tblArtikel.ArtMeldebestand AS Meldebestand, tblArtikel.ArtAbbildungPfad,tblArtikel.StandID " & _
"FROM tblArtikel LEFT JOIN tblLagerbestaende " & _
"ON tblArtikel.ArtID = tblLagerbestaende.ArtID;", ConnString)
dS = New DataSet
da.Fill(dS, "tempLagerbestand")
dBind.DataSource = dS
DataGridView1.DataSource = dS
dBind.DataMember = dS.Tables(0).ToString()
DataGridView1.DataSource = dBind
Dim img As New DataGridViewImageColumn()
Dim inImg As Image = Image.FromFile("ArtAbbildungPfad") 'Bildpfad ?
img.Image = inImg
DataGridView1.Columns.Add(img)
img.HeaderText = "Image"
img.Name = "img"
Me.Cursor = Cursors.Default
Catch ex As Exception
End Try

RodFromGermany · 11. Mai 2013, 17:13

Ohne alles gelesen zu haben: DataGridViewImageColumn ist die Spalte, nicht aber die Zelle.
Gugst Du hier.

menorca · 12. Mai 2013, 11:10

Danke Rod für deine Antwort.

doch mit dem Code aus dem Link Verweis komme ich nicht klar, habe ein wenig angepasst.

was muss ich ändern Bitte.

Brainfuck-Quellcode

Try
cmd.Connection = con
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\ETMSW\ETM_Daten\ETMKopie.mdb"
'---------------------------------
'//Tab Lagerbestand
'---------------------------------
cmd.Connection = con
cmd.CommandText = ("SELECT tblArtikel.ArtID, " & _
"tblArtikel.ArtNummer,tblArtikel.ArtBezeichnung, " & _
"tblArtikel.ArtZusatz,tblLagerbestaende.LaBesMenge AS Bestand, " & _
"tblLagerbestaende.LaPlaID AS Lager,tblArtikel.ArtAngelegt, tblArtikel.Menge," & _
"tblArtikel.ArtMindestbestand," & _
"tblArtikel.ArtMaxbestand, " & _
"tblArtikel.ArtMeldebestand, " & _
"tblArtikel.ArtAbbildungPfad," & _
"tblArtikel.StandID " & _
"FROM tblArtikel LEFT JOIN tblLagerbestaende " & _
"ON tblArtikel.ArtID = tblLagerbestaende.ArtID")
With DataGridView1
.Columns.Clear()
.Rows.Clear()
End With
With DataGridView1.Columns
.Add("0", "ArtID")
.Add("1", "Artikel")
.Add("2", "Bezeichnung")
.Add("3", "MIN")
.Add("4", "MAX")
.Add("5", "Bestand")
.Add("6", "Bild")
End With
con.Open()
reader = cmd.ExecuteReader()
Do While reader.Read()
DataGridView1.Rows.Add(reader("ArtID").ToString(), _
reader("ArtNummer").ToString(), _
reader("ArtBezeichnung").ToString(), _
reader("ArtMindestbestand").ToString(), _
reader("ArtMaxbestand").ToString(), _
reader("Bestand").ToString(), _
reader(Image.FromFile("ArtAbbildungPfad").ToString))
Loop
con.Close()
Me.Cursor = Cursors.Default
Catch ex As Exception
''DirectCast(ex,System.IO.FileNotFoundException) {"ArtAbbildungPfad":Nothing}
End Try

programmer71 · 12. Mai 2013, 11:11

Das zeigt dir, dass eine Exception da ist. Schmeiß den Try-Block raus und melde den Fehler dann.

menorca · 12. Mai 2013, 11:31

habe Try rausgeworfen, eine Meldung kommt nicht mehr
aber angezeigt wird auch nichts

LaMiy · 12. Mai 2013, 11:39

@menorca
Die vorherige Exception war "Artabildungspfad" nicht gefunden.
Speicher diesen Pfad mal in einer Variablen und schau dir den Wert an, indem du einen Halteunkt(F9) setzt und dann einmal F10drückst. Danach kannst du mit dem Cursor auf die Stringvariable halten und der Wert wird angezeigt.
Desweiteren musst du auch ein ImageColumn hinzufügen
msdn.microsoft.com/de-de/libra…agridviewimagecolumn.aspx

VB.NET-Quellcode

Dim i As New DataGridViewImageColumn()
i.Name = "Image"
i.HeaderText = "Bild"
i.Width = 100
DataGridView1.Columns.Add(i)

menorca · 12. Mai 2013, 11:42

wo soll ich das einbauen?

OK habe es so gemacht, Ergebnis sieht nun so aus, wie geht es weiter?

Brainfuck-Quellcode

Dim i As New DataGridViewImageColumn()
i.Name = "Image"
i.HeaderText = "Bild"
i.Width = 100
'Me.Cursor = Cursors.WaitCursor
'Try
cmd.Connection = con
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\ETMSW\ETM_Daten\ETMKopie.mdb"
'---------------------------------
'//Tab Lagerbestand
'---------------------------------
cmd.Connection = con
cmd.CommandText = ("SELECT tblArtikel.ArtID, " & _
"tblArtikel.ArtNummer,tblArtikel.ArtBezeichnung, " & _
"tblArtikel.ArtZusatz,tblLagerbestaende.LaBesMenge AS Bestand, " & _
"tblLagerbestaende.LaPlaID AS Lager,tblArtikel.ArtAngelegt, tblArtikel.Menge," & _
"tblArtikel.ArtMindestbestand," & _
"tblArtikel.ArtMaxbestand, " & _
"tblArtikel.ArtMeldebestand, " & _
"tblArtikel.ArtAbbildungPfad," & _
"tblArtikel.StandID " & _
"FROM tblArtikel LEFT JOIN tblLagerbestaende " & _
"ON tblArtikel.ArtID = tblLagerbestaende.ArtID")
With DataGridView1
.Columns.Clear()
.Rows.Clear()
End With
With DataGridView1.Columns
.Add("0", "ArtID")
.Add("1", "Artikel")
.Add("2", "Bezeichnung")
.Add("3", "MIN")
.Add("4", "MAX")
.Add("5", "Bestand")
.Add(i)
End With
con.Open()
reader = cmd.ExecuteReader()
Do While reader.Read()
DataGridView1.Rows.Add(reader("ArtID").ToString(), _
reader("ArtNummer").ToString(), _
reader("ArtBezeichnung").ToString(), _
reader("ArtMindestbestand").ToString(), _
reader("ArtMaxbestand").ToString(), _
reader("Bestand").ToString(), _
reader(Image.FromFile("ArtAbbildungPfad").ToString))
Loop
con.Close()

LaMiy · 12. Mai 2013, 14:19

@menorca
Gib mal ein Beispiel für deinen "ArtAbildungspfad" an. (Setzt einen Haltepunkt)
Normal sollte das, wenn es der richtige Pfad ist klappen.
Edit: Gib dir mal deine Query aus und jag sie mal mit einem Datenbankprogramm auf die Datenbank und guck was er dir ausgibt. Dann kannst du ausschließen dass die Qeury falsch ist.

RodFromGermany · 12. Mai 2013, 15:57

menorca schrieb:

VB.NET-Quellcode

reader(Image.FromFile("ArtAbbildungPfad").ToString))

Was ist das für ein Bild?
FromFile() erwartet einen vollständigen Pfad.

menorca · 12. Mai 2013, 18:55

Danke Rod,

"ArtAbbildungPfad" ist der Spaltenname dort wurde das Bild mit Pfadangabe gespeichert
D:\Bildmaterial\SNr6\Bild1.jpg

wenn ich die Zeile rausnehme sieht das Ergebnis aus wie im Anhang aber auch kein Bild

reader(Image.FromFile("ArtAbbildungPfad").ToString))

menorca · 13. Mai 2013, 14:56

Habe es insoweit gelöst das im GridView Bilder aus der Pfadangabe geladen werden.
das funktioniert auch, jetzt brauche ich noch eine Möglichkeit das die Bilder ordentlich angezeigt werden in der x / y 20x20 angezeigt werden.
Habe es schon mit Zoom probiert doch die Bilder sind recht groß, sie müssten also für die Zelle entsprechend kleiner gemacht werden.
und wenn kein Bild vorhanden, dann eine alternative.
wer hilft da weiter?

Quellcode

cmd.Connection = con
cmd.CommandText = ("SELECT tblArtikel.ArtID, " & _
"tblArtikel.ArtNummer," & _
"tblArtikel.ArtBezeichnung, " & _
"tblArtikel.ArtZusatz," & _
"tblLagerbestaende.LaBesMenge, " & _
"tblLagerbestaende.LaPlaID," & _
"tblArtikel.ArtAbbildungPfad," & _
"tblArtikel.ArtAngelegt, " & _
"tblArtikel.Menge," & _
"tblArtikel.ArtMindestbestand," & _
"tblArtikel.ArtMaxbestand, " & _
"tblArtikel.ArtMeldebestand, " & _
"tblArtikel.StandID " & _
"FROM tblArtikel LEFT JOIN tblLagerbestaende " & _
"ON tblArtikel.ArtID = tblLagerbestaende.ArtID")
Dim img As New DataGridViewImageColumn()
img.HeaderText = "Image"
img.Name = "img"
With DataGridView1
.Columns.Clear()
.Rows.Clear()
End With
With DataGridView1.Columns
.Add("0", "ArtID")
.Add("1", "Artikel")
.Add("2", "Bezeichnung")
.Add("3", "MIN")
.Add("4", "MAX")
.Add("5", "Bestand")
.Add(img)
End With
con.Open()
reader = cmd.ExecuteReader()
Do While reader.Read()
DataGridView1.Rows.Add(reader("ArtID").ToString(), _
reader("ArtNummer").ToString(), _
reader("ArtBezeichnung").ToString(), _
reader("ArtMindestbestand").ToString(), _
reader("ArtMaxbestand").ToString(), _
reader("LaBesMenge").ToString(), _
Image.FromFile(reader("ArtAbbildungPfad").ToString))
Loop
con.Close()

LaMiy · 13. Mai 2013, 15:14

@menorca
msdn.microsoft.com/de-de/libra…gecolumn.imagelayout.aspx

VB.NET-Quellcode

img.ImageLayout = DataGridViewImageCellLayout.Stretch

menorca · 13. Mai 2013, 18:35

Danke, eines fehlt noch

was wenn kein Bild gefunden, oder kein Pfad in der DB steht

so geht nicht!
wer hat die Lösung?

Quellcode

Do While reader.Read()
DataGridView1.Rows.Add(reader("ArtID").ToString(), _
reader("ArtNummer").ToString(), _
reader("ArtBezeichnung").ToString(), _
reader("ArtMindestbestand").ToString(), _
reader("ArtMaxbestand").ToString(), _
reader("LaBesMenge").ToString(), _
If Not IsDBNull(reader("ArtAbbildungPfad").ToString() AndAlso IO.File.Exists(reader("ArtAbbildungPfad").ToString)) Then
Image.FromFile(reader("ArtAbbildungPfad").ToString)
else
End If
Loop

menorca · 14. Mai 2013, 06:49

Hi zusammen,

mein Ergebnis kann sich sehen lassen.
Ein Problem beschäftigt mich jedoch noch, wenn kein Bild (No Image) abfangen, bzw. noch kein Bildpfad gespeichert wurde
wie geht man damit um??

Spoiler anzeigen

Brainfuck-Quellcode

Dim con As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim reader As OleDb.OleDbDataReader
Try
cmd.Connection = con
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\ETMSW\ETM_Daten\ETMKopie.mdb"
'---------------------------------
'//Tab Lagerbestand
'---------------------------------
cmd.Connection = con
cmd.CommandText = ("SELECT tblArtikel.ArtID, " & _
"tblArtikel.ArtNummer," & _
"tblArtikel.ArtBezeichnung, " & _
"tblArtikel.ArtZusatz," & _
"tblLagerbestaende.LaBesMenge, " & _
"tblLagerbestaende.LaPlaID," & _
"tblArtikel.ArtAbbildungPfad," & _
"tblArtikel.ArtAngelegt, " & _
"tblArtikel.Menge," & _
"tblArtikel.ArtMindestbestand," & _
"tblArtikel.ArtMaxbestand, " & _
"tblArtikel.ArtMeldebestand, " & _
"tblArtikel.StandID " & _
"FROM tblArtikel LEFT JOIN tblLagerbestaende " & _
"ON tblArtikel.ArtID = tblLagerbestaende.ArtID")
Dim img As New DataGridViewImageColumn()
img.HeaderText = "Bild"
img.Name = "img"
img.Width = 50
img.ImageLayout = DataGridViewImageCellLayout.Zoom
img.DefaultCellStyle.NullValue = Nothing
With DataGridView1
.Columns.Clear()
.Rows.Clear()
End With
With DataGridView1.Columns
.Add("0", "ArtID")
.Add("1", "Artikel")
.Add("2", "Bezeichnung")
.Add("3", "MIN")
.Add("4", "MAX")
.Add("5", "Bestand")
.Add(img)
End With
con.Open()
reader = cmd.ExecuteReader()
Do While reader.Read()
DataGridView1.Rows.Add(reader("ArtID").ToString(), _
reader("ArtNummer").ToString(), _
reader("ArtBezeichnung").ToString(), _
reader("ArtMindestbestand").ToString(), _
reader("ArtMaxbestand").ToString(), _
reader("LaBesMenge").ToString(), _
Resize_Image(New Bitmap(Image.FromFile(reader("ArtAbbildungPfad")))))
Loop
con.Close()
InitializeDataGridView()
Catch ex As Exception
':::::::
End Try
End Sub
':::
Private Function Resize_Image(ByVal _obmp As Bitmap) As Bitmap
Dim _nbmp As New Bitmap(100, 100)
Dim _obmp_width As Single = _obmp.Width
Dim _obmp_height As Single = _obmp.Height
Dim _obmp_factor As Single = _obmp_width / _obmp_height
Do While _obmp_width > 150
_obmp_width -= _obmp_width / 100
_obmp_height = _obmp_width / _obmp_factor
Loop
Do While _obmp_height > 150
_obmp_width -= _obmp_width / 100
_obmp_height = _obmp_width / _obmp_factor
Loop
Dim _xcenter As Integer = CInt((100 - _obmp_width) / 2)
Dim _ycenter As Integer = CInt((100 - _obmp_height) / 2)
Using g As Graphics = Graphics.FromImage(_nbmp)
g.InterpolationMode = Drawing2D.InterpolationMode.Bilinear
g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
g.DrawImage(_obmp, _xcenter, _ycenter, _obmp_width, _obmp_height)
End Using
Return _nbmp
End Function
':::
Private Sub InitializeDataGridView()
With DataGridView1.DefaultCellStyle
.BackColor = Color.LightGray
.ForeColor = Color.Black
.Font = New Font("Arial", 12, FontStyle.Regular)
.Format = "d"
End With
With DataGridView1.AlternatingRowsDefaultCellStyle
.BackColor = Color.LightSlateGray
.ForeColor = Color.Black
.Font = New Font("Arial", 12, FontStyle.Regular)
.Format = "d"
End With
'---
With DataGridView1
.AutoSizeRowsMode = _
DataGridViewAutoSizeRowsMode.AllCells
.AutoSizeColumnsMode = _
DataGridViewAutoSizeColumnsMode.AllCells
.ColumnHeadersBorderStyle = _
DataGridViewHeaderBorderStyle.Raised
.CellBorderStyle = _
DataGridViewCellBorderStyle.Single
.GridColor = SystemColors.ActiveBorder
.RowHeadersVisible = False
.SelectionMode = _
DataGridViewSelectionMode.FullRowSelect
.MultiSelect = True
.BackgroundColor = Color.LightGray
End With
End Sub

LaMiy · 14. Mai 2013, 08:05

@menorca
Ich würde mir dafür eine kleine Funktion schreiben, die ein paar Bedingungen enthält.

VB.NET-Quellcode

Option Strict On
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim bildpfad As String = "reader..."
If IsBildPfad(bildpfad) = True Then
'zuweisen
End If
End Sub
Public Function IsBildPfad(ByVal input As String) As Boolean
If input.Length() > 1 AndAlso input.Contains("/") Then
Return True
End If
Return False
End Function
End Class

Wenn es keine URL ist, dann vielleicht ein eigenes Error-Bild einbinden, oder halt entsprechend mit einer Meldung an den User reagieren.

menorca · 14. Mai 2013, 10:08

Danke für deine außerordentliche Unterstützung, evtl. kannst du mir sagen wo ich es im Code unterbringe, so wie ich es geschrieben haben werden nun keine Bilder mehr angezeigt

Quellcode

Dim bildpfad As String = "ArtAbbildungPfad"
If IsBildPfad(bildpfad) = True Then
'zuweisen
Resize_Image(New Bitmap(Image.FromFile(reader("ArtAbbildungPfad"))))
End If
Do While reader.Read()
DataGridView1.Rows.Add(reader("ArtID").ToString(), _
reader("ArtNummer").ToString(), _
reader("ArtBezeichnung").ToString(), _
reader("ArtMindestbestand").ToString(), _
reader("ArtMaxbestand").ToString(), _
reader("LaBesMenge").ToString)
Loop
con.Close()

RodFromGermany · 14. Mai 2013, 10:09

menorca schrieb:

werden nun keine Bilder mehr angezeigt

Mach Dir ein kleines Testprojekt, in dem Du ausschließlich diesen Effekt untersuchst.
Wenn es läuft - speichere es unter einem aussagekräftigen Namen ab und Du weißt, wo Du beim nächsten Mal nachsehen musst.

menorca · 14. Mai 2013, 10:29

ich habe doch nun einiges in eigen Regie hinbekommen, bis auf Image vorhanden dann sonst ...
lass mich doch nicht hängen Rod, ich bin schon in einer Testumgebung und habe das obrige abgefahren
Meldung Zeile / Spalte nicht gefunden. Da ich sie ja entfernt hatte.

RodFromGermany · 14. Mai 2013, 11:14

menorca schrieb:

lass mich doch nicht hängen Rod

Lass ich nicht, genau so mach ich es.

menorca · 14. Mai 2013, 12:08

Schade, evtl. kann mir jemand sagen wie es geht. Ich bekomme es leider Kopf mäßig nicht hin
wie ich die Funktion in meinem Code nutzen kann so das die Img Spalte auch ohne Bild angehängt wird
habe 30 Datensätze denen ein Bild zugeordnet wird, dh. 10 sind noch ohne Bild das GridView soll aber auch die Datensätze ohne Bild anzeigen

'.............
habe es so im Code getestet, jetzt zeigt er mir (kein Foto) für jeden Datensatz an

Quellcode

Do While reader.Read()
Dim bildpfad As String = reader("ArtAbbildungPfad")
If IsBildPfad(bildpfad) = True Then
DataGridView1.Rows.Add(reader("ArtID").ToString(), _
reader("ArtNummer").ToString(), _
reader("ArtBezeichnung").ToString(), _
reader("ArtMindestbestand").ToString(), _
reader("ArtMaxbestand").ToString(), _
reader("LaBesMenge").ToString(), _
Resize_Image(New Bitmap(Image.FromFile(reader("ArtAbbildungPfad")))))
Else
DataGridView1.Rows.Add(reader("ArtID").ToString(), _
reader("ArtNummer").ToString(), _
reader("ArtBezeichnung").ToString(), _
reader("ArtMindestbestand").ToString(), _
reader("ArtMaxbestand").ToString(), _
reader("LaBesMenge").ToString(), _
Resize_Image(New Bitmap(Image.FromFile(Application.StartupPath & "\Kein Foto.jpg"))))
End If
Loop

Bilder in Datagridview

Bilder in Datagridview

Brainfuck-Quellcode

Brainfuck-Quellcode

VB.NET-Quellcode

Brainfuck-Quellcode

menorca schrieb:

VB.NET-Quellcode

Bildmaterial

Quellcode

VB.NET-Quellcode

Quellcode

soweit geschafft

Brainfuck-Quellcode

VB.NET-Quellcode

Quellcode

menorca schrieb:

menorca schrieb:

IMG in DatagridView wenn vorhanden

Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben