Public Function CoOraSelect(ByVal strSql As String, ByRef oraReader As OracleDataReader) As Integer Dim oraComm As OracleCommand Dim ret As Integer Try oraComm = oraConn.CreateCommand() oraComm.CommandText = strSql If Not oraTrans Is Nothing Then oraComm.Transaction = oraTrans End If oraReader = Nothing oraReader = oraComm.ExecuteReader() If oraReader.Read() Then ret = 0 Else ret = -9 End If Catch ex As Exception m_OraException = ex ret = -1 End Try Return ret End Function Public Function CoOraSelect(ByVal strSql As String, ByRef oraDataTable As DataTable) As Integer Dim oraDataAdapter As OracleDataAdapter Dim oraComm As OracleCommand Dim ret As Integer Try ret = 0 oraComm = oraConn.CreateCommand() oraComm.CommandText = strSql If Not oraTrans Is Nothing Then oraComm.Transaction = oraTrans End If oraDataAdapter = New OracleDataAdapter(oraComm) oraDataTable = New DataTable oraDataAdapter.Fill(oraDataTable) If oraDataTable.Rows.Count <= 0 Then ret = -9 End If oraDataAdapter.Dispose() Catch ex As Exception m_OraException = ex ret = -1 End Try Return ret End Function
OleDbDataAdapter adapter = new OleDbDataAdapter();
adapter.SelectCommand = new OleDbCommand(query, conn);
adapter.Fill(dataset);
return dataset;
楼主看一下ado.net的基本知识就可以了
OleDbConnection connection = new OleDbConnection (@"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\程序\acdata\acdata.mdb;Jet OLEDB:Database Password=cwdd;"); OleDbDataAdapter adapter = new OleDbDataAdapter("SELECT * From User",connection);
DataSet dataset = new dataset();
adapter.Fill(dataset,"user");
command.CommandText = "SELECT * From [User]";
Dim oraComm As OracleCommand
Dim ret As Integer
Try
oraComm = oraConn.CreateCommand()
oraComm.CommandText = strSql
If Not oraTrans Is Nothing Then
oraComm.Transaction = oraTrans
End If
oraReader = Nothing
oraReader = oraComm.ExecuteReader()
If oraReader.Read() Then
ret = 0
Else
ret = -9
End If
Catch ex As Exception
m_OraException = ex
ret = -1
End Try
Return ret
End Function Public Function CoOraSelect(ByVal strSql As String, ByRef oraDataTable As DataTable) As Integer
Dim oraDataAdapter As OracleDataAdapter
Dim oraComm As OracleCommand
Dim ret As Integer
Try
ret = 0
oraComm = oraConn.CreateCommand()
oraComm.CommandText = strSql
If Not oraTrans Is Nothing Then
oraComm.Transaction = oraTrans
End If
oraDataAdapter = New OracleDataAdapter(oraComm)
oraDataTable = New DataTable
oraDataAdapter.Fill(oraDataTable)
If oraDataTable.Rows.Count <= 0 Then
ret = -9
End If
oraDataAdapter.Dispose()
Catch ex As Exception
m_OraException = ex
ret = -1
End Try
Return ret
End Function
你的数据库名user不能用,这是系统中定义的关键字,可以如下
command.CommandText = "SELECT * From [User]";
http://xt0055.27h.com/