08/05/2013, 14:25
orderyazbim
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 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