Bagaimana pemrograman membuat DSN SQL Server dengan BB

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
Artikel ini telah diarsipkan. Artikel ditawarkan dalam bentuk "apa adanya" dan tidak akan dapat diperbarui lagi.
RINGKASAN
Artikel ini menunjukkan cara pemrograman membuat nama sumber Data(DSN) untuk SQL Server menggunakan Visual Basic. Teknik iniartikel menggunakan fungsi antarmuka pemrograman aplikasi Windows (API)membuat dan memanipulasi entri di registri Windows.
INFORMASI LEBIH LANJUT
DSNs biasanya dibuat melalui Administrator sumber Data ODBCjendela, yang dapat diakses dari Panel kontrol Windows (atau Administrator alat di Windows 2000). Lainnyateknik yang menyediakan akses ke database ODBC-compliant termasuk menggunakanRegisterDatabase (Data Access objek (DAO) metode), menggunakanFungsi SQLConfigDataSource ODBC API, atau menggunakan sambungan DSN-kurangstring.

Namun, mungkin untuk menetapkan DSN baru dengan secara manual membuat danmemanipulasi nilai dalam registri Windows. Menggunakan teknik berikutfungsi RegCreateKey, RegSetValueEx, dan RegCloseKey API untuk membuatsistem 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 diBasis 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
kbVBp500 kbVBp kbWinOS98 kbDSupport kbdse kbODBC kbVBp600

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 184608 - Tinjauan Terakhir: 12/05/2015 08:35:59 - Revisi: 2.0

Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition

  • kbnosurvey kbarchive kbhowto kbmt KB184608 KbMtid
Tanggapan