Bagaimana pemrograman membuat DSN SQL Server dengan BB

ID Artikel: 184608 - Melihat produk di mana artikel ini berlaku.
Penerjemahan MesinPeringatan: artikel ini adalah terjemahan oleh mesin
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.
Kembali ke atas | Berikan Masukan

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.
Kembali ke atas | Berikan Masukan

REFERENSI

Untuk informasi tambahan, silakan lihat artikel berikut di Basis Pengetahuan Microsoft:
166392
(http://support.microsoft.com/kb/166392/EN-US/ )
Cara menggunakan koneksi ODBC "DSN-kurang" dengan RDO
147875
(http://support.microsoft.com/kb/147875/EN-US/ )
Cara menggunakan koneksi ODBC "DSN-kurang" dengan RDO dan DAO
171146
(http://support.microsoft.com/kb/171146/EN-US/ )
Cara membuat dan menghapus DSN dalam Visual Basic
123008
(http://support.microsoft.com/kb/123008/EN-US/ )
Cara Set Up sumber ODBC Data ketika mendistribusikan aplikasi
Kembali ke atas | Berikan Masukan

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
(http://support.microsoft.com/kb/184608/en-us/ )
Kembali ke atas | Berikan Masukan

Berikan Masukan

 
Kembali ke atasKembali ke atas