Cara membuat dan menghapus DSN dalam Visual Basic

1. Klien kesederhanaan. Pengguna tidak perlu khawatir tentang pengaturan DSN, penamaan dengan benar, pengaturan pilihan, dll. Semua ini dapat dilakukan secara dinamis oleh aplikasi.
2. Ini memecahkan banyak mesin JET koneksi dan menghubungkan string caching masalah.
3. Meningkatkan fleksibilitas aplikasi.

Kembali ke atas

Contoh langkah demi langkah

1. Memulai sebuah proyek baru.
2. Pada tab Lanjutan kotak dialog pilihan dalam Tools menu, menetapkan argumen kompilasi bersyarat yang bernama sama dengan 1 WIN32 jika menggunakan Visual Basic 4.0 32-bit, atau 0 jika menggunakan Visual Basic 4.0 16-bit.
3. Menambahkan dua CommandButtons ke bentuk standar.
4. Tambahkan kode berikut untuk deklarasi umum:

         Option Explicit
   
         'Constant Declaration
         Private Const ODBC_ADD_DSN = 1        ' Add data source
         Private Const ODBC_CONFIG_DSN = 2     ' Configure (edit) data source
         Private Const ODBC_REMOVE_DSN = 3     ' Remove data source
         Private Const vbAPINull As Long = 0&  ' NULL Pointer
   
         'Function Declare
         #If WIN32 Then
   
             Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
             (ByVal hwndParent As Long, ByVal fRequest As Long, _
             ByVal lpszDriver As String, ByVal lpszAttributes As String) _
             As Long
         #Else
             Private Declare Function SQLConfigDataSource Lib "ODBCINST.DLL" _
             (ByVal hwndParent As Integer, ByVal fRequest As Integer, ByVal _
             lpszDriver As String, ByVal lpszAttributes As String) As Integer
         #End If
   					

5. Tambahkan kode berikut ke dalam kegiatan klik Command1:

         #If WIN32 Then
             Dim intRet As Long
         #Else
             Dim intRet As Integer
         #End If
         Dim strDriver As String
         Dim strAttributes As String
   
         'Set the driver to SQL Server because it is most common.
         strDriver = "SQL Server"
         'Set the attributes delimited by null.
         'See driver documentation for a complete
         'list of supported attributes.
         strAttributes = "SERVER=SomeServer" & Chr$(0)
         strAttributes = strAttributes & "DESCRIPTION=Temp DSN" & Chr$(0)
         strAttributes = strAttributes & "DSN=DSN_TEMP" & Chr$(0)
         strAttributes = strAttributes & "DATABASE=pubs" & Chr$(0)
         'To show dialog, use Form1.Hwnd instead of vbAPINull.
         intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, _
         strDriver, strAttributes)
         If intRet Then
             MsgBox "DSN Created"
         Else
             MsgBox "Create Failed"
         End If
   					

6. Tambahkan kode berikut ke dalam kegiatan klik Command2:

         #If WIN32 Then
             Dim intRet As Long
         #Else
             Dim intRet As Integer
         #End If
         Dim strDriver As String
         Dim strAttributes As String
   
         'Set the driver to SQL Server because most common.
         strDriver = "SQL Server"
         'Set the attributes delimited by null.
         'See driver documentation for a complete list of attributes.
         strAttributes = "DSN=DSN_TEMP" & Chr$(0)
         'To show dialog, use Form1.Hwnd instead of vbAPINull.
         intRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, _
         strDriver, strAttributes)
         If intRet Then
             MsgBox "DSN Deleted"
         Else
             MsgBox "Delete Failed"
         End If
   					

7. Menjalankan proyek.
8. Klik Command1 untuk menambahkan DSN bernama DSN_TEMP.
9. Klik Command2 untuk menghapus DSN bernama DSN_TEMP.

Kembali ke atas