Sorgu için arama sonuçları: adodb

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

Öncelikle iyi akşamlar diliyorum. Hocam henüz çok acemiyim makrolar konusunda. Acaba örnek çalışmaya uyarlamanız mümkün mü bu çalışmayı. Saygılar sunuyorum.

...Objecs'in son sürümünü seçiniz. Sub ADOB_ILE_AKTAR() 'Tolls/Referans/Microsoft Aktives Data Objecs x.x Library Dim connection As New ADODB.connection Dim DosyaAdı As String Dim query As String Dim rs As New ADODB.Recordset...

...teşekkürler, iyi çalışmalar. Public Sub verticalUpdate(ByVal Alan As String, ByVal ie As Variant, item As Variant, deger As String) Dim RS As ADODB.Recordset Dim veri As Variant Dim SQL As String On Error GoTo ErrorHandler ' - ' - ' - ' - ' - ' - ' - ' - ' - ' - ' - ' - ' - ' - '...

...My_File As Variant, My_Recordset As Object File_Path = "\\Network_Path\Desktop\Book1.xlsx" Set My_Connection = CreateObject("AdoDb.Connection") Select Case Val(Application.Version) Case Is < 12 My_Connection.Open "Provider=Microsoft.Jet.OleDb.4.0;Data...

...sağlayan revize kod aşağıdadır; Option Explicit ' Sub Test() ' Haluk - 29/09/2023 ' sa4truss@gmail.com ' Dim objADO As ADODB.Connection Dim strFile As String, strSQL As String Dim objRS As ADODB.Recordset Dim arrBelgeNo As Variant Dim i As Integer, j As Integer...

...= Application.GetOpenFilename("Text Files, *.txt", , "Dosya seçin...") If MyFile = False Then Exit Sub Set adoStream = CreateObject("ADODB.Stream") adoStream.Charset = "UTF-8" adoStream.Type = adTypeText adoStream.Open adoStream.LoadFromFile (MyFile) strFile =...

...teşekkürler, iyi akşamlar. Sub sorguu() Dim myPath As String myPath = "G:\Drive\Egitim\Dosyalar" Set con = VBA.CreateObject("adodb.Connection") yol = myPath & "\Satış.xlsx" con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel 12.0;hdr=yes"""...

...Dim adoCN As Object Dim strSQL, myFile As String Application.ScreenUpdating = False Set adoCN = CreateObject("ADODB.Connection") myFile = ThisWorkbook.FullName adoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myFile & _ ";Extended...

..." & _ "[Excel 12.0;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended Properties='HDR=Yes;']" Set objConnection = CreateObject("ADODB.Connection") objConnection.Open strConnection Set RS = objConnection.Execute(strQuery) For j = 0 To RS.Fields.Count - 1...