猫咪www免费人成网站,久久久久久欧美六区,欧美成人片在线

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

如何在 Access 2003 和 Access 2002 中創(chuàng)建 DSN 的連接到 SQLServer 對鏈接表

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

復制代碼代碼如下:

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

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

•	當您使用 Autoexec, 調(diào)用 AttachDSNLessTable 函數(shù), 并然后傳遞參數(shù)，如以下所示從 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 數(shù)據(jù)庫添加多個鏈接表時注意您必須調(diào)整編程邏輯。

方法 2：使用 DAO.RegisterDatabase 方法

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

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

注意如果再次, 調(diào)用 RegisterDatabase 方法 DSN 更新。

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

•	當您使用 Autoexec, 調(diào)用 CreateDSNConnection 函數(shù), 并然后傳遞參數(shù)，如以下所示從 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 名稱，您已經(jīng)創(chuàng)建鏈接 SQLServer 表 Access 數(shù)據(jù)庫中。

請 CreateTableDef 方法, 有關(guān)訪問下列 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)

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

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

巨人網(wǎng)絡(luò)通訊聲明：本文標題《如何在 Access 2003 和 Access 2002 中創(chuàng)建 DSN 的連接到 SQLServer 對鏈接表》，本文關(guān)鍵詞如,何在,Access,2003,和,2002,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。