AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

ADODB.Recordset

1 2
11/12/2009, 01:48

serayhefe

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.
11/12/2009, 01:53

ozanakkaya

vb penceresini aç, referanslara "Microsoft Ado Ext. 2.8 for DDL and Security"i ekle, düzelmez ise örneğini ekle
11/12/2009, 01:56

serayhefe

İlgin için sağol ama yine yapıyor
11/12/2009, 02:16

ozanakkaya

ö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.
11/12/2009, 02:23

serayhefe

http://rapidshare.com/files/319148853/Kur_Getir.zip

ilk verdiğim dosyayı bu haliyle çalıştırabiliyorum başka yerde yaptığımda olmuyor maalesef
11/12/2009, 02:38

ozanakkaya

Bende onu diyorum, olmayan başka yer olarak bahsettiğin örneği ekle. Bakıp çözüm bulmaya çalışalım.
1 2