如何将这个mysql查询结果放入一个标签VB.NET中？ [英] How do I put this mysql query result into one label VB.NET?

问题描述

我尝试了很多事情，但没有任何工作



我现在有这个代码，我怎么能把它放到标签上？< br $> b $ b

  Dim  LeitorSQL2  As  MySqlDataReader 
  Dim  conn  As  新 MySqlConnection 
 conn.Open（）
  Dim  Query2  As  字符串 
 Query2 =   SELECT MAX（OcorrenciaID ）+ 1作为'NovoID'FROM 8Gest.ocorrencias 
  Dim  AutoNumero = 新 MySqlCommand（Query2）
 LeitorSQL2 = AutoNumero.ExecuteReader 
  while  LeitorSQL2.Read 
  Dim  autonmr = LeitorSQL.GetString（  NovoID）
 lblNumeroAuto.Text = autonmr 
 结束 而 
 conn.Close（）

我的尝试：



我已经尝试了

 lblNumeroAuto.Text =（autonmr）
 lblNumeroAuto.Text =  3  ' （这也没有用） 
 lblNumeroAuto.Text + = autonmr 

解决方案

尝试：

 lblNumeroAuto.Text + = autonmr 

我发现了错误..这只是愚蠢的事情..我忘记了连接

  Dim  AutoNu mero = 新 MySqlCommand（Query2）

代码工作如果我把

  Dim  AutoNumero = 新 MySqlCommand（Query2，conn）

Hi, I tried a lot of things to do this but nothing its working

Ihave this code right now, how can I put that into the label?

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()

What I have tried:

I already tried

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

解决方案

Try:

lblNumeroAuto.Text += autonmr

I found the error.. Is just the stupid thing ever.. I forgot to make the connection in

Dim AutoNumero = New MySqlCommand(Query2)

The code work if I put

Dim AutoNumero = New MySqlCommand(Query2, conn)

这篇关于如何将这个mysql查询结果放入一个标签VB.NET中？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！