Program aracýlýðýyla VB ile SQL Server bir DSN oluþturma.

Üste

Adým adým yordamlar

1. Yeni bir Visual Basic projesi açýn. Varsayýlan olarak, Form1 oluþturulur. Form1'üzerinde bir KomutDüðmesi put (Command1) ve aþaðýdaki kodu Form1 için kodu Genel Declarations bölümünde yerleþtirin:

       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. Aþaðýdaki kod, click olayý, Form1 Command1</a1> düðmesinde koyun:
   
   Ortamýnýza uygun olarak verikaynaðýadý, veritabaný adý, açýklamasý, DriverPath, LastUser ve sunucu deðiþkenlerinin deðerleri deðiþtirin. Herhangi bir ODBC veri kaynaðý yöneticisi penceresinin ODBC sürücüleri sekmesinde listelenen sürücüleri DriverPath deðiþkeni bir parçasý olarak kullanýlabilir. Bu sürücülerin tüm makineler, C:\Windows\System for Windows 95 veya Windows 98 ve Windows NT için C:\Winnt\System32 bulunamadý.

      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. Projeyi çalýþtýrýn ve Command1 komut düðmesini týklatýn. Daha sonra Denetim Masasý (veya Windows 2000'de Yönetici Araçlarý) ODBC veri kaynaðý yöneticisi açýn. Diðer sistem ile birlikte önceden oluþturmuþ olduðunuz bir DSN, yeni DSN görüntülenir.

Üste