merhabalar
ben sonradan öğrenme programcı olmaya çalışıyorum
access yardımıyla ado bağlantısı oluşturmak istiyorum.
mümkün mü? yardımcı olabilir misiniz?

Arkadaşım Access'ten Anlarım Fakat ADO dan hiç anlamam ama senin için bir arştırma yaptım güzelde anlatmışlar sana yapmak gerekenleri aşağıda belirttim kolay gelsin

Kolay Gelsin

Bildiğim kadarıyla Zeki Gürsoy adlı ustam ADO bağlantısından anlıyordu ÖM yada cevaplamasını bekle

sayın şahrapçı çok teşekkür ederim
bu forum denilen şey sayenizde çok hızlıymış anladım
forumlarda acemiliğim ortaya çıkıyor ama bilgi daha önemli

Önemli değil biz herzaman paylaşıma açığızdır Kolay gelsin

Merhaba,

Yarım kalmış bir yazımı ekleyeyim bari. Şimdilik "Connection" ile idare edin.

Alıntı: ADO (ActiveX Data Object):

ADO, Kullanıcı arayüzünden diskteki bir veritabanına bağlantı açıp üzerinde
seç, ekle, sil, değiştir işlemleri yapmamızı sağlayan bir nesne (kütüphane)dir.

ADO' in mevcut son versiyonu 2.8 dir. Bugünlerde gördüğünüz ADO.NET ile NET çatısı için ADO.NET
bir devamı değil, baştan yazılmış halidir. İşimiz .NET programlama olmadığı için
ADO 2.? konusuna değineceğiz.

-- CONNECTION NESNESİ --

Evin ihtiyaçlarını karşılamak için önce markete gitmemiz gerekiyorsa, öncelikle veritabanına
ulaşıp bağlantıyı açmamız gerekir. Connection nesnesi bunun içindir.

Hangi veritabanı olursa olsun, o veritabanının bir sağlayıcısı (Provider) ya da ODBC sürücüsü
olacaktır. ADO, bağlantıyı kendi kendine açmaz. Bu ikisinden biri mutlaka olmalıdır.
Bu sağlayıcı ya da ODBC ilişkin ConnectionString (Bağlantı metni) yazılarak bağlantı açılır.

Access için Microsoft Jet sağlayıcısı ve MS Access ODBC bağlantı metinleri aşağıdadır.
İstediğiniz biriyle bağlantı açabilirsiniz.

A-) Access 97 için;

1-) MS Jet sağlayıcısı (Access yüklü olmasa bile);

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.Oledb.3.51;Data Source=C:\DB.mdb;" & _
User ID=Admin;Password=şifre"
cn.Open

Ya da kısaca,

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.Oledb.3.51;Data Source=C:\DB.mdb;Password=şifre"

2-) ODBC Sürücüsü (Access yüklü ise);

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.Open _
"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\DB.mdb;UID=Admin;PWD=şifre"

B-) Access 97'den sonraki ve Access 2007'den önceki versiyonlar için;

1-)MS Jet (Sadece Jet versiyonu farklıdır);

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\DB.mdb;Password=şifre"

2-) ODBC Sürücüsü (Aynı);

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.Open _
"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\DB.mdb;UID=Admin;PWD=şifre"

C-) MS Access 2007 için;

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.Open _
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\DB.accdb;Jet OLEDB:Database Password=şifre"



** Açılan bağlantı aşağıdaki şekilde kapatılır.

cn.Close


-Belli başlı Connection metot ve özellikleri-

A-) Özellikler:

1-)ConnectionTimeout
Bağlantı zaman aşımını saniye cinsinden ifade eder. Bağlantı açılırken değiştirilebilir.
Varsayılan 15 sn.'dir.

2-) CursorLocation
Cursor servisinin client ya da server kanadında çalışacağını ifade eder.
Varsayılan "Server" dır.

3-)Mode
Connection açılırken paylaşımlı, okunur, yazılır gibi özellikleri barındırır.
Varsayılan "Unknown" dur.

4-) Connection durumu hakkında bilgi verir.
Constant Value Description
adStateClosed 0 Nesne kapalı.
adStateOpen 1 Nesne açık
adStateConnecting 2 Nesne açılıyor.
adStateExecuting 4 Nesne komut yürütüyor
adStateFetching 8 Nesne kayıtları geziyor(Cursor & Fetch)


B-) Metotlar:

1-)BeginTrans, CommitTrans, ve RollbackTrans;
"Transaction" konusunda ayrıntılı olarak anlatılacaktır.

2-) Cancel ;
Connection nesnesi tarafından yürütülmekte olan bir komutun,
(Mode özelliğinden bilgi alınabilir) iptal edilmesini sağlar.

3-)Execute;
SQL komutu yürütmeye yarar. "SELECT" yürütüldüğünde bir recordset döndürür.

Teşekkürler Sn Zeki Ustam