Database 将数据库字段放入标签

Database 将数据库字段放入标签,database,vb.net,label,Database,Vb.net,Label,我在将数据库字段记录放入标签文本时遇到困难。数据库名为'task.accdb',我想要的表名为'QuestionAndAnswer'。我正在制作一个测验程序,在这个程序中,我将数据库中的问题输入到一个标签中。 问题是标签没有发生任何变化,它保持不变,而不是更改以保存数据库记录的输入 以下是表格的图片: 代码如下: Imports System.Data.OleDb Imports System.Data.Sql Imports System.Data.SqlClient Public Cla

我在将数据库字段记录放入标签文本时遇到困难。数据库名为'task.accdb',我想要的表名为'QuestionAndAnswer'。我正在制作一个测验程序,在这个程序中,我将数据库中的问题输入到一个标签中。 问题是标签没有发生任何变化,它保持不变,而不是更改以保存数据库记录的输入

以下是表格的图片:

代码如下:

Imports System.Data.OleDb
Imports System.Data.Sql
Imports System.Data.SqlClient

Public Class qa2

Dim provider As String
Dim dataFile As String
Dim connString As String
Dim askquestions(1, 2)
Dim noq As String
Dim score As Integer = 0
'  Dim answers(3)

Public myConnection As OleDbConnection = New OleDbConnection
Dim ConnectString As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        " Data Source= C:\Users\Sales\Documents\Visual Studio 2010\Projects\15.4\15.4\bin\Debug\task.accdb"

Private Sub Questions_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'TaskDataSet1.Results_Query' table. You can move, or remove it, as needed.
    Me.OleDbDataAdapter1.Fill(Me.DataSet11.Results_Query)


    Student_Menu.Hide()

    noq = InputBox("How many questions would you like to do? You can choose from 1 to 10.")
    Label2.Text = noq

    Dim ConnectString As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
       " Data Source= C:\Users\Sales\Documents\Visual Studio 2010\Projects\15.4\15.4\bin\Debug\task.accdb"
    Dim dtIDs As New DataTable

    Dim con As New OleDbConnection(connectionString:=ConnectString)
    Dim daIDs As New OleDbDataAdapter _
        ("Select [ID] From QuestionAndAnswer", con)

    If Student_Menu.btnTheory.Enabled = True Then


        daIDs.Fill(DataSet11)

        con.Open()

        OleDbDataAdapter1.Fill(DataSet11)
        Label1.DataBindings.Add("Text", DataSet11, _
                                     "QuestionAndAnswer.Question")
    End If


End Sub

它可能为空,因为未读取任何内容-在打开连接之前无法填充数据集。这应该会引发一个异常,但是由于您已经将代码加载到表单中,您可能看不到它。将代码移动到按钮单击以验证错误我将代码移动到按钮,但没有更改。然后我创建了一个函数,仍然没有更改,然后在打开连接后放置填充代码,标签仍然没有更改。我被卡住了!我已经解决了这个问题