Member 13780554 Ответов: 2

Как мне поместить этот результат запроса mysql в одну метку VB.NET-что?


Привет, я перепробовал много вещей, чтобы сделать это, но ничего не работает

У меня есть этот код прямо сейчас, как я могу поместить его в этикетку?

Dim LeitorSQL2 As MySqlDataReader
    Dim conn As New MySqlConnection
        conn.Open()
            Dim Query2 As String
            Query2 = "SELECT MAX(OcorrenciaID) + 1 as 'NovoID' FROM 8Gest.ocorrencias"
            Dim AutoNumero = New MySqlCommand(Query2)
            LeitorSQL2 = AutoNumero.ExecuteReader
            While LeitorSQL2.Read
                Dim autonmr = LeitorSQL.GetString("NovoID")
                lblNumeroAuto.Text = autonmr
            End While
            conn.Close()


Что я уже пробовал:

Я уже пробовал

lblNumeroAuto.Text = (autonmr)
lblNumeroAuto.Text = 3 '(This didnt work too)
lblNumeroAuto.Text += autonmr

2 Ответов

Рейтинг:
7

Member 13780554

Я нашел ошибку.. Это просто самая глупая вещь на свете.. Я забыл установить связь внутри

Dim AutoNumero = New MySqlCommand(Query2)

Код работает, если я поставлю
Dim AutoNumero = New MySqlCommand(Query2, conn)


Рейтинг:
1

OriginalGriff

Попробуй:

lblNumeroAuto.Text += autonmr


Member 13780554

Не работают :(

OriginalGriff

"Не работает" - это, наверное, самый бесполезный отчет о проблеме, который мы получаем, и мы получаем его много. Она ничего не говорит нам о том, что происходит или когда это происходит.
Итак, расскажите нам, что он делает, чего вы не ожидали, или не делает, что вы сделали.
Расскажите нам, что вы сделали, чтобы это произошло.
Сообщайте нам о любых сообщениях об ошибках.