日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET連接遠程數(shù)據(jù)庫技巧分享

VB.NET開發(fā)語言功能比較強大，其中特有的各種性質(zhì)能幫助大家輕松實現(xiàn)功能，提高編程效率。在這里我們就為大家介紹一下VB.NET連接遠程數(shù)據(jù)庫的相關(guān)操作，希望能給大家?guī)硪恍椭?t#

創(chuàng)新互聯(lián)建站是一家以網(wǎng)絡技術(shù)公司，為中小企業(yè)提供網(wǎng)站維護、成都網(wǎng)站建設、網(wǎng)站設計、網(wǎng)站備案、服務器租用、域名申請、軟件開發(fā)、小程序開發(fā)等企業(yè)互聯(lián)網(wǎng)相關(guān)業(yè)務，是一家有著豐富的互聯(lián)網(wǎng)運營推廣經(jīng)驗的科技公司，有著多年的網(wǎng)站建站經(jīng)驗，致力于幫助中小企業(yè)在互聯(lián)網(wǎng)讓打出自已的品牌和口碑，讓企業(yè)在互聯(lián)網(wǎng)上打開一個面向全國乃至全球的業(yè)務窗口：建站歡迎來電：18982081108

在VB中，用數(shù)據(jù)庫引擎和數(shù)據(jù)訪問對象DAO可以創(chuàng)建功能強大的客戶/服務器應用程序。對遠程數(shù)據(jù)庫的訪問是開發(fā)這類應用程序的關(guān)鍵，本文將介紹在VB中用DAO通過數(shù)據(jù)庫引擎訪問遠程數(shù)據(jù)庫的方法。

用DAO訪問遠程數(shù)據(jù)庫可以通過三步來實現(xiàn)，即數(shù)據(jù)連接、數(shù)據(jù)處理和斷開連接。下面主要介紹數(shù)據(jù)連接和數(shù)據(jù)處理的具體操作。

DAO通過鏈接遠程表的方式來進行數(shù)據(jù)連接。這樣，數(shù)據(jù)雖然駐留在遠程數(shù)據(jù)源上，但在本地的數(shù)據(jù)庫中可以存儲與遠程數(shù)據(jù)的永久性連接，同時緩存鏈接的表結(jié)構(gòu)信息，從而在下一次訪問該表時， 不用再次從服務器中檢索這些結(jié)構(gòu)信息，加快了連接速度。一旦鏈接了一個表，該鏈接便會保留在各會話期間，直到連接斷開。鏈接遠程表的具體操作是：

用 OpenDatabase 方法打開將要包含該鏈接的本地數(shù)據(jù)庫，用 CreateTableDef 方法在該數(shù)據(jù)庫中創(chuàng)建一個新的TableDef對象，將 TableDef 對象的 Connect 屬性設置為一個合法的連接字符串，標識要訪問的遠程數(shù)據(jù)庫類型、數(shù)據(jù)文件的路徑以及用戶名和遠程數(shù)據(jù)源密碼等。將 TableDef 對象的 SourceTableName 屬性設置為遠程數(shù)據(jù)庫中要訪問的表的名稱。 添加 TableDef 對象到 TableDefs 集合中。

實現(xiàn)VB.NET連接遠程數(shù)據(jù)庫的代碼如下：

 
 
 
    
  
  
  
  1. Public Sub LinkTable(strDB As 
    String, strRoDB As String, _  
    2. 
  
  
  
  2. strCn As String, strTdf As 
    String, linkTdfName As String)  
    3. 
  
  
  
  3. Dim linkTdf As New TableDef  
    4. 
  
  
  
  4. Set dbs = OpenDatabase(strDB)  
    5. 
  
  
  
  5. linkTdf.Name = linkTdfName　100  
    6. 
  
  
  
  6. tempTable = UCase(linkTdf.Name)  
    7. 
  
  
  
  7. For i = 0 To dbs.TableDefs.Count - 1  
    8. 
  
  
  
  8. If UCase(dbs.TableDefs(i).Name) 
    = tempTable Then  
    9. 
  
  
  
  9. If MsgBox(linkTdfName + 
    " 已存在，是否刪除 ？", _  
    10. 
  
  
  
  10. VBQuestion + VBYesNo) = VBYes Then  
    11. 
  
  
  
  11. dbs.TableDefs.Delete linkTdf.Name  
    12. 
  
  
  
  12. Exit For  
    13. 
  
  
  
  13. Else: MsgBox "重新輸入新表名"  
    14. 
  
  
  
  14. linkTdfName = InputBox(" 新表名")  
    15. 
  
  
  
  15. GoTo 100  
    16. 
  
  
  
  16. End If  
    17. 
  
  
  
  17. End If  
    18. 
  
  
  
  18. Next i  
    19. 
  
  
  
  19. Set linkTdf = dbs.CreateTableDef(linkTdfName)　 
    ''鏈接遠程表 linkTdf.Connect = ";database=" + strCn  
    20. 
  
  
  
  20. linkTdf.SourceTableName = strTdf 
    21. 
  
  
  
  21. dbs.TableDefs.Append linkTdf  
    22. 
  
  
  
  22. End Sub 
    23.

VB.NET連接遠程數(shù)據(jù)庫的相關(guān)操作方法就為大家介紹到這里。


當前文章：VB.NET連接遠程數(shù)據(jù)庫技巧分享
轉(zhuǎn)載源于：http://www.5511xx.com/article/dhgsiih.html