VB.NET连接远程数据库技巧分享_ASP.Net之家|DotNet之家 - .NET|C...

开发语言功能比较强大，其中特有的各种性质能帮助大家轻松实现功能，提高编程效率。在这里我们就为大家介绍一下VB.NET连接远程数据库的相关操作，希望能给大家带来一些帮助。

 

在VB中，用数据库引擎和数据访问对象DAO可以创建功能强大的客户/服务器应用程序。对远程数据库的访问是开发这类应用程序的关键，本文将介绍在VB中用DAO通过数据库引擎访问远程数据库的方法。

用DAO访问远程数据库可以通过三步来实现，即数据连接、数据处理和断开连接。下面主要介绍数据连接和数据处理的具体操作。

DAO通过链接远程表的方式来进行数据连接。这样，数据虽然驻留在远程数据源上，但在本地的数据库中可以存储与远程数据的永久性连接，同时缓存链接的表结构信息，从而在下一次访问该表时， 不用再次从服务器中检索这些结构信息，加快了连接速度。一旦链接了一个表，该链接便会保留在各会话期间，直到连接断开。链接远程表的具体操作是：

用 OpenDatabase 方法打开将要包含该链接的本地数据库，用 CreateTableDef 方法在该数据库中创建一个新的TableDef对象，将 TableDef 对象的 Connect 属性设置为一个合法的连接字符串，标识要访问的远程数据库类型、数据文件的路径以及用户名和远程数据源密码等。将 TableDef 对象的 SourceTableName 属性设置为远程数据库中要访问的表的名称。 添加 TableDef 对象到 TableDefs 集合中。

实现VB.NET连接远程数据库的代码如下：

 

    
Public Sub LinkTable(strDB As String, strRoDB As String, strCn As String, strTdf As String, linkTdfName As String)      
Dim linkTdf As New TableDef      
Set dbs = OpenDatabase(strDB)      
linkTdf.Name = linkTdfName　    
100:      
tempTable = UCase(linkTdf.Name)      
For i = 0 To dbs.TableDefs.Count - 1      
    If UCase(dbs.TableDefs(i).Name) = tempTable Then      
       If MsgBox(linkTdfName + " 已存在，是否删除 ？", VBQuestion + VBYesNo) = VBYes Then      
          dbs.TableDefs.Delete linkTdf.Name      
          Exit For      
        Else: MsgBox "重新输入新表名"      
         linkTdfName = InputBox(" 新表名")      
         GoTo 100      
        End If      
    End If      
Next i      
Set linkTdf = dbs.CreateTableDef(linkTdfName)　 
''链接远程表 linkTdf.Connect = ";database=" + strCn      
linkTdf.SourceTableName = strTdf     
dbs.TableDefs.Append linkTdf      
End Sub 

VB.NET连接远程数据库的相关操作方法就为大家介绍到这里。