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

Korhan bey teşekkürler, bu kodlar bende çalışıyor ve sonuç alıyorum.

...As Date, Last_Date As Date If TextBox2 = "" Or TextBox3 = "" Then Exit Sub Set My_Connection = CreateObject("AdoDB.Connection") First_Date = TextBox2 Last_Date = TextBox3 My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _...

...My_Connection As Object, My_Query As String Dim First_Date As Date, Last_Date As Date Set My_Connection = CreateObject("AdoDB.Connection") First_Date = TextBox2 Last_Date = TextBox3 My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _...

...As Variant, ie2 As Variant Set SH = Sheets("1") LR = SH.Cells(SH.Rows.Count, "A").End(xlUp).Row Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") myFile = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile...

...Application.ScreenUpdating = False Application.DisplayAlerts = False Time1 = Now Set baglan = CreateObject("adodb.connection") Set rs = CreateObject("adodb.recordset") sayfAdi = Sayfa4.Range("B4") dosyaYolu = ThisWorkbook.Path & "\bodro-2023.xls" baglan.Open...

Hocam teşekkürler, değişen bir şey olmadı rs2.Open SQL, cn, adOpenKeyset, adLockOptimistic gördüğüm kadarıyla sadece bu satırı değiştirmişsiniz,

Aşağıdaki kodları deneyin ltf.. Public cn As ADODB.Connection Public rs As ADODB.Recordset Public rs2 As ADODB.Recordset Sub Connect() Set cn = New ADODB.Connection With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path &...

...sonucunu 11 olarak veriyor desteğiniz için şimdiden teşekkürler, iyi Hafta Sonları Public cn As ADODB.Connection Public rs As ADODB.Recordset Public rs2 As ADODB.Recordset Sub Connect() Set cn = New ADODB.Connection With cn .Provider =...

...iyi akşamlar. Sub UpdateTable2(MyFile As String) Dim Con, RS As Object Dim uSQL As String Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") Sheets("2").Range("A2:Z100000").ClearContents Con.Open "provider=microsoft.ace.oledb.12.0;data source=" &...

...Dim s1 As Worksheet Dim oran1 As Double, oran2 As Double, oran3 As Double, oran4 As Double, oran5 As Double Set evn = CreateObject("adodb.connection") dosya = ThisWorkbook.Path & "\ADAveri.mdb" evn.Open "provider=Microsoft.ACE.OLEDB.12.0;data source= & dosya;Jet OLEDB: Database Password...

...sFile End Sub Sub UpdateTable2(myFile As String) Dim Con, RS As Object Dim uSQL As String Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel...

Teşekkürler Hocam;

şimdi oldu Korhan Hocam, olayın püf noktası neydi? Başlıkların olmaması mı? teşekkürler,

Merhaba, Sub UpdateTable(myFile As String) Dim Con, RS As Object Dim uSQL As String Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel...

...= SH.Cells(SH.Rows.Count, "A").End(xlUp).Row SH.Range("D2:D" & LastRow).ClearContents Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.RecordSet") myPath = ThisWorkbook.Path myFile = myPath & "\KaynakDosya.xlsx"...

...Dim RS As Object Dim uSQL As String, iSQL As String Dim raf As String, ac As String Dim Veri As Variant Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended...

...Then UpdateTable sFile End Sub Sub UpdateTable(myFile As String) Dim Con As Object Dim RS As Object Set Con = VBA.CreateObject("adodb.Connection") Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ myFile & ";extended properties=""Excel 12.0;Hdr=Yes;IMEX=1""" uSQL =...

...Sayfa1 LastRow = SH.Cells(SH.Rows.Count, "A").End(xlUp).Row SH.Range("D2:D" & LastRow).ClearContents Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.RecordSet") myPath = ThisWorkbook.Path myFile = myPath & "\KaynakDosya.xlsx" Con.Open...

...Ben sonuca ulaştım. Sub ADOB_ORNEK() 'Referanslardan Microsoft ActiveX Data Objcets .... seçilmelidir Dim connection As New ADODB.connection Dim DosyaAdi As String Dim query As String Dim rs As New ADODB.Recordset Dim i As Integer Sayfa2.Range("A1").ClearContents...

Merhaba, Aşağıdaki kodu basitçe yazmaya çalıştım başta. Soru olursa yine cevaplarım. Sistemi açıklayayım Ayrı bir kayıpliste.xlsx olarak dosyam var, buradan belirli tarih aralığında olan verileri çekmek istiyorum. kayıpliste.xlsx dosyası SAP uygulamasından çekilen bir rapor. Yani o raporu hiç...