16,554
社区成员
发帖
与我相关
我的任务
分享
Dim m_SqlConn As MySqlConnection
m_SqlConn = Nothing
Try
Dim str As String
str = "1:" & get_now() & Now.Millisecond
m_SqlConn = connect_sql()
str = str & vbCrLf & "2:" & get_now() & Now.Millisecond
Dim strQuery As String = "select name from xxxx "
Dim daAdapter As MySqlDataAdapter = New MySqlDataAdapter(strQuery, m_SqlConn)
str = str & vbCrLf & "3:" & get_now() & Now.Millisecond
Dim dsTable As DataSet = New DataSet
str = str & vbCrLf & "4:" & get_now() & Now.Millisecond
daAdapter.Fill(dsTable)
str = str & vbCrLf & "5:" & get_now() & Now.Millisecond
MsgBox(str)
Catch
MsgBox("连接数据库出现异常,请检查你的网络,点击退出!")
Finally
m_SqlConn.Close()
End Try