Question

首先抱歉，如果某些代码不对。我还是在vb.net上使用sql的新手

我有以下代码：

Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient

Public Class Form1

    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        Dim objConn As MySqlConnection
        Dim objDataset As New DataSet
        Dim objDataAdapter As MySqlDataAdapter
        Dim myCommand As MySqlCommand

        Dim sqlConn As String

        objConn = New MySqlConnection("server=localhost;userid=root;database=attendance_system")
        myCommand = objConn.CreateCommand

        objConn.Open()
        Dim objReader As MySqlDataReader = myCommand.ExecuteReader

        sqlConn = "SELECT student_name FROM profile"
        objDataAdapter = New MySqlDataAdapter(sqlConn, objConn)
        objDataAdapter.Fill(objDataset, "profile")

        MsgBox("The Connection is Now 'OPEN'")

        objReader.Read()

        TextBox1.Text = objReader("student_name")

        objReader.Close()
        objConn.Close()
    End Sub
End Class

我在phpmyadmin中通过vb.net使用MySQL连接器，并设置了一个包含记录的数据库。连接字符串正常工作，但我的问题是，当我尝试单击按钮加载文本框中的数据时，我不断得到：

CommandText属性尚未正确初始化。“

错误在这一行：

"Dim objReader As MySqlDataReader = myCommand.ExecuteReader"

我已经尝试了很多我在本网站和其他网站上找到的修复程序。

Answer 1

这是问题所在：

Dim objReader As MySqlDataReader = myCommand.ExecuteReader

sqlConn = "SELECT student_name FROM profile"

在尝试执行查询后，您已声明SQL （即使这样，您也不会将其设置为命令的SQL）。您希望如何工作？此外，sqlConn是声明 SQL 的变量的一个非常奇怪的名称 - 我希望它是连接。

看起来你正试图混合使用非常不同的数据获取方式：

直接从读者那里阅读

使用数据适配器填充DataSet

你不应该像那样混合它们。找出你实际想要做的事情，拿出与其他风格相关的所有代码，然后确保你按照合理的顺序做所有事情。

Answer 2

从MySqlCommand Class和

给出的示例

Public Sub ReadMyData(myConnString As String)
  Dim mySelectQuery As String = "SELECT * FROM Test.Dept"
  Dim myConnection As New MySqlConnection(myConnString)
  Dim myCommand As New MySqlCommand(mySelectQuery, myConnection)
  myConnection.Open()
  Dim myReader As MySqlDataReader = myCommand.ExecuteReader()
  Try
    While myReader.Read()
      Console.WriteLine(myReader.GetInt32(0).ToString() + ", " _
        + myReader.GetString(1))
    End While
  Finally
      ' always call Close when done reading.
      myReader.Close()
      ' always call Close when done with connection.
      myConnection.Close()
  End Try
End Sub

您的命令对象缺少select语句。

ExecuteReader CommandText属性尚未正确初始化

2 个答案: