VB.NET连接远程数据库代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】 VB.NET连接远程数据库

作者: / 发布于2011/1/5/ 1816

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

<div>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 
</div>

试试其它关键字

　连接数据库　

同语言下

可能有用的

贡献的其它代码Label