VB.NET的一個數據庫調用的模板﹗Imports System.Data.OracleClientModule Module_ADO
Private _cnn As New OracleConnection("user id=帳戶;data source=數據源;password=密碼")
Private _cmd As New OracleCommand
Private _adp As New OracleDataAdapter
Private _main As New Form1 Public _dt As New DataTable Public Sub main()
_main.ShowDialog()
End Sub '執行數據庫查詢語句
Public Function ExeQuerySQL(ByVal strSQL As String) As DataTable
Dim dtQuery As New DataTable
Try
_adp = New OracleDataAdapter(strSQL, _cnn)
_adp.Fill(dtQuery)
Return dtQuery
Catch ex As Exception
Return Nothing
End Try End Function '執行數據庫控制語句
Public Function ExeNonQuerySQL(ByVal strSQL As String) As Boolean
_cmd = _cnn.CreateCommand
_cmd.CommandText = strSQL Try
If _cnn.State.Equals(System.Data.ConnectionState.Closed) Then _cnn.Open()
_cmd.ExecuteNonQuery()
Return True
Catch ex As Exception
Return False
Finally
_cmd.Dispose()
_cnn.Close()
End Try
End Function
End Module
Private _cnn As New OracleConnection("user id=帳戶;data source=數據源;password=密碼")
Private _cmd As New OracleCommand
Private _adp As New OracleDataAdapter
Private _main As New Form1 Public _dt As New DataTable Public Sub main()
_main.ShowDialog()
End Sub '執行數據庫查詢語句
Public Function ExeQuerySQL(ByVal strSQL As String) As DataTable
Dim dtQuery As New DataTable
Try
_adp = New OracleDataAdapter(strSQL, _cnn)
_adp.Fill(dtQuery)
Return dtQuery
Catch ex As Exception
Return Nothing
End Try End Function '執行數據庫控制語句
Public Function ExeNonQuerySQL(ByVal strSQL As String) As Boolean
_cmd = _cnn.CreateCommand
_cmd.CommandText = strSQL Try
If _cnn.State.Equals(System.Data.ConnectionState.Closed) Then _cnn.Open()
_cmd.ExecuteNonQuery()
Return True
Catch ex As Exception
Return False
Finally
_cmd.Dispose()
_cnn.Close()
End Try
End Function
End Module
解决方案 »
- 为何在其他进程的UI切换时会影响我程序中的线程?
- FORM1窗口 中弹出FORM2,Form2中显示一个时钟,用多线程做
- 上帝都无法解决的速度问题!
- 求一个判断时间格式的正则表达式的写法。
- 向各位前辈求一个网站留言板的程序,希望能给出详细注释的
- 关于vs2005中 tabpage 内切换显示问题
- .net 有没有什么类可以分析html ,然后得到现在已加载页面内的某种元素,例如图片?
- C#操作ACCESS数据库的几个疑问
- “十分”求教:web Client端如何实现页面的跳转?
- 迷迷糊糊的装上了asp.net,有时间该学学了Zzzzzzzzzzzz~~~~~
- 怎样计算一个月的天数
- 定义了一个触发器,再表中插入一行后返回新的identity值,请问如何在代码中取得该identity?
我的文章或许对你有帮助:
http://dev.csdn.net/develop/article/42/42470.shtm