国产伦精品一区二区三区四区免费,欧美精品一区二区三区高清aⅴ,成人国产精品一区二区免费麻豆

主頁 > 知識庫 > 如何在 Access 2003 和 Access 2002 中創建 DSN 的連接到 SQLServer 對鏈接表

如何在 Access 2003 和 Access 2002 中創建 DSN 的連接到 SQLServer 對鏈接表

方法 1：使用 CreateTableDef 方法
CreateTableDef 方法可創建鏈接表。若要使用此方法, 創建一個新模塊, 然后以下 AttachDSNLessTable 函數添加到新模塊。

復制代碼代碼如下:

'//Name     :   AttachDSNLessTable 
'//Purpose  :   Create a linked table to SQL Server without using a DSN 
'//Parameters 
'//     stLocalTableName: Name of the table that you are creating in the current database 
'//     stRemoteTableName: Name of the table that you are linking to on the SQL Server database 
'//     stServer: Name of the SQL Server that you are linking to 
'//     stDatabase: Name of the SQL Server database that you are linking to 
'//     stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection 
'//     stPassword: SQL Server user password 
Function AttachDSNLessTable(stLocalTableName As String, stRemoteTableName As String, stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String) 
    On Error GoTo AttachDSNLessTable_Err 
    Dim td As TableDef 
    Dim stConnect As String 

    For Each td In CurrentDb.TableDefs 
        If td.Name = stLocalTableName Then 
            CurrentDb.TableDefs.Delete stLocalTableName 
        End If 
    Next 

    If Len(stUsername) = 0 Then 
        '//Use trusted authentication if stUsername is not supplied. 
        stConnect = "ODBC;DRIVER=SQL Server;SERVER="  stServer  ";DATABASE="  stDatabase  ";Trusted_Connection=Yes" 
    Else 
        '//WARNING: This will save the username and the password with the linked table information. 
        stConnect = "ODBC;DRIVER=SQL Server;SERVER="  stServer  ";DATABASE="  stDatabase  ";UID="  stUsername  ";PWD="  stPassword 
    End If 
    Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD, stRemoteTableName, stConnect) 
    CurrentDb.TableDefs.Append td 
    AttachDSNLessTable = True 
    Exit Function 

AttachDSNLessTable_Err: 

    AttachDSNLessTable = False 
    MsgBox "AttachDSNLessTable encountered an unexpected error: "  Err.Description 

End Function 

若要調用 AttachDSNLessTable 函數, 請代碼，它類似于之一以下代碼示例在 Autoexec 宏中或啟動窗體 Form_Open 事件中：

•	當您使用 Autoexec, 調用 AttachDSNLessTable 函數, 并然后傳遞參數，如以下所示從 RunCode 操作。 `AttachDSNLessTable ("authors", "authors", "(local)", "pubs", "", "")`
•	當您使用啟動窗體, 將代碼，它類似于以下以 Form_Open 事件。 `Private Sub Form_Open(Cancel As Integer) If AttachDSNLessTable("authors", "authors", "(local)", "pubs", "", "") Then '// All is okay. Else '// Not okay. End If End Sub`向 Access 數據庫添加多個鏈接表時注意您必須調整編程邏輯。

方法 2：使用 DAO.RegisterDatabase 方法

DAO.RegisterDatabase 方法可在 Autoexec 宏中或啟動表單中創建 DSN 連接。盡管此方法不刪除對 DSN 連接, 要求它不幫助您通過代碼中創建 DSN 連接解決問題。若要使用此方法, 創建一個新模塊, 然后以下 CreateDSNConnection 函數添加到新模塊。

'//Name   :  CreateDSNConnection
'//Purpose :  Create a DSN to link tables to SQL Server
'//Parameters
'//   stServer: Name of SQL Server that you are linking to
'//   stDatabase: Name of the SQL Server database that you are linking to
'//   stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection
'//   stPassword: SQL Server user password
Function CreateDSNConnection(stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String) As Boolean
  On Error GoTo CreateDSNConnection_Err

  Dim stConnect As String
  
  If Len(stUsername) = 0 Then
    '//Use trusted authentication if stUsername is not supplied.
    stConnect = "Description=myDSN"  vbCr  "SERVER="  stServer  vbCr  "DATABASE="  stDatabase  vbCr  "Trusted_Connection=Yes"
  Else
    stConnect = "Description=myDSN"  vbCr  "SERVER="  stServer  vbCr  "DATABASE="  stDatabase  vbCr 
  End If
  
  DBEngine.RegisterDatabase "myDSN", "SQL Server", True, stConnect
    
  '// Add error checking.
  CreateDSNConnection = True
  Exit Function
CreateDSNConnection_Err:
  
  CreateDSNConnection = False
  MsgBox "CreateDSNConnection encountered an unexpected error: "  Err.Description
  
End Function

注意如果再次, 調用 RegisterDatabase 方法 DSN 更新。

若要調用 CreateDSNConnection 函數, 請代碼，它類似于之一以下代碼示例在 Autoexec 宏中或啟動窗體 Form_Open 事件中：

•	當您使用 Autoexec, 調用 CreateDSNConnection 函數, 并然后傳遞參數，如以下所示從 RunCode 操作。 `CreateDSNConnection ("(local)", "pubs", "", "")`
•	當您使用啟動窗體, 將代碼，它類似于以下以 Form_Open 事件。 `Private Sub Form_Open(Cancel As Integer) If CreateDSNConnection("(local)", "pubs", "", "") Then '// All is okay. Else '// Not okay. End If End Sub`

注意此方法假定通過使用 " myDSN " 作為 DSN 名稱，您已經創建鏈接 SQLServer 表 Access 數據庫中。

請 CreateTableDef 方法, 有關訪問下列 Microsoft Developer Network (MSDN) Web 站點：

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D2/S5A289.asp (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D2/S5A289.asp)

有關 RegisterDatabase 方法, 請訪問以下 MSDNWeb 站點：

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D2/S5A2EA.asp (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D2/S5A2EA.asp)

您可能感興趣的文章:

隨機提取Access/SqlServer數據庫中的10條記錄的SQL語句
ACCESS轉SQLSERVER數據庫的注意事項
Access轉SqlServer的注意事項
asp.net 數據庫備份還原(sqlserver+access)
SQL 隨機查詢包括(sqlserver,mysql,access等)
Excel導入Sqlserver數據庫腳本
ASP將Excel數據導入到SQLServer的實現代碼
ADO.NET 連接數據庫字符串小結(Oracle、SqlServer、Access、ODBC)
解析SQLServer獲取Excel中所有Sheet的方法
將ACCESS數據庫遷移到SQLSERVER數據庫兩種方法(圖文詳解)
將excel高效導入sqlserver的可行方法
SQL SERVER 2008 64位系統無法導入ACCESS/EXCEL怎么辦

標簽：楚雄赤峰南京上海通遼涼山清遠邢臺

巨人網絡通訊聲明：本文標題《如何在 Access 2003 和 Access 2002 中創建 DSN 的連接到 SQLServer 對鏈接表》，本文關鍵詞如,何在,Access,2003,和,2002,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

如何在 Access 2003 和 Access 2002 中創建 DSN 的連接到 SQLServer 對鏈接表

方法 2： 使用 DAO.RegisterDatabase 方法

方法 2：使用 DAO.RegisterDatabase 方法