---- 將文本數據遷移到ORACLE數據基表中可采用多種方法，如采用ORACLE公司提供的SQL*LOADER實用工具，該工具適用于將靜態文本數據加載到ORACLE基表，也可采用程序控制手段將動態變化的文本數據遷移到ORACLE基表中。本文講述了如何通過VB5.0實現將動態變化的文本數據遷移到ORACLE基表中。
1﹑實現環境：
數據庫服務器：ORACLE 7.3數據庫
Windows 95/98
VB5.0中文專業版
通過串口接收到的內容動態變化的文本數據文件
2﹑實現要求：
---- 將客戶機通過串口接收到的動態變化的 bl.dat 文本文件內容遷移到ORACLE數據庫rg01的 hyyb_bl 基表中。
3﹑實現步驟：
---- ⑴﹑首先保證客戶端與ORACLE數據庫的正常連接。
---- ⑵﹑在客戶端安裝ORACLE 客戶端網絡組件如下：
Oracle Client Configuration Manager
Oracle Client Software Agent 3.2.2.1.0
---- ⑶﹑在客戶端設置ODBC數據源:
在控制面板中雙點 <32位ODBC>項，彈出窗口，選中<用戶DSN>選項卡，然后點 擊<添加>按鈕。
在彈出的<創建新數據源>窗口中，選擇<用于Oracle 的微軟ODBC驅動器>,按<完成>按鈕。（注：該 驅動器是在安裝VB5或OFFICE97等微軟產品時裝好的）
在彈出的<用于Oracle設置的微軟ODBC驅動器>窗口中，設置數據源名稱為數據庫名，用戶名稱及連 接字段。在本文中設置如下：數據源名稱：rg01。描述：rg01。用戶名稱：developer。連接字段： rg01
按<確認>按鈕
---- ⑷﹑編制代碼：(代碼片斷)
. 在 Form_load()事件中設置連接字符串：
strCn = "ODBC;DSN=rg01;UID=developer;PWD=scmis"
. 為ODBC數據源創建鏈接表：
blfilename = "c:\qx\bl.dat"
blrqstring = ""
Set dbs = OpenDatabase("C:\qx\qx.mdb", False, False)
On Error Resume Next
dbs.TableDefs.Delete "Tabbl"
dbs.TableDefs.Refresh
Set tdf = dbs.CreateTableDef("Tabbl")
tdf.Connect = strCn
tdf.SourceTableName = "developer.hyyb_bl"
dbs.TableDefs.Append tdf
dbs.TableDefs.Refresh
Set rst_bl = dbs.OpenRecordset("Tabbl",
dbOpenDynaset)
Set qdf = dbs.CreateQueryDef("")
qdf.Connect = strCn
On Error GoTo 0
. 設置定時事件：
Private Sub Timer1_Timer()
Dim blstring As String
blstring = ""
On Error GoTo errhandel
If blrqstring <> FileDateTime(blfilename) Then
blrqstring = FileDateTime(blfilename)
If blfilename <> "" Then
Refreshbl blfilename
End If
End If
errhandel:
End Sub
. 文件操作
Sub Refreshbl(para_filename)
Dim MyString
qdf.SQL = "delete from developer.hyyb_bl"
qdf.ReturnsRecords = False
qdf.Execute
Open para_filename For Input As #1
Do While Not EOF(1)
Line Input #1, MyString
dbs.Execute "insert into
Tabbl values('" & MyString & "')"
Loop
Close #1
End Sub
文章來源于領測軟件測試網 http://www.kjueaiud.com/
