ADODB.Recordset - Baskı Önizleme

ADODB.Recordset - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: ADODB.Recordset (/konu-adodb-recordset.html)

Sayfalar: 1 2

ADODB.Recordset - serayhefe - 11/12/2009

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.

Cvp: ADODB.Recordset - ozanakkaya - 11/12/2009

vb penceresini aç, referanslara "Microsoft Ado Ext. 2.8 for DDL and Security"i ekle, düzelmez ise örneğini ekle

Cvp: ADODB.Recordset - serayhefe - 11/12/2009

İlgin için sağol ama yine yapıyor

Cvp: ADODB.Recordset - ozanakkaya - 11/12/2009

ö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.

Cvp: ADODB.Recordset - serayhefe - 11/12/2009

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

ilk verdiğim dosyayı bu haliyle çalıştırabiliyorum başka yerde yaptığımda olmuyor maalesef

Cvp: ADODB.Recordset - ozanakkaya - 11/12/2009

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