Access veritabanına birden fazla bağlantı hk.

[tamer42]

Merhabalar,

Aşağıdaki kod ile Excel ortamından Access veritabanı'na bağlantı kurup veri girişi yaparken;

aynı anda birden çok kullanıcı access veritabanı'na bağlanınca bağlantıdan atıyor,

bu konuda ne tür önerileriniz olabilir?

destekleriniz için şimdiden teşekkürler,

Sub Connect()
Dim myPath As String
Dim SQL  As String

    Set cn = New ADODB.Connection
    Set RS = New ADODB.Recordset
    
    myPath = ThisWorkbook.Path
    
 
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source = " & myPath & "\DB\Db.accdb"
        .Open cn
    End With

 SQL = " SELECT * FROM  Tablee"
 RS.Open SQL, cn, 1, 3

iyi akşamlar.

 

[Zeki Gürsoy]

Merhaba;

Open-Source sql server database kullanın derim...

- Firebird Sql Server,
- Postgresql Sql Server

.

 

[tamer42]

Merhaba;

Open-Source sql server database kullanın derim...

- Firebird Sql Server,
- Postgresql Sql Server

.

Zeki Hocam ilginize çok teşekkür ederim ama bahsetmiş olduğunuz hususları hiç bilmiyorum,
Konuyu biraz açabilir misiniz,

ConnectionString satırında mı düzenlenemsi gerekiyor.

iyi akşamlar.

 

[Zeki Gürsoy]

Sadece connection string ile olmaz. Server yazılımını indirip kurmanız, manager program ile bağlanıp veritabanı ve tabloları oluşturmanız gerekiyor.

VBA ile erişim için yine ODBC sürücüsünü indirip kurmanız gerekiyor.

Veritbanı, kendi başına bir konudur ve az da olsa uzmanlık gerektirir.

Umarım sıkılıp vazgeçmezsiniz...

.

 

[tamer42]

Sadece connection string ile olmaz. Server yazılımını indirip kurmanız, manager program ile bağlanıp veritabanı ve tabloları oluşturmanız gerekiyor.

VBA ile erişim için yine ODBC sürücüsünü indirip kurmanız gerekiyor.

Veritbanı, kendi başına bir konudur ve az da olsa uzmanlık gerektirir.

Umarım sıkılıp vazgeçmezsiniz...

Zeki Hocam bilgilendirme için teşekkürler,
şu an hali hazır access veri tabanında te bir çok tablo ve sorgu mevcut,
bu tablo ve sorguların tümünün serverde oluşturmak biraz zaman alacak gibi duruyor.
orta ve uzun vadede düşünebilir,

yalnız kısa vadede mevcut access üzerinde bir çözüm üretmem gerekiyor.

ilgi ve alakanız için tekrar teşekkürler.

 

[pitchoute]

Paylaşımlı olabilmesi için kodunuzu şu şekilde revize edip deneyebilir misiniz;

Sub Connect()
    Dim myPath As String
    Dim SQL As String
    Dim cn As ADODB.Connection
    Dim RS As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set RS = New ADODB.Recordset
    myPath = ThisWorkbook.Path
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & myPath & "\DB\Db.accdb"
        .Mode = 16 
        .Open
    End With
    SQL = "SELECT * FROM Tablee"
    RS.Open SQL, cn, 1, 3 
    RS.Close
    cn.Close
    Set RS = Nothing
    Set cn = Nothing
End Sub

 

[tamer42]

Paylaşımlı olabilmesi için kodunuzu şu şekilde revize edip deneyebilir misiniz;

Sub Connect()
    Dim myPath As String
    Dim SQL As String
    Dim cn As ADODB.Connection
    Dim RS As ADODB.Recordset
    Set cn = New ADODB.Connection
    Set RS = New ADODB.Recordset
    myPath = ThisWorkbook.Path
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & myPath & "\DB\Db.accdb"
        .Mode = 16
        .Open
    End With
    SQL = "SELECT * FROM Tablee"
    RS.Open SQL, cn, 1, 3
    RS.Close
    cn.Close
    Set RS = Nothing
    Set cn = Nothing
End Sub

deneyip, size dönüş yapacağım Hocam

 

[Erdem Akdemir]

Ne yaparsanız yapın Access'te istediğiniz verimi alamazsınız. İşlem tipi ve kilit tipini değiştirseniz de tam verimli değil.
Kendi deneyimlerime göre en iyi model aşağıdaki gibi.

RS.Open SQL, cn, 1, 3

 

[tamer42]

Ne yaparsanız yapın Access'te istediğiniz verimi alamazsınız. İşlem tipi ve kilit tipini değiştirseniz de tam verimli değil.
Kendi deneyimlerime göre en iyi model aşağıdaki gibi.

RS.Open SQL, cn, 1, 3

Teşekkürler Erdem Hocam

benim kodlarda: RS.Open SQL, cn, 1, 3

 

[beab05]

Merhaba;

Eş zamanlı çoklu kullanıcı için Access ile olmaz.

En basiti Sql Server Express kurun (ücretsizdir). Ya da hosting kiralayın ve ordaki veritabanını kullanın. Sadece veritabanı için ücretsiz hostingler de vardır.

 

[NBATMAN]

Arkadaşlar Merhaba,

Accessi çok kullanıcı ile kullanabilirsiniz. Belkide bunu Türkiye'de başaran tek kişide olabilirim.
Bunun için Accessi bölmeniz gerekiyor.

Ayrı Frontend ve Backend: Access uygulamanızın "frontend" (kullanıcı arayüzü) kısmını ve "backend" (veri depolama) kısmını ayırın. Kullanıcıların yalnızca frontend'i kullanmalarını sağlarken, backend'i merkezi bir yerde tutun. Bu, kullanıcıların aynı anda veri tabanına erişmesini kolaylaştırır.

Dikkat! Yalnız ben bunu Excel üzerinde değil yaptığım VBNET programlarıyla kullandım.

sistem şöyle çalışıyor;
örneğin ağda bir veri tabanım (Access) var. bundan bölme işlemi ile bir örneğini oluşturuyorum. Bu Örnek kullanıcı (lokaldeki) bilgisayara yüklüyorum.
Dolayısı ile program çalıştığında bu kullanıcı bilgisayarındaki veri tabanı örneği ile işlem yapıyor ve serverdaki yada ağdaki bir ana bilgisayardaki asıl veri tabanımız serbest kalıyor. Ne zamanki örneğin kullanıcı/kullanıcılar kayıt yapıyor yada update yada sil işlemi yapıyor bu hali ile ana bilgisayardaki veriyi güncelliyor/değiştiriyor. bunu yaklaşık 6 yıldır kendi işyerimde ağadaki çok kullanıcılı üretim/sipariş takip programımda veri kayıpsız / hatasız bir şekilde kullanıyorum. nihayetinde bir SQL yerini tutmaz ama 6 yıldır IT ci bloğunu bu yöntemle aşmış bulunuyorum.

 

[Korhan Ayhan]

@NBATMAN ,

Kullandığınız yöntem ilginç görünüyor...

Kullanmak isteyenler için Veritabanı (Access) dosyanızı nasıl böldüğünüzü ve çoklu kullanıcı erişim örneğini yani kısaca sistemin nasıl çalıştığını gösteren kısa bir video paylaşırsanız memnun oluruz.