sub Page_Load(obj as object, e as eventargs)
dim MyConnString as string
dim strSel as string
Dim MyConn As OleDbConnection
dim MyCmd As OleDbCommand
dim MyReader As OleDbDataReader
'连接语句
MyConnString = "Provider=MSDAORA;data source = engei; User ID=dev; Password=dev;"
strSel = "select * from staff_info"
MyConn = new OleDbConnection(MyConnString)
MyCmd = New OleDbCommand(strSel, MyConn)
MyConn.Open()
MyReader = MyCmd.ExecuteReader()
if not MyReader is nothing then
DataGrid1.DataSource = MyReader
DataGrid1.DataBind()
MyReader.Close
end if
end sub
Dim SqlStr As String = "Select * From tablename"
Dim ConnStr As String = "provider=MSDAORA.1;Password=tiger;UserID=scott;Data Source=bnt"
Dim Da As New OleDbDataAdapter(SqlStr, ConnStr)
Dim Ds As New DataSet()
Da.Fill(Ds,"mytablename")
Oracle OLE DB 的 VB.NET 程序:
Dim oOleDbConnection As OleDb.OleDbConnection
Dim sConnString As String = _
"Provider=OraOLEDB.Oracle;" & _
"Data Source=MyOracleDB;" & _
"User ID=myUsername;" & _
"Password=myPassword"
oOleDbConnection = New OleDb.OleDbConnection(sConnString)
oOleDbConnection.Open()