MySqlDataAdapter SelectCommand 语句

Question

我有以下功能代码:

Call ConnSettings()
Dim objDs As New DataSet
Dim Query As String
Query = "the query"

Cmd = New MySqlCommand(Query, MysqlConn)
Dim dAdapter As New MySqlDataAdapter
dAdapter.SelectCommand = Cmd

''Dim dAdapter As New MySqlDataAdapter(Query, MysqlConn)

Try
   MysqlConn.Open()
   dAdapter.Fill(objDs)
   MysqlConn.Close()
Catch ex As Exception
   MessageBox.Show(ex.Message)
Finally
   MysqlConn.Dispose()
End Try

我注意到，如果我也使用，代码也同样有效

Dim dAdapter As New MySqlDataAdapter(Query, MysqlConn)

代替:

Cmd = New MySqlCommand(Query, MysqlConn)
Dim dAdapter As New MySqlDataAdapter
dAdapter.SelectCommand = Cmd

显然，我想使用单行而不是三行。但是，我是 VB 的新手，想知道这样做是否有任何问题。

Answer 1

让我们尝试改进您的代码....

第一个 ConnSettings 没有初始化一个全局连接变量而是一个本地连接变量并返回它

Public Function ConnSettings() As MySqlConnection
    Dim conn As MySqlConnection
    conn = new MySqlConnection(yourConnectionStringHere)
    conn.Open()
    return conn
End Function

现在需要 MySqlConnection 的代码可以调用这个 ConnSettings 并将返回值放在 Using 语句中

objDS = new DataSet()
Try
    Using conn = ConnSettings()
    Using dAdapter = New MySqlDataAdapter(theQuery, conn)
       dAdapter.Fill(objDs)
    End Using
    End Using
Catch(ex as Exception
    MessageBox.Show(ex.Message)
End Try

此代码将返回的连接放在 Using 语句中。当代码从 Using 语句中流出时，连接将被关闭并释放(对于 MySqlDataAdapter 也是如此)正如您所看到的，不需要 Finally 子句并且存在 Try/Catch block 只是因为您想要给出一条错误消息给你的用户(虽然这是一种常见的做法，但让你的用户处于尴尬的境地去尝试理解这些技术密集的消息、更好地使用日志文件并建议你的用户将日志发送给你是没有意义的)

在这种情况下，ConnSettings 中的代码也有点无用。您真正需要的只是连接字符串，您可以直接在调用代码中编写 MySqlConnection 的创建。