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?
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