Moin Community...
langsam geht mir die Hitze auch auf den Kopf.
Ich bekomm es gerade nicht lauffähig hin, eine ComboBox mit Daten zu füttern.
Mein Ausgangscode aus einem damaligen Projekt von mir...
versuche ich jetzt verbissen seit 2 Stunden umzubauen das ich hier die Verfügbaren Laufwerke HDDs des PCs mit freiem Festplattenspeicher angezeigt bekomme.
Verwendet wird folgender Code:
Mein Ziel ist es, in der ComboBox alle verfügbaren HDDs anzeigen zu lassen, beim auswählen jedoch eine ID bzw. den Laufwerksbuchstaben zu übermitteln
Beispielsweise wird der Wert "Lokaler Datenträger 488GB" ausgewählt soll nur als Value C: übergeben werden.
Mit der MySQL Abfrage oben geht es ja auch das ich einen "Matchcode" auswähle aber eine "id" übermittelt wird.
Danke und Grüße Stefan
langsam geht mir die Hitze auch auf den Kopf.
Ich bekomm es gerade nicht lauffähig hin, eine ComboBox mit Daten zu füttern.
Mein Ausgangscode aus einem damaligen Projekt von mir...
VB.NET-Quellcode
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim con As New MySqlConnection
- Dim constr As String = "server=servername;uid=user;pwd=passwort;database=datenbank;"
- Try
- con.ConnectionString = constr
- con.Open()
- Catch ex As MySqlException
- MsgBox(ex.Message)
- Application.Exit()
- End Try
- Dim sStmt As String = "SELECT * FROM kunden ORDER BY matchcode ASC"
- Dim cmd As New MySqlCommand(sStmt, con)
- Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
- Dim dt As New DataTable("kunden")
- da.Fill(dt)
- If dt.Rows.Count > 0 Then
- ComboBox1.DataSource = dt
- ComboBox1.DisplayMember = "matchcode" 'What is displayed
- ComboBox1.ValueMember = "id" 'The ID of the row
- End If
- End Sub
versuche ich jetzt verbissen seit 2 Stunden umzubauen das ich hier die Verfügbaren Laufwerke HDDs des PCs mit freiem Festplattenspeicher angezeigt bekomme.
Verwendet wird folgender Code:
VB.NET-Quellcode
- Dim volname As String
- For Each drv As IO.DriveInfo In IO.DriveInfo.GetDrives
- With drv
- If .DriveType = IO.DriveType.Fixed Then ' nur Festplatte
- volname = .VolumeLabel
- If volname = "" Then
- volname = "Namenlos"
- Else
- volname = .VolumeLabel
- End If
- cb_target.Items.Add(.Name & " (" & volname & ") (" & Math.Round(.TotalSize / 1024 ^ 3) & " GB)")
- End If
- End With
- Next
Mein Ziel ist es, in der ComboBox alle verfügbaren HDDs anzeigen zu lassen, beim auswählen jedoch eine ID bzw. den Laufwerksbuchstaben zu übermitteln
Beispielsweise wird der Wert "Lokaler Datenträger 488GB" ausgewählt soll nur als Value C: übergeben werden.
Mit der MySQL Abfrage oben geht es ja auch das ich einen "Matchcode" auswähle aber eine "id" übermittelt wird.
Danke und Grüße Stefan
Nein! Doch! OHH!