VB.Net 2010 - Füllen einer ComboBox aus einer MDB-access-Datenbank

Ich bin versucht derzeit, füllen Sie eine Dropdown Feld in einem Formular in VB.Net aus einer MDB-Datenbank-für ein Projekt, das ich arbeite auf für die Arbeit.

Ich habe eine Tabelle "Monate" in eine Datenbank namens "cancmov", und das Feld, das ich bin versucht zu ziehen, nennt MoveMonth.

Den aktuellen code, den ich verwende, ist:-

Private Sub drpMovedFrom_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles drpMovedFrom.SelectedIndexChanged


    Dim ConnnectionString As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Admin\Desktop\CancellationsAndMovements\CancellationsandMovements\cancmov.mdb"
    Dim db As String = "SELECT MoveMonth FROM Months"
    Dim cn As New OleDbConnection(ConnnectionString)
    Dim da As New OleDbDataAdapter(db, cn)
    Dim ds As New DataSet()

    da.Fill(ds, "MoveMonth")

    With drpMovedFrom
        .DataSource = ds.Tables("MoveMonth")
        .SelectedIndex = 0
    End With

End Sub

Da kann man wahrscheinlich aus dem sammeln oben, ich bin derzeit in den Prozess des Lernens, so viel von den oben genannten, die ich versuche in meinen Kopf zu kriegen. Ich eigentlich zog den obigen code aus einer ähnlichen Frage, die gebeten wurden, die ich bei google gefunden. Jede Hilfe wird sehr geschätzt werden, auch wenn es nur zu zeigen, mich an eine Ressource, wo ich kann lernen, dies zu tun für mich.

Danken Ihnen im Voraus.

  • Und was ist das problem mit der aktuellen Version?
InformationsquelleAutor user1585769 | 2012-08-08
  1. 4

    Ein paar Dinge, rechts von der Fledermaus:

    Sie rufen diesen code, wenn Sie die drop-down-index verpasst. Wahrscheinlich nicht das, was Sie wollen, denn es wird immer zurück auf null.

    Versuchen Sie auch, unter Beifügung Ihrer Wegwerf-Objekte in Klammern:

    Private ds As New DataSet()
Private ConnnectionString As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Admin\Desktop\CancellationsAndMovements\CancellationsandMovements\cancmov.mdb"

Protected Overrides Sub OnLoad(e As EventArgs)
  Dim db As String = "SELECT MoveMonth FROM Months"

  Using cn As New OleDbConnection(ConnnectionString)
    Using da As New OleDbDataAdapter(db, cn)
      da.Fill(ds, "MoveMonth")
    End Using
  End Using

  With drpMovedFrom
      .DisplayMember = "MoveMonth"
      .DataSource = ds.Tables("MoveMonth")
      .SelectedIndex = 0
  End With

  MyBase.OnLoad(e)
End Sub

    Auch, die ComboBox hat DisplayMember und ValueMember-Eigenschaften, die Sie anzeigen auf Ihre DataSource. DisplayMember ist der Wert, den Sie sehen in der Liste sichtbar, ValueMember ist in der Regel ein ID-Wert für die Eigenschaft "sichtbar".

    • Du mein Freund, Bist ein gentleman und ein Gelehrter! Das klappt perfekt. Ich habe den Vorschlag, um es zu bewegen aus der combobox selbst zu einer sub, die ich aufrufen kann werden. Danke, dass Sie so viel, Sie haben keine Ahnung, wie viele zukünftige Probleme mit diesem Programm haben Sie nur gelöst.
    InformationsquelleAutor LarsTech
Schreibe einen Kommentar