Access 2010 da accdb uzantılı veritabnının ADODB.connection ile kullanımı ya da ?

[hsayar]

Hayırlı günler arkadaşlar uzun zamandır girmedim bu arada ofis 2010 a terfi ettim. Umarım iyi bir sene geçirmişsinizdir ve 2011 yılı ülkemizde çıkartılmaya çalışılan etnik ve mezhepsel kargaşa tuzağına düşmez ve vatandaşlarımıza sağlık, mutluluk ve huzur getirir.

(uzun bir giriş oldu ama uzun bir aradan sonra mazur görürsünüz umarım.)
Şimdi sorunum şu; yeni acces 2010 da veritabanı varsayılan olarak accdb ile oluşuyor ve acces menüsünden kaydet ve yayımla seeneğine tıkladıktan sonra 2000-2003 uzantısı olan mdb olarak kaydedbiliyoruz.

mdb ile excelden bir dosyaya

Option Explicit

Private connMAHALLIBIRIM As ADODB.Connection
Private rsetMAHALLIBIRIM As ADODB.Recordset
Private Const kynMHBRM   As String = "C:\HSR\HsDatabase\vtMHBRM.mdb"    'vtmahbirimler.xls"

Sub subBAGLANMAHALLIBIRIM()
If Dir(kynMHBRM) = "" Then
    MsgBox kynMHBRM & " " & Chr(10) & " Dosyası Bulunamadı.", vbInformation, "Bilgi"
    boolMAGBIRBAG = False
Else
  Set connMAHALLIBIRIM = CreateObject("ADODB.Connection")
  With connMAHALLIBIRIM
        .Provider = "Microsoft.Jet.OLEDB.4.0"
'        .Properties("Extended Properties").Value = "Excel 8.0"
        .Properties("Data Source").Value = kynMHBRM
        .CursorLocation = adUseClient
        .Mode = adModeReadWrite
        .CommandTimeout = 60
        '.Properties("User ID") = vbNullString
        '.Properties("Password") = vbNullString
        .Open
    End With
    boolMAGBIRBAG = True
End If
End Sub

......

gibi kodlarla girip excel üzerindeki formlarımızla işlemlerimiz gerçekleştiriyorduk.

mdb desteği komple kaybolursa accdb ile hangi yöntemi kullanacağız?
accdb bu konuda tercih edilebilir mi? yoksa mdb ye devam mı edelim?

 

[Taruz]

Merhaba..

2003 ile çalışmanızda hiçbir sıkıntı olmaz.. Kaldı ki prosedürünüzü yeni versiyonlara uygun hale de getirebilirsiniz..

2010 da varsayılan dosya biçimini (Dosya / Genel sekmesinden) 2000-2003 olarakta ayarlayabilmeniz mümkündür..

 

[hsayar]

Sn Taruz accdb nin getirdiği bir yenilik (fazla kayıt tutma, çok veri küçük boyut vs yokmu yada getirdiği yenilikler nelerdir?

aşağıdaki aralığı nasıl değiştirmeliyim?

  With connMAHALLIBIRIM
        .Provider = "Microsoft.Jet.OLEDB.4.0"
'        .Properties("Extended Properties").Value = "Excel 8.0"
        .Properties("Data Source").Value = kynMHBRM
        .CursorLocation = adUseClient
        .Mode = adModeReadWrite
        .CommandTimeout = 60
        '.Properties("User ID") = vbNullString
        '.Properties("Password") = vbNullString
        .Open
    End With

tek satır için aşağıdaki gibi bir örnek buldum ama denemedim.

'Private Sub UserForm_Activate()
'    Dim cnt As New ADODB.Connection
'    Dim rst As New ADODB.Recordset
'
'    cnt.Open "Provider=Microsoft.Ace.OLEDB.12.0; [COLOR=Red]Persist Security Info[/COLOR] = False;" & _
'    "Data Source=T:\Trad\data\Quote Log.accdb;"
'    rst.Open "Select * From CaseNum", cnt
'    Sheets("List").Range("a1").CurrentRegion.ClearContents
'    Sheets("List").Range("A1").CopyFromRecordset rst
'    rst.Close
'    cnt.Close
'End Sub