下面是我写的一个公用类.... 我的全部数据操作基本用它,自己看吧(别忘了给点分,我没分了......)
-----------------------------------
Imports System.Data
Imports System.Data.OleDb
Public Class class_data
Private cnstr As String = "Provider=MSDAORA;Password=kjjoa;User ID=kjjoa;Data Source=kjjoa_xf"
'---------------------------此过程建立连接,并返回数据集----------------------------------------
Public Function foundcn(ByVal sqltext As String, ByVal tablename As String) As DataSet
Dim cn As New OleDbConnection(cnstr)
Dim dap As New OleDbDataAdapter(sqltext, cn)
Dim rs As New DataSet()
Try
cn.Open()
dap.Fill(rs, tablename)
Return rs
Catch ee As Exception
Exit Function
Finally
cn.Close()
End Try
End Function
Public Function operation(ByVal sqltext As String) As String
Dim cn As New OleDbConnection(cnstr)
Dim cm As New OleDbCommand()
Dim rs As New DataSet()
cm.Connection = cn
cm.CommandText = sqltext
Try
cn.Open()
cm.ExecuteNonQuery()
Catch ee As Exception
Return ee.Message & "-------" & ee.ToString
Exit Function
Finally
cn.Close()
End Try
Return "ok"
End Function
End Class
-----------------------------------
Imports System.Data
Imports System.Data.OleDb
Public Class class_data
Private cnstr As String = "Provider=MSDAORA;Password=kjjoa;User ID=kjjoa;Data Source=kjjoa_xf"
'---------------------------此过程建立连接,并返回数据集----------------------------------------
Public Function foundcn(ByVal sqltext As String, ByVal tablename As String) As DataSet
Dim cn As New OleDbConnection(cnstr)
Dim dap As New OleDbDataAdapter(sqltext, cn)
Dim rs As New DataSet()
Try
cn.Open()
dap.Fill(rs, tablename)
Return rs
Catch ee As Exception
Exit Function
Finally
cn.Close()
End Try
End Function
Public Function operation(ByVal sqltext As String) As String
Dim cn As New OleDbConnection(cnstr)
Dim cm As New OleDbCommand()
Dim rs As New DataSet()
cm.Connection = cn
cm.CommandText = sqltext
Try
cn.Open()
cm.ExecuteNonQuery()
Catch ee As Exception
Return ee.Message & "-------" & ee.ToString
Exit Function
Finally
cn.Close()
End Try
Return "ok"
End Function
End Class
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货