Makale numaras�: 171146 - Son G�zden Ge�irme: 15 Temmuz 2004 Per�embe - G�zden ge�irme: 3.3

Nas�l olu�turulur ve DSN Visual Basic'te Kald�r

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Sistem �pucuBu makale, kulland��n�zdan farkl� bir i�letim sistemine y�neliktir. Sizinle ilgili olmayabilecek makale i�eri�i devre d�� b�rak�ld�.

Visual Basic 4.0'in 32-bit s�r�m�nde DSN'siz ba�lant�lar kullanmak m�mk�nd�r, ancak bu s�zdizimini ODBC 16-bit s�r�m� i�leyebilir, Visual Basic 4.0 16-bit s�r�m�n� bunun m�mk�n de�ildir, ��nk�. Bu �zelli�i, dinamik olarak olu�turmak ve bir veri kayna�� ad� (DSN) s�zc��n� ODBC API �a�r�s� kullanarak an�nda kald�rma �yk�nme olas�d�r.

A�a��dad�r bir 16- ve 32-bit �rnek bu teknik g�sterilmi�tir. Bu teknik, a�a��da a��kland�� gibi di�er kullan�mlar oldu�undan, 32-bit kodu bulunmaktayd�. Bu makalede sunulan 32-bit teknikleri, Visual Basic 5.0 i�in de ge�erlidir.

�ste

Daha fazla bilgi

32-Bit ODBC kullanabilme DSN'siz ba�lant�, bir�ok kullan�m� vard�r:

Istemci kolayl��. Kullan�c� merak bir DSN ayarlama, do�ru �ekilde yeniden adland�rma, ayar se�enekleri, vb. hakk�ndaki gerekmez. T�m bu uygulama taraf�ndan dinamik olarak yap�labilir.
Bu, bir�ok JET alt yap�s� ba�lant� ��zd� ve ba�lant� dizesi sorunlar� �nbelle�e alma.
Uygulama esnekli�ini art�r�r.

T�m bu 16-bit ODBC olu�turarak ve h�zl� bir DSN silme ger�ekle�mi�. Bu y�ntem, basit bir DSN y�netimi i�in de yararl�d�r. Kod, otomatik olarak olu�turmak, de�i�tirmek veya herhangi bir anda bir DSN silmek i�in kullan�labilir. Visual Basic DBEngine.RegisterDatabase() y�ntemini kullanarak bir DSN olu�turma yetene�i sa�lamaz, ancak bu API, daha b�y�k i�levler ve de�i�tirmek ve DSN, ayn� zamanda kald�rma olana�� sa�lar.

�ste

Ad�m ad�m �rnek

Yeni bir proje ba�lat�n.
Ara�lar men�s�n�n alt�nda <a1>Se�enekler</a1> ileti�im kutusunun Geli�mi� sekmesi, Visual Basic 4.0 16-bit kullan�yorsan�z kullanarak, Visual Basic 4.0 32-bit ya da 0, 1'e e�it w�n32 adl� bir ko�ullu derleme Argument ayarlay�n.
Iki CommandButtons varsay�lan forma ekleyin.

A�a��daki kodu i�in bir genel bildirimleri ekleyin:

      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&amp;  ' 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

Click olay� Command1 a�a��daki kodu ekleyin:

      #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

Click olay� Command2 a�a��daki kodu ekleyin:

      #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

Projeyi �al��t�r�n.
Command1 DSN_TEMP adl� DSN eklemek i�in t�klat�n.
Command2 DSN_TEMP adl� DSN kald�rmak i�in Ek Yard�m d��mesini t�klat�n.

�ste

Referanslar

2.0 ODBC Programmer's Reference ve SDK K�lavuzu
Microsoft Press 1993
isbn 1-55615-658-8

(c) 1997 Microsoft Corporation, t�m haklar� sakl�d�r. Taraf�ndan katk�y� Troy Cambra, Microsoft Corporation

�ste

Bu makaledeki bilginin uyguland�� durum:

Microsoft Visual Basic 4.0 Professional Edition
Microsoft Visual Basic 5.0 Professional Edition
Microsoft Visual Basic 4.0 Enterprise Edition
Microsoft Visual Basic 5.0 Enterprise Edition
Microsoft Visual Basic 4.0 Standard Edition

�ste

kbmt kbhowto KB171146 KbMttr

�ste

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:171146� (http://support.microsoft.com/kb/171146/en-us/ )

�ste

This site in other countries/regions:

Nas�l olu�turulur ve DSN Visual Basic'te Kald�r

Bu Sayfada

�zet

Daha fazla bilgi

Ad�m ad�m �rnek

Referanslar

Bu makaledeki bilginin uyguland�� durum:

Anahtar Kelimeler:�

Bu bilgi hakk�nda geri bildirim sa�lay�n

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

This site in other countries/regions:

Nas�l olu�turulur ve DSN Visual Basic'te Kald�r

Bu Sayfada

�zet

Daha fazla bilgi

Ad�m ad�m �rnek

Referanslar

Bu makaledeki bilginin uyguland��� durum:

Anahtar Kelimeler:�

Bu bilgi hakk�nda geri bildirim sa�lay�n

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

Bu makaledeki bilginin uyguland�� durum: