---------------------------
自己看吧
------------------------------------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
你的好多啊!厉害,是不是今天...............
1、可以在Oracle网站上下载OraWin_92010安装,可以访问Oracle数据库;
2、给oci.dll加aspnet用户和读写权限;
通过添加引用,来添加System.Data.OracleClient.Dll就可以了。
whatme168(江湖浪子) : 你可以去下载一个NET访问oracle 的组件再来回答这个问题
System.Data.OracleClient 是vs.net2003
连接条件我的经验是
1.MDAC 2.7
2.Oracle 8i Release 3 (8.1.7) Client 开发的机器上
叫组件注册完成就没这个错误了这个怎么做?
babytong: 暂时不考虑安装net1.1
只有babytong和nyleex2000回答的方法类似。
赫赫500分只能给下一个问题了