AccessTr.neT

Tam Versiyon: ADODB.Recordset
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Kod:
Option Compare Database
Private Sub Komut32_Click()

DoCmd.DeleteObject acTable, "Currency"
Application.ImportXML DataSource:="http://www.tcmb.gov.tr/kurlar/today.xml", ImportOptions:=acStructureAndData

Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

    rst.Open "SELECT Isim, DövizAlış , DövizSatış, EfektifAlış , EfektifSatış from qryTCMB where Isim = 'AMERİKAN DOLARI'", _
    CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Me.usdal.Value = rst.Fields("EfektifAlış")
    Me.usdsat.Value = rst.Fields("EfektifSatış")
  
    Set rst = Nothing
            
    Metin15 = usdal
    Metin17 = usdsat

End Sub

2007 kullanıyorum. İndirdiğim örnek çalışıyor ama kendi programına uyarlamaya çalıştığımda hata veriyor. "rst As ADODB.Recordset" seçiyor ve User-defined type not defined hatası veriyor. Kendi dosyamı yükleyemiyorm oldukça büyük. Şimdiden sağolun.

Not: Kendime uyarladığım değil indirdiğim dosyayı gönderbiliyorum.
vb penceresini aç, referanslara "Microsoft Ado Ext. 2.8 for DDL and Security"i ekle, düzelmez ise örneğini ekle
İlgin için sağol ama yine yapıyor
örneğini "Araçlar / Veritabanı Hizmet Programları / Veritabanı Sıkıştır ve Onar" ile onarıp sıkıştırma programıyla sıkıştırdıktan sonra

http://www.4shared.com veya http://www.rapidshare.com 'a ekleyip indirme linkini konuya yaz. Örneğin üzerinden düzenleme yapalım.
http://rapidshare.com/files/319148853/Kur_Getir.zip

ilk verdiğim dosyayı bu haliyle çalıştırabiliyorum başka yerde yaptığımda olmuyor maalesef
Bende onu diyorum, olmayan başka yer olarak bahsettiğin örneği ekle. Bakıp çözüm bulmaya çalışalım.
Sayfalar: 1 2