求基础知识-VB.NET 与 OLEDB 连接
Public Function CreateDataTable(ByVal strSQL As String, Optional ByVal table As String = "x") As DataTable
Open()
Dim da As New OleDbDataAdapter(strSQL, Conn)
Dim ds As New DataSet
Try
da.Fill(ds, "x")
Return ds.Tables("x")
Catch ex As Exception
Return Nothing
Finally
Close()
End Try
End Function
那个 读取数据库 捕获错误是这样吗?
那如果我想得到错误提示 需要怎么改?
...全文
请发表友善的回复…
发表回复
jeremyruan 2012-09-18
- 打赏
- 举报
在Return Nothing上面插入 msgbox (ex.message)用于捕捉错误