Sorgu için arama sonuçları: adodb.Connection

Sayın VeyselEmre, Başta emeğiniz ve dönüşünüz için çok teşekkürler. Yazdığınız kodu çalışma dosyasına ekleyip veritabanının veriyolunu tanıttım. Ancak ekteki görselde görülen hatayı vermektedir. Nedeni ne olabilir acaba? Çok teşekkürler. Saygılarımla

...If Dir(fName) = Empty Then MsgBox fName & " bulunamadı!" GoTo cikis End If Set con = CreateObject("ADODB.Connection") con.Provider = "Microsoft.ACE.OLEDB.12.0" con.Properties("Data Source") = fName con.Properties("Extended Properties") = "Excel 12.0...

...Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set rs = CreateObject("ADODB.Recordset") Set baglan = CreateObject("ADODB.Connection") ' Access veritabanını aç baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Datalar.accdb" '...

...adOpenKeyset = 1 Const adLockOptimistic = 3 Set rs = CreateObject("ADODB.Recordset") Set baglan = CreateObject("ADODB.Connection") ' Access veritabanını aç baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Datalar.accdb" '...

Haluk Hocam merhaba, buradaki kodları aşağıdaki bilgiler ışığında nasıl uyarlayabiliriz? Çalışma dosyasının bulunduğu klasör içinde TEXT adında bir klasör var, klasörde 1'den fazla txt dosyası mevcut ThisWorkbook.Path & "\TEXT\TestFile1.txt ThisWorkbook.Path & "\TEXT\TestFile2.txt ...

...kac adet sutun yani, kac adet alan var....onu bulalim ve "ColumnCount" degiskenine atayalim! Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName objConn.Open...

Çok teşekkürler Haluk Hocam

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

...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 objConn.Open...

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

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

...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 * From...

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?

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

...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 & _ ";Extended...

...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 SH.Range("A2:K20000").ClearContents Set...

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

...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 + 1...

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