2015-12-16 4 views
0

Я ищу способ установить следующее значение строки в метку без использования связующего навигатора. например: когда я нажимаю кнопку next, следующее имя пользователя в столбце имени пользователя должно появиться на ярлыке и продолжать перематывать имена.База данных доступа VB.Net Ms. Как я могу отобразить следующее значение строки в lable по одному?

  • Фактически планируя сделать викторину, поэтому я хочу «опрокинуть» вопрос.

То, что я пытался

Я вразумлял данные (например: имена пользователей) на этикетке, используя его свойство (Data Bindings). Теперь, как я могу отобразить их на этикетке, и при каждом нажатии кнопки появится следующий?

+0

I имеют ограниченные данные (например: имена пользователей) к метке, используя его свойство (Data Bindings). Теперь, как я могу отобразить их на этикетке, и каждая следующая кнопка появляется – Mohamed

+0

, пожалуйста, прочитайте [mcve] (http://stackoverflow.com/help/mcve) и отредактируйте свой вопрос, чтобы улучшить свой вопрос. – davejal

ответ

0

ОК, это то, что сделал для достижения этой цели на альтернативный путь: , но это не работает

Я получаю эту ошибку >> Ошибка синтаксиса в строке в выражении запроса «tagno =» 2' . @ line dr = Command.ExecuteReader

Цель состоит в том, чтобы по нажатию кнопки число целых чисел увеличивалось, а затем запрос использовал значение счета для поиска вопроса из базы данных , например, если значение приращения равно 2, то читатель должен вернуться вопрос из строки, где есть tagno two.

база данных таблицы (квест) имеет следующие столбцы, Вопрос Correct_Answer, tagno

Dim count As Integer 
Private Sub btncontinue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncontinue.Click 
    Dim conn As New OleDb.OleDbConnection 
    Dim olequery As New OleDb.OleDbCommand 
    Dim connString As String 
    connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\" & Application.StartupPath & "\game.accdb" 
    conn.ConnectionString = connString 
    olequery.Connection = conn 
    count += 1 
    Dim dr As OleDbDataReader 

«квест имя таблицы. Dim запрос As String = "выберите вопрос из квеста, где tagno = '" & граф & ""

cnnOLEDB.Open() 
    Dim command As New OleDbCommand(query, cnnOLEDB) 
    dr = Command.ExecuteReader 
    dr.Read() 
    lblquestion.Text = dr(0) 
    cnnOLEDB.Close() 
End Sub