vb.net oracle 更新数据库,vb.net連接Oracle数据库

Imports Oracle.DataAccess.Client '導入命名空間

Public Class Form1

Dim Sql As String

Public SqlTP As OracleConnection = New OracleConnection("Password= ""密碼"";Persist Security Info=True;User ID=帳號;Data Source=資料庫")

Public CmdTP As New OracleCommand

Public drTP As OracleDataReader

Public Sub OpenTP()'打开Oracle連線

If SqlTP.State = ConnectionState.Closed Then

SqlTP.Open()

End If

CmdTP.CommandText = Sql

CmdTP.CommandType = CommandType.Text

CmdTP.Connection = SqlTP

drTP = CmdTP.ExecuteReader()

End Sub

Public Sub CloseTP()'关闭Oracle連線

drTP.Close()

If SqlTP.State = ConnectionState.Open Then

SqlTP.Dispose()

End If

End Sub

Private Sub A1()

Dim i, n As Integer

Dim TP0 As String

Sql = ("SELECT COUNT(*) FROM SH01.OGA_FILE")

OpenTP()

drTP.Read()

n = drTP.Item(0)'筆數

CloseTP()

Sql = ("SELECT SH01.OGA_FILE.OGA02  FROM SH01.OGA_FILE")

OpenTP()

For i = 1 To n

drTP.Read()'下一筆

TP0 = drTP.Item(0)'內容

Next

CloseTP()

End Sub

End Class

安装oracle客戶端

这里点“下一步”

这里点“下一步”

选择“管理员”，再点“下一步”

记住这里的路径，下面要用到；再点“下一步”

这里点“下一步”继续

这里点“安装”继续

安装进行中……

选择“执行典型配置”再点“下一步”

这里点“下一步”继续

点击“完成”完成安装，出来后退出安装结束。

配置

listener.ora

sqlnet.ora

tnsnames.ora

三個文件

從安裝位置如D:\oracle\product\10.2.0\client_1\NETWORK\ADMIN打開

listener.ora

內容如下

# listener.ora Network Configuration File: D:\oracle\network\admin\listener.ora

# Generated by Oracle configuration tools.

SID_LIST_LISTENER =

(SID_LIST =

(SID_DESC =

(SID_NAME = PLSExtProc)

(ORACLE_HOME = /u2/oracle/10g)

(PROGRAM = extproc)

)

)

LISTENER =

(DESCRIPTION_LIST =

(DESCRIPTION =

(ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.5)(PORT = 1521))

(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC0))

)

)

sqlnet.ora內容如下

# This file is actually generated by netca. But if customers choose to

# install "Software Only", this file wont exist and without the native

# authentication, they will not be able to connect to the database on NT.

NAMES.DIRECTORY_PATH= (TNSNAMES)

tnsnames.ora內容如下

# tnsnames.ora Network Configuration File: D:\oracle\network\admin\tnsnames.ora

# Generated by Oracle configuration tools.

TOPTEST =

(DESCRIPTION =

(ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.5)(PORT = 1521))

(CONNECT_DATA =

(SERVER = DEDICATED)

(SERVICE_NAME = toptest)

)

)

TOPSTD =

(DESCRIPTION =

(ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.5)(PORT = 1521))

(CONNECT_DATA =

(SERVER = DEDICATED)

(SERVICE_NAME = topstd)

)

)

TOPPROD =

(DESCRIPTION =

(ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.9)(PORT = 1521))

(CONNECT_DATA =

(SERVER = DEDICATED)

(SERVICE_NAME = topprod)

)

)

EXTPROC_CONNECTION_DATA =

(DESCRIPTION =

(ADDRESS_LIST =

(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC0))

)

(CONNECT_DATA =

(SID = PLSExtProc)

(PRESENTATION = RO)

)

)

运行CMD――>执行Tnsping 資料庫名稱  检查是否安装成功。