В выпадающих списках не отображается следующая запись с помощью селектора записей bindingnavigator

0
задан AlexVB 3 March 2019 в 17:34
поделиться

1 ответ

Спасибо за помощь. Я смог решить свою проблему, используя этот код vb.net: -

        MysqlConn = New MySqlConnection()

    ' Define the SQL to grab data from table.
    CmdSQLSelectOrders = "SELECT * FROM Orders"

    'Connection String
    MysqlConn.ConnectionString =
      "server=localhost;Port=3306;database=mydatabase;userid=root;password=mypassword;persist security info=True"
    daOrders.MissingSchemaAction = MissingSchemaAction.AddWithKey
    ' Try, Catch, Finally
    Try
        MysqlConn.Open()

        MysqlCmd.Connection = MysqlConn
        MysqlCmd.CommandText = CmdSQLSelectOrders

        daOrders.SelectCommand = MysqlCmd
        daOrders.Fill(dtOrders)

        daSupplies = New MySqlDataAdapter("SELECT * FROM Supplies", MysqlConn)
        dtSupplies = New DataTable("Supplies")
        daSupplies.Fill(dtSupplies)
        dsOrders.Tables.Add(dtSupplies)

        daCatalog = New MySqlDataAdapter("SELECT * FROM Catalog", MysqlConn)
        dtCatalog = New DataTable("Catalog")
        daCatalog.Fill(dtCatalog)
        dsOrders.Tables.Add(dtCatalog)

        daYears = New MySqlDataAdapter("SELECT * FROM Years", MysqlConn)
        dtYears = New DataTable("Years")
        daYears.Fill(dtYears)
        dsOrders.Tables.Add(dtYears)

        daOrderTypes = New MySqlDataAdapter("SELECT * FROM OrderTypes", MysqlConn)
        dtOrderTypes = New DataTable("OrderTypes")
        daOrderTypes.Fill(dtOrderTypes)
        dsOrders.Tables.Add(dtOrderTypes)

        daOrderColours = New MySqlDataAdapter("SELECT * FROM OrderColours", MysqlConn)
        dtOrderColours = New DataTable("OrderColours")
        daOrderColours.Fill(dtOrderColours)
        dsOrders.Tables.Add(dtOrderColours)

        Me.CboSupplyID_fkey.DisplayMember = "SupplyNumber"
        Me.CboSupplyID_fkey.ValueMember = "SupplyID"
        Me.CboSupplyID_fkey.DataSource = SupplyBindingSource

        Me.CboCatalogID_fk.DisplayMember = "CatalogDescription"
        Me.CboCatalogID_fk.ValueMember = "CatalogID"
        Me.CboCatalogID_fk.DataSource = CatalogBindingSource

        Me.CboYearID_fk.DisplayMember = "Year"
        Me.CboYearID_fk.ValueMember = "YearID"
        Me.CboYearID_fk.DataSource = YearBindingSource


        Me.CboOrderTypeID_fk.DisplayMember = "OrderType"
        Me.CboOrderTypeID_fk.ValueMember = "OrderTypeID"
        Me.CboOrderTypeID_fk.DataSource = OrderTypeBindingSource

        Me.CboColourID_fk.DisplayMember = "Colour"
        Me.CboColourID_fk.ValueMember = "ColourID"
        Me.CboColourID_fk.DataSource = OrderColourBindingSource

        Me.OrderBindingSource.DataSource = ds.Tables("dtSupplies")
        Me.OrderBindingSource.DataSource = ds.Tables("dtCatalog")
        Me.OrderBindingSource.DataSource = ds.Tables("dtYears")
        Me.OrderBindingSource.DataSource = ds.Tables("dtOrderTypes")
        Me.OrderBindingSource.DataSource = ds.Tables("dtOrderColours")

        Me.OrderBindingNavigator.BindingSource = Me.OrderBindingSource

        Me.CboSupplyID_fk.DataBindings.Add("SelectedValue", Me.OrderBindingSource, "SupplyID_fk", True)
        Me.CboCatalogID_fk.DataBindings.Add("SelectedValue", Me.OrderBindingSource, "CatalogID_fk", True)
        Me.CboYearID_fk.DataBindings.Add("SelectedValue", Me.OrderBindingSource, "YearID_fk", True)
        Me.CboOrderTypeID_fk.DataBindings.Add("SelectedValue", Me.OrderBindingSource, "OrderTypeID_fk", True)
        Me.CboColourID_fk.DataBindings.Add("SelectedValue", Me.OrderBindingSource, "ColourID_fk", True)

    Catch myerror As MySqlException
        MessageBox.Show("Cannot connect to database: " & myerror.Message)
    Finally
        MysqlConn.Close()
        MysqlConn.Dispose()
    End Try
0
ответ дан wire_jp 3 March 2019 в 17:34
поделиться
Другие вопросы по тегам:

Похожие вопросы: