Sorgu için arama sonuçları: adodb

...myFile = ThisWorkbook.Path & "\Data.xlsx" If Dir(myFile, vbDirectory) <> "" Then Kill myFile Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

...= "F" & i adoTable.Columns.Append adoColumn Next adoCAT.Tables.Append adoTable Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...

...DosyaYolu = "[Excel 12.0 Xml;HDR=No;IMEX=0;DATABASE=" & ThisWorkbook.Path & "\Data.xlsm].[Rapor$]" Set Conn = VBA.CreateObject("adodb.Connection") With Conn .Open " provider=microsoft.ace.oledb.12.0;data source=" & yol & _ " ;extended properties=""Excel...

...sorgu As String Set SH = Sheets("Rapor") SH.Cells.ClearContents Yol = ThisWorkbook.FullName Set Conn = VBA.CreateObject("adodb.Connection") Conn.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ Yol & ";Extended Properties=""Excel 12.0;Hdr=No"""...

...Dim RS As Object Dim sorgu As String Set SH = Sheets("Rapor") SH.Cells.ClearContents yol = ThisWorkbook.FullName Set Conn = VBA.CreateObject("adodb.Connection") Conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel 12.0;hdr=No""" sorgu = "Select...

teşekkürler Veysel Hocam iyi seneler...

...Source=" & pth strSql = "SELECT * FROM " & fName & " WHERE F14=1 AND F15=0" With Sheets("Sayfa1") .Cells.ClearContents Set rs = CreateObject("ADODB.Recordset") rs.Open strSql, strCon .Range("A1").CopyFromRecordset rs rs.Close End With End Sub

Haluk Hocam önclikle mutlu yıllar, Yeni yılın hepimize sağlık, mutluluk ve huzur getirmesi dileğiyle... ekli txt dosyasında virgül ile ayrılmış 15 değer (sütun) bulunmakta; Burada şu şekilde bir sorgu oluşturabiliyor muyuz? 5. sütunda "1" olanlar, 6. sütunda "0" olanlar gibi WHERE [F5]=1...

@Haluk merhaba, Yukarıdaki kodu kullanıyorum. Yaratılacak dosya sayısı fazla olduğunda, belli bir dosyayı oluşturduktan sonra aşağıdaki hatayı alıyorum. Bu hatayı nasıl geçebilirim?

...hata verdi. Sub AdoLeftJoin() Dim con As Object, rs As Object, qStr As String, myPath As String, clsPath As String Set con = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") myPath = ThisWorkbook.FullName clsPath = "C:\Users\admin\Desktop\Mdemir\Data.xlsx" con.Open...

...Set SH = Sheets("Data") myPath = ActiveWorkbook.Path WB1 = ActiveWorkbook.FullName WB2 = myPath & "\Kaynak.xlsx" Set adoCN = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.Recordset") adoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & WB1 & _...

...kesildi" diye kod hata veriyor, Bu konuda nasıl bir çözüm önerisi önerebilirsiniz teşekkürler, iyi akşamlar. Sub xRapor3() Dim Con As ADODB.Connection Dim RS As ADODB.Recordset Dim SH As Worksheet Dim strConn As String Dim myFile As String Set SH = Sayfa5...

Çok teşekkür ediyorum ellerinize sağlık yanlız söyle bir sorun var bazı excel dosyaların içinde sadece data yada sadece komax var oyuzdende hata verıyor sanırım sız hepsınde 2 sı var olarak ayarladınız.birde hata verdiği varyantıda yazma sansımız varmı bu sekılde cunku 50 60 excel dosyasında tek...

..."Klasör Adı: " & subfolder.Name End If Next subfolder End Sub Sub DosyaVeriAl(DosyaAdi As String) Dim connection As New ADODB.connection Dim DosyaAdı As String Dim query As String Dim rs As New ADODB.Recordset Dim i As Long Dim j As Integer On Error GoTo Devam Adet = Adet...

...As Variant, tas1 As Double, deg1 As Double, tas2 As Double, deg2 As Double) Dim RS As Object Dim qry As String Set RS = CreateObject("ADODB.Recordset") qry = "Select [F4],[F5],[F6],[F7] From [Ring$A2:H]" & _ " Where [F2] = '" & kod & "'" RS.Open qry, Conn, 1, 3 If Not...

...rs As Object, sorgu As String, Yol As String Dim Fso As Object, klasor As Object, dosyalar As Object, satir As Integer Set con = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") Set Fso = CreateObject("Scripting.FileSystemObject") Set klasor =...

...#FileNum, "Col4=F4 Date" Print #FileNum, "DateTimeFormat=yyyy/mm/dd hh:nn:ss" Close #FileNum Set adoCN = CreateObject("ADODB.Connection") If Val(Application.Version) < 14 Then adoCN.Provider = "Microsoft.Jet.OLEDB.4.0" adoCN.Properties("Extended...

...çalıştırmaya çalıştığım vba kodu: Sub VeriCek() Dim baglanti As Object Set baglanti = CreateObject("ADODB.Connection") ' Bağlantı dizesini güncelleyin baglanti.Open "Driver=Firebird/InterBase(r)...

...& "\Kaynak.xlsx" LR = SH.Cells(SH.Rows.Count, "A").End(xlUp).Row SH.Range("F2:F" & LR).ClearContents Set Cn = CreateObject("ADODB.CONNECTION") With Cn .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & _...

...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("AdoDB.Recordset") Sheets("rapor").Range("A2:E" & Rows.Count).ClearContents...