• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ADO Bağlantı Sorgusu

  • Konbuyu başlatan Konbuyu başlatan tuvons
  • Başlangıç tarihi Başlangıç tarihi
Katılım
9 Ekim 2019
Mesajlar
109
Excel Vers. ve Dili
Standart 2016
Merhaba,

Aşağıdaki kodların sonundaki "rs1.Open Sorgu1, conn, 1, 1" yazan yerdeki 1, 1 ne anlama geliyor? Araştırdım fakat bulamadım. Yardımcı olabilir misiniz?

Kod:
Dim conn As Object, rs1 As Object
Set conn = CreateObject("adodb.connection")
Set rs1 = CreateObject("adodb.recordset")

dosyaYol = "\\xxxxx\Dosya.xlsb"
conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
        "'" & dosyaYol & "';extended properties=""excel 12.0;hdr=yes;imex1"""

Sorgu1 = "Select SIFRE From [Sayfa1$] where KULLANICI = '" & kullanici & "' "
rs1.Open Sorgu1, conn, 1, 1
 
Geri
Üst