Question

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

以下是表格的图片： form

以下是代码：

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

将数据库字段放入标签中

0 个答案: