Merhabalar.
Aşağıdaki kodlar ile xml dosyası oluşturuluyor.
Burada Call baglanti yerine direk baglan connectionu nasıl yazabiliriz.
Teşekkür ederim.
Aşağıdaki kodlar ile xml dosyası oluşturuluyor.
Burada Call baglanti yerine direk baglan connectionu nasıl yazabiliriz.
Teşekkür ederim.
Kod:
Sub KayitSetiniXMLOlarakKaydet()
Dim rs As New ADODB.Recordset
Call Baglanti
Set rs = New ADODB.Recordset
rs.Open "select * from VERILER", Baglan, 1, 1
rs.Save "c:\EVN.xml", adPersistADTG
Set rs = Nothing
Set Baglan = Nothing
End Sub