我已经成功连接数据库,个人比较习惯使用DataApapter.程序在da = New OracleDataAdapter("select * from ADMINISTRATOR.DIRICSTATE", conn)出错,错误提示是ORA-00942,表或视图不存在。
但在WorkSheet中我使用
Connect system/manager@tempdb
select * from ADMINISTRATOR.DIRICSTATE
是正确的。这个OracleDataAdapter该怎么用?Imports System.Data
Imports Oracle.DataAccess.ClientPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oradb As String = "Data Source=(DESCRIPTION=" _
+ "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=ecit-3w56dd81tu)(PORT=1521)))" _
+ "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=tempdb.ecit.edu.cn)));" _
+ "User Id=scott;Password=tiger;"
Dim conn As New OracleConnection
conn.ConnectionString = oradb
Try
conn.Open()
Catch ex As Exception
MessageBox.Show("Failed to connect to data source" + vbCrLf + ex.ToString)
End Try
Dim da As OracleDataAdapter
Dim ds As New DataSet
Try
da = New OracleDataAdapter("select * from ADMINISTRATOR.DIRICSTATE", conn)
da.Fill(ds, "DIRICSTATE")
Dim i As Integer = ds.Tables("DIRICSTATE").Rows.Count
i = i + 1
DataGrid1.DataSource = ds
DataGrid1.DataMember = "DIRICSTATE"
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
但在WorkSheet中我使用
Connect system/manager@tempdb
select * from ADMINISTRATOR.DIRICSTATE
是正确的。这个OracleDataAdapter该怎么用?Imports System.Data
Imports Oracle.DataAccess.ClientPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oradb As String = "Data Source=(DESCRIPTION=" _
+ "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=ecit-3w56dd81tu)(PORT=1521)))" _
+ "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=tempdb.ecit.edu.cn)));" _
+ "User Id=scott;Password=tiger;"
Dim conn As New OracleConnection
conn.ConnectionString = oradb
Try
conn.Open()
Catch ex As Exception
MessageBox.Show("Failed to connect to data source" + vbCrLf + ex.ToString)
End Try
Dim da As OracleDataAdapter
Dim ds As New DataSet
Try
da = New OracleDataAdapter("select * from ADMINISTRATOR.DIRICSTATE", conn)
da.Fill(ds, "DIRICSTATE")
Dim i As Integer = ds.Tables("DIRICSTATE").Rows.Count
i = i + 1
DataGrid1.DataSource = ds
DataGrid1.DataMember = "DIRICSTATE"
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货