Sorgu için arama sonuçları: adodb

Hocam öncelikle teşekkürler, Ekli dosyada göreceğiniz gibi, Kalite bilgisini sütundan değil; sabir bir değer olarak aldığımız zaman; Toplam değeri doğru gelmiyor. Ekli dosyada Pivot Tablo ile kontrol ettim. tekrar teşekkürler, iyi Pazarlar Kalite = "1.Kalite" uSQL = "SELECT Sum(Miktar2) AS...

...myList2, myList3 Set SH = Sheets("1") LR = SH.Cells(SH.Rows.Count, "E").End(xlUp).Row myFile = ThisWorkbook.FullName Set RS = CreateObject("ADODB.Recordset") Con = "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & myFile & _ ";Extended Properties=""Excel 12.0;Hdr=YES""" myList1 =...

...As Long Dim ie1 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...

...Range("H34:H42").ClearContents 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"...

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

...a = rs2.RecordCount 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...

...şimdiden teşekkürler, 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...

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

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

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

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

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

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

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

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

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

...Dim objStream As Object, strRetVal As String Const adTypeText = 2 Const adReadAll = -1 Set objStream = CreateObject("ADODB.Stream") objStream.Open objStream.Charset = "Windows-1254" objStream.WriteText strText objStream.Position = 0...