Makale numaras�: 232144 - Son G�zden Ge�irme: 03 Aral�k 2003 �ar�amba - G�zden ge�irme: 3.1

BILGI: Jet OLE DB sa�lay�c�s�, s�r�m 4.0 Supports @@ kimlik SELECT.

�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�.

Hepsini a� | Hepsini kapa

�zet

S�r�m 4.0 Jet OLE DB sa�lay�c�s� ba�lant�n�zda olu�turulan otomatik art�� alan�n de�erini alman�za olanak tan�r, SELECT @@ kimlik sorgu destekler. Bu �zel sorgu sonu�lar�, otomatik art�� de�eri veritaban�n�zda di�er ba�lant�larda kullan�lan etkilemez. Bu �zellik, Jet 4.0 veritabanlar� ile ancak eski bi�imleriyle �al��r.

�ste

Daha fazla bilgi

A�a��daki kod <a0>Yeni eklenen bir otomatik art�m</a0> alan�n�n de�erini almak i�in SELECT @@ kimli�ini kullanarak g�sterir. Kod par�ac��n�, kod, tablo sorgu olu�turmak i�in de i�erir.

Dim cnDatabase As ADODB.Connection
Dim rsNewAutoIncrement As ADODB.Recordset
Dim strConn As String
Dim strSQL As String
Dim strPathToMDB As String
   
strPathToMDB = "C:\NewJet4.MDB"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & strPathToMDB & ";"
Set cnDatabase = New ADODB.Connection
    cnDatabase.Open strConn
    
    strSQL = "CREATE TABLE AutoIncrementTest " & _
             "(ID int identity, Description varchar(40), " & _
             "CONSTRAINT AutoIncrementTest_PrimaryKey PRIMARY KEY (ID))"
    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords
    
    strSQL = "INSERT INTO AutoIncrementTest " & _
             "(Description) VALUES ('AutoIncrement Test')"
    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords
    
    strSQL = "SELECT @@Identity"
    Set rsNewAutoIncrement = New ADODB.Recordset
    rsNewAutoIncrement.Open strSQL, cnDatabase, adOpenForwardOnly, _
                            adLockReadOnly, adCmdText
    MsgBox "New Auto-increment value is: " & rsNewAutoIncrement(0).Value

    rsNewAutoIncrement.Close
    Set rsNewAutoIncrement = Nothing
    strSQL = "DROP TABLE AutoIncrementTest"
    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords
    cnDatabase.Close
Set cnDatabase = Nothing

Yeni eklenen bu i�levsellik sayesinde, ADO 2.1 ve daha sonra istemci taraf� ActiveX Data Objects (ADO) kay�t k�mesi i�inde yeni eklenen otomatik art�� de�erleri g�rebilirsiniz. Jet Sa�lay�c�s� i�in yeni bir sat�r g�ncelle�tirme veya UpdateBatch (se�ti�iniz LockType ba�l�) �a��rarak g�nderdi�inizde, ADO imle� altyap�s� tabloda yeni bir sat�r olu�turmak i�in INSERT INTO sorgusu olu�turur. ADO, recordset i�in bir otomatik art�m alan i�eriyorsa, SELECT @@ kimlik sorguda, otomatik art�� alan� i�in olu�turulan de�erini almak i�in de olu�turur. Bu �zellik a�a��daki kod g�sterir:

Dim cnDatabase As ADODB.Connection
Dim rsNewAutoIncrement As ADODB.Recordset
Dim strConn As String
Dim strSQL As String
Dim strPathToMDB As String
    
strPathToMDB = "C:\NewJet4.MDB"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & strPathToMDB & ";"
    Set cnDatabase = New ADODB.Connection
    cnDatabase.Open strConn
    
    strSQL = "CREATE TABLE AutoIncrementTest " & _
             "(ID int identity, Description varchar(40), " & _
             "CONSTRAINT AutoIncrementTest_PrimaryKey PRIMARY KEY (ID))"
    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords

    strSQL = "SELECT ID, Description FROM AutoIncrementTest"
    Set rsNewAutoIncrement = New ADODB.Recordset
    rsNewAutoIncrement.CursorLocation = adUseClient
    rsNewAutoIncrement.Open strSQL, cnDatabase, adOpenStatic, _
                            adLockOptimistic, adCmdText
    rsNewAutoIncrement.AddNew
    rsNewAutoIncrement("Description").Value = "AutoIncrement Test"
    rsNewAutoIncrement.Update
    MsgBox "New Auto-increment value is: " & rsNewAutoIncrement(0).Value

    rsNewAutoIncrement.Close
    Set rsNewAutoIncrement = Nothing
    strSQL = "DROP TABLE AutoIncrementTest"
    cnDatabase.Execute strSQL, , adCmdText + adExecuteNoRecords
    cnDatabase.Close
Set cnDatabase = Nothing

, Microsoft Access 2000'i kullanarak veya MDAC 2.1 ile birlikte gelen ADOX kitapl�k kullanarak yeni bir Jet 4.0 veritaban� olu�turabilirsiniz. Visual Basic projenizde bu Kitapl��'n� kullanmak i�in Microsoft ADO Ext. 2.1 ve g�venlik i�in bir ba�vuru olu�turun. A�a��daki gibi bir kod daha sonra yeni bir Jet 4.0 veritaban� olu�turmak i�in kullanabilirsiniz:

Dim strPathToMDB As String
Dim catNewDatabase As ADOX.Catalog
    
    strPathToMDB = "C:\NewJet4.MDB"
    If Dir(strPathToMDB) <> "" Then
        Kill strPathToMDB
    End If
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=" & strPathToMDB & ";"
    Set catNewDatabase = New ADOX.Catalog
    catNewDatabase.Create strConn
    Set catNewDatabase = Nothing

Microsoft Access veritaban�n�z�n bi�imini belirlemek i�in <a0></a0>, Connection nesnesinin Properties derlemesinde dinamik "Jet OLEDB:Engine Type" �zelli�i denetleyin. �zelli�in Jet 4.x veritabanlar� i�in 5 de�erini d�nd�recektir. A�a��daki kod par�ac��n� �zelli?ini kullanarak g�sterir:

Dim cnDatabase As ADODB.Connection
Dim strConn As String
Dim strPathToMDB As String
    
strPathToMDB = "C:\NewJet4.MDB"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & strPathToMDB & ";"
Set cnDatabase = New ADODB.Connection
    cnDatabase.Open strConn
    If cnDatabase.Properties("Jet OLEDB:Engine Type").Value = 5 Then
        MsgBox "Jet 4.0 database"
    Else
        MsgBox "Not a Jet 4.0 database"
    End If
    cnDatabase.Close
Set cnDatabase = Nothing

�ste

Referanslar

Microsoft Data Access SDK; arama: "Provider-Defined �zellikleri"; Konu: "DBPROPSET_JETOLEDB_DBINIT"

�ste

Bu makaledeki bilginin uyguland�� durum:

Microsoft OLE DB Provider for Jet 4.0
Microsoft Data Access Components 2.1 Service Pack 2
Microsoft Data Access Components 2.5
Microsoft Data Access Components 2.6
Microsoft Data Access Components 2.7
Microsoft ActiveX Data Objects 2.1 Service Pack 2
Microsoft ActiveX Data Objects 2.5
Microsoft ActiveX Data Objects 2.6
Microsoft ActiveX Data Objects 2.7
Microsoft Visual Basic 5.0 Professional Edition
Microsoft Visual Basic 6.0 Professional Edition
Microsoft Visual Basic 5.0 Enterprise Edition
Microsoft Visual Basic Enterprise Edition for Windows 6.0

�ste

kbmt kbdatabase kbinfo kbjet KB232144 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:232144� (http://support.microsoft.com/kb/232144/en-us/ )

�ste

This site in other countries/regions:

BILGI: Jet OLE DB sa�lay�c�s�, s�r�m 4.0 Supports @@ kimlik SELECT.

�zet

Daha fazla bilgi

Referanslar

Bu makaledeki bilginin uyguland�� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

This site in other countries/regions:

BILGI: Jet OLE DB sa�lay�c�s�, s�r�m 4.0 Supports @@ kimlik SELECT.

�zet

Daha fazla bilgi

Referanslar

Bu makaledeki bilginin uyguland��� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

Bu makaledeki bilginin uyguland�� durum: