六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

用VB完成動態文本數據到ORACLE數據庫基表的遷移

[摘要]日照港務局通信信息中心 徐西波 ---- 將文本數據遷移到ORACLE數據基表中可采用多種方法,如采用ORACLE公司提供的SQL*LOADER實用工具,該工具適用于將靜態文本數據加載到ORACLE基表,也可采用程序控制手段將動態變化的文本數據遷移到ORACLE基表中。本文講述了如何通過VB5.0...
日照港務局通信信息中心 徐西波

---- 將文本數據遷移到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


主站蜘蛛池模板: 特黄特黄aaaa级毛片免费看 | 一二三四影视手机在线观看视频 | 午夜视频在线免费观看 | 午夜久| 色婷五月| 日韩视频二区 | 五月亭亭激情五月 | 日韩亚射| 日韩黄色精品 | 在线观看 一区二区 麻豆 | 日本手机在线视频 | 特黄特a级特别特级特毛片 特黄视频免费看 | 一国产一级淫片a免费播放口 | 日韩欧美中文在线 | 欧美一级视频高清片 | 天堂午夜 | 永久视频网站 | 日韩成人在线视频 | 伊人网中文字幕 | 日韩欧美亚洲一区 | 日韩怡春院 | 日韩欧美精品在线视频 | 五月天久久婷婷 | 日本成a人片在线观看网址 日本草草影院 | 亚洲精品高清视频 | 午夜影视在线观看免费完整高清大全 | 污视频在线看 | 欧美一卡二卡三卡四卡 | 午夜影院免费版 | 日韩精品一区二区三区乱码 | 亚洲上最大成网人站4438 | 日韩欧美在线免费观看 | 日韩国产免费一区二区三区 | 日本aⅴ在线观看 | 中文日产国产精品久久 | 午夜在线视频 | 欧美午夜影院 | 四虎国产精品永久在线 | 色呦呦免费| 色欧美片视频在线观看 | 亚洲人与黑人xxxx |