Bagaimana pemrograman membuat DSN SQL Server dengan BB

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 184608 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini menunjukkan cara pemrograman membuat nama sumber Data (DSN) untuk SQL Server menggunakan Visual Basic. Teknik ini artikel menggunakan fungsi antarmuka pemrograman aplikasi Windows (API) membuat dan memanipulasi entri di registri Windows.

INFORMASI LEBIH LANJUT

DSNs biasanya dibuat melalui Administrator sumber Data ODBC jendela, yang dapat diakses dari Panel kontrol Windows (atau Administrator alat di Windows 2000). Lainnya teknik yang menyediakan akses ke database ODBC-compliant termasuk menggunakan RegisterDatabase (Data Access objek (DAO) metode), menggunakan Fungsi SQLConfigDataSource ODBC API, atau menggunakan sambungan DSN-kurang string.

Namun, mungkin untuk menetapkan DSN baru dengan secara manual membuat dan memanipulasi nilai dalam registri Windows. Menggunakan teknik berikut fungsi RegCreateKey, RegSetValueEx, dan RegCloseKey API untuk membuat sistem DSN untuk database SQL Server.

Langkah demi langkah prosedur

  1. Buka proyek Visual Basic baru. Form1 dibuat secara default. Menempatkan CommandButton pada Form1 (Command1), dan menempatkan kode berikut dalam Umum Deklarasi bagian dari kode untuk Form1:
        Option Explicit
    
        Private Const REG_SZ = 1    'Constant for a string variable type.
        Private Const HKEY_LOCAL_MACHINE = &H80000002
    
        Private Declare Function RegCreateKey Lib "advapi32.dll" Alias _
           "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _
           phkResult As Long) As Long
    
        Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
           "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
           ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal _
           cbData As Long) As Long
    
        Private Declare Function RegCloseKey Lib "advapi32.dll" _
           (ByVal hKey As Long) As Long
    						
  2. Letakkan kode berikut dalam acara klik tombol Command1 di Form1:

    Mengubah nilai-nilai DataSourceName, DatabaseName, deskripsi, Variabel DriverPath, LastUser, dan Server yang sesuai untuk Anda lingkungan. Salah satu driver terdaftar pada tab driver ODBC Jendela ODBC Data sumber Administrator dapat digunakan sebagai bagian dari DriverPath variabel. Semua driver ini dapat ditemukan di C:\Windows\System untuk mesin Windows 95 atau Windows 98 dan C:\Winnt\System32 untuk Windows NT.
       Private Sub Command1_Click()
    
       Dim DataSourceName As String
       Dim DatabaseName As String
       Dim Description As String
       Dim DriverPath As String
       Dim DriverName As String
       Dim LastUser As String
       Dim Regional As String
       Dim Server As String
    
       Dim lResult As Long
       Dim hKeyHandle As Long
    
       'Specify the DSN parameters.
    
       DataSourceName = "<the name of your new DSN>"
       DatabaseName = "<name of the database to be accessed by the new DSN>"
       Description = "<a description of the new DSN>"
       DriverPath = "<path to your SQL Server driver>"
       LastUser = "<default user ID of the new DSN>"
       Server = "<name of the server to be accessed by the new DSN>"
       DriverName = "SQL Server"
    
       'Create the new DSN key.
    
       lResult = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\ODBC\ODBC.INI\" & _
            DataSourceName, hKeyHandle)
    
       'Set the values of the new DSN key.
    
       lResult = RegSetValueEx(hKeyHandle, "Database", 0&, REG_SZ, _
          ByVal DatabaseName, Len(DatabaseName))
       lResult = RegSetValueEx(hKeyHandle, "Description", 0&, REG_SZ, _
          ByVal Description, Len(Description))
       lResult = RegSetValueEx(hKeyHandle, "Driver", 0&, REG_SZ, _
          ByVal DriverPath, Len(DriverPath))
       lResult = RegSetValueEx(hKeyHandle, "LastUser", 0&, REG_SZ, _
          ByVal LastUser, Len(LastUser))
       lResult = RegSetValueEx(hKeyHandle, "Server", 0&, REG_SZ, _
          ByVal Server, Len(Server))
    
       'Close the new DSN key.
    
       lResult = RegCloseKey(hKeyHandle)
    
       'Open ODBC Data Sources key to list the new DSN in the ODBC Manager.
       'Specify the new value.
       'Close the key.
    
       lResult = RegCreateKey(HKEY_LOCAL_MACHINE, _
          "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources", hKeyHandle)
       lResult = RegSetValueEx(hKeyHandle, DataSourceName, 0&, REG_SZ, _
          ByVal DriverName, Len(DriverName))
       lResult = RegCloseKey(hKeyHandle)
    
       End Sub
    						
  3. Menjalankan proyek dan klik pada tombol perintah Command1. Kemudian membuka Sumber Data ODBC Administrator dari Panel kontrol (atau alat-alat Administrator pada Windows 2000). DSN baru Anda akan muncul bersama dengan sistem lain DSNs yang Anda sudah dibuat.

REFERENSI

Untuk informasi tambahan, silakan lihat artikel berikut di Basis Pengetahuan Microsoft:
166392 Cara menggunakan koneksi ODBC "DSN-kurang" dengan RDO
147875 Cara menggunakan koneksi ODBC "DSN-kurang" dengan RDO dan DAO
171146 Cara membuat dan menghapus DSN dalam Visual Basic
123008 Cara Set Up sumber ODBC Data ketika mendistribusikan aplikasi

Properti

ID Artikel: 184608 - Kajian Terakhir: 16 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
Kata kunci: 
kbhowto kbmt KB184608 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:184608

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com