AccessTr.neT

Tüm form üyesi arkadaşlara selamlar. Arkadaşlar aşagğıdaki ADO bağlantı kodundaki Data Sorch kaynağını form üzerinden yönetebilirmiyiz. Yani datanın bağlantı adresi "C:\Documents and Settings\DinamikArge\Desktop\08.05.2013EğitimDataKayıtÇalışması(ADO Bağlantılı)\ÇalışmaDataKlasörü" değiştiğinde bağlantı dizinini form üzerinden tanımlaya bilirmiyiz. Saygılarımla

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "Data Source='" & "C:\Documents and Settings\DinamikArge\Desktop\08.05.2013EğitimDataKayıtÇalışması(ADO Bağlantılı)\ÇalışmaDataKlasörü" & "\AdoBağlanData.mdb'"
Dim rs As New ADODB.Recordset
rs.Open "egt_tbl_anabaslık", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs(1) = Me.egitim_t_egitimkodu
rs(2) = Me.egitim_t_egitimadi
rs(3) = Me.egitim_t_not
rs.Update
rs.Close

Dim cnn As New ADODB.Connection

Set cnn = New ADODB.Connection

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\proje\vt.mdb;Persist Security Info=False"

cnn.Open

gibi kullanabilirsiniz.

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

cn.Provider = "Microsoft.Jet.OLEDB.4.0"

cn.Open "Data Source='" & "C:\Documents and Settings\DinamikArge\Desktop\08.05.2013EğitimDataKayıtÇalışması(ADO Bağlantılı)\ÇalışmaDataKlasörü" & "\AdoBağlanData.mdb'"

Benim düşündüğüm kod içindeki alttaki bölümü bir form üzerinde tanımlayabilirmiyiz. Yani metin kutusu denetimine alttaki bağlantı adresini yazıp bağlantı kurabilirmi.

C:\Documents and Settings\DinamikArge\Desktop\08.05.2013EğitimDataKayıtÇalışması(ADO Bağlantılı)\ÇalışmaDataKlasörü" & "\AdoBağlanData.mdb'


Örneğin veritabanı yeri, adı vb. değiştiğinden kod içindeki bağlantıyıda değiştirmemiz gerekecek ama bunu bir denetimden aldırabilirsek biz denetimin içindeki bağlantı adresini değiştiğimizde kod adresi buradan okuyacak. Olabilirmi.

Adresi kendiniz belirlemek istiyorsunuz anladığım kadarıyla. Bu işlem programın ilk başında yapılabilir. Kullanıcı giriş işlemi yapılan formda Data konumu diye bir seçim olur. Oradan dosyayı seçtirebilir ve değerini tabloda bir alana kaydedebilirsiniz. Yine değişiklik yapmak isterseniz menüden formu çalıştırabilirsiniz.

Teşekkürler sayın alpeki99. Saygılarla iyi akşamlar