Bağlantı adresi tanımlama

orderyazbim · 23-05-2013, 13:36

Tüm form üyelerine iyi çalışmalar. Sorunumu ADODB bağlantısında bağlantı adresini form üzerinden tanımlaya bilirmiyiz. Vb.İçinde bilinen birkaç yoldan tanımlama çalıştım Örn;
Aşağıdaki gibi tanımlarım fakat olmadı.
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "Data Source='" & "Forms![deneme].Form![BağlantıAdresi]'"
Dim rs As New ADODB.Recordset
rs.Open "t_denemetable", cn, adOpenKeyset, adLockOptimistic

Sorun1: Yukarıdaki ADODB bağlantısında “C:\Documents and Settings\DinamikArge\Desktop\DenemeKlasörü\BağlantıAdresi.mdb'” bağlantı adresini form üzerinden başvuru olarak yapabilirmiyiz. (Örneğin Ana form üzerindeki bir denitmde bu adresi elle yada path açarak belirleyip, yukarıdaki Kod içerisindeki başvuru adresini bu denetimden aldırabilirmiyiz.)

Sorun2: İlk açılışta Ana formdaki bağlantıyı kontrol edip bağlanıldığında çalışma devam edecek bağlantı sağlanmadığında bağlantının sağlanması için Path açılıp bağlantı adresini istiyecek.

Amaç: Veritabanı adresi değiştiğinde bu bağlantıları tek noktadan güncellemek.

Saygılarımla iyi çalışmalar.

jon206 · 23-05-2013, 16:27

mrb.lar;
formun kod sayfasına alttaki kodu yapıştırın...
me.baglantiadresi 'ni ana formdan aldım

Visual Basic
Private Sub Form_Open(Cancel As Integer)
On Error GoTo hata: 'hata olduğunda hata: git diyoruz..
Dim cn As New ADODB.Connection
'-bağlanti tanınlıyoruz..
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0" & _
    ";Data Source='" & Me.BağlantıAdresi & "';"
    .Open
End With
On Error GoTo err_hata:
Dim rs As New ADODB.Recordset
rs.Open "t_denemetable", cn, adOpenKeyset, adLockOptimistic
 
 
 
 
'--yapılacak işler
'---
'---
 
 
Exit Sub
err_hata:
MsgBox "seçilen dosyada t_denemetable yok "
GoTo hata
 
hata:
MsgBox "bağlantı sorunu lütfen dosyayı seçiniz.. ", vbCritical, "Bağlanti"
'dosyayı seç diyoruz..
Call BrowseForFile
Resume Next
End Sub
Function BrowseForFile()
Dim sBrowseFilter, oBrowseDialog
sBrowseFilter = "Access Dosyalari (*.mdb)|*.mdb"
Set oBrowseDialog = CreateObject("UserAccounts.CommonDialog")
oBrowseDialog.Filter = sBrowseFilter
oBrowseDialog.Flags = &H80000 + &H4 + &H8
oBrowseDialog.ShowOpen
BrowseForFile = oBrowseDialog.FileName
End Function

orderyazbim · 23-05-2013, 22:25

İlgi ve alakanız için çok teşekkürler sayın jon206 uygulama çalıştı.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Internet Bağlantı Kontrol	zilli	19	9.414	26-01-2024, 14:43 Son Mesaj: ates2014
	Dao Içinde Alan Adını Değişken Olarak Tanımlama	alperalper	1	500	02-03-2023, 12:29 Son Mesaj: alperalper
	[FORM] Iki Açılır Kutu Arasında Bağlantı Sorunu	derzulya	2	427	26-10-2022, 13:22 Son Mesaj: derzulya
	[VBA] Recordset Kaynağını Sorgu Olarak Tanımlama	alperalper	12	1.109	24-08-2022, 15:40 Son Mesaj: halily
	[VBA] Masaüstü Adresi	benuva	7	616	07-08-2022, 11:45 Son Mesaj: halily
	[FORM] Müşteri Için çoklu Müşteri Adresi Ekleme Kullanma	anno	4	739	10-10-2021, 20:24 Son Mesaj: dsezgin
	Access Outlook Bağlantı	erdenferdi06	2	569	07-12-2020, 22:49 Son Mesaj: erdenferdi06
	çoka çok Ilişkili Iki Tabloda, Karmaşık Ilişki, Bağlantı	tarkanaykın	3	707	21-10-2020, 17:10 Son Mesaj: tarkanaykın

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL