Sorgu için arama sonuçları: adodb

...wsSonuc As Worksheet Set wb = ThisWorkbook Set wsSonuc = wb.Sheets("Sonuç") ' ADO bağlantısı Set cn = CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & wb.FullName & ";" & _ "Extended...

Çok teşekkür ederim Korhan Hocam iyi ki varsınız, sağ olun, var olun !

...Dim X_Fields As String Dim S1 As Worksheet Application.ScreenUpdating = False Set My_Connection = VBA.CreateObject("AdoDb.Connection") My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ ThisWorkbook.FullName & ";Extended...

çok teşekkür ederim.

...WinHttp.Send If WinHttp.Status = 200 Then Dim stream As Object Set stream = CreateObject("ADODB.Stream") stream.Type = 1 stream.Open stream.Write WinHttp.responseBody stream.SaveToFile tempFile, 2...

...Özetle Kalem kodu Sub getBillsData() Dim SQL As String Dim field As String ''On Error Resume Next baglan Set RS = VBA.CreateObject("adodb.recordset") Sayfa1.Range("A2:Z200000").ClearContents SQL = "SELECT * From [Data$] WHERE MalGrubu = 'G1'" SQL = SQL & " ORDER BY...

Çok Teşekkür ederim Hocam iyi Çalışamalrar.

Option Explicit Dim Con As Object Dim SH As Worksheet Dim SHT As Worksheet Sub baglan() Dim yol As String Set Con = CreateObject("ADODB.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended...

...Option Explicit Dim Con As Object Dim SH As Worksheet Dim SHT As Worksheet Sub baglan() Dim yol As String Set Con = CreateObject("ADODB.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended...

...yıl = Format(tarih, "yyyy") SQLDate = "#" & ay & "/" & Gun & "/" & yıl & "#" End Function Sub Connect() Set cn = New ADODB.Connection With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source = " & ThisWorkbook.Path &...

...Listele_ADO() Dim cn As Object, rs As Object Dim wsRapor As Worksheet, i As Long ' Sayfaları ayarla Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") On Error Resume Next Set wsRapor = ThisWorkbook.Sheets("Rapor") If...

teşekkürler Hocam

...öyleyse aşağıdaki gibi bir düzenleme işinize yarayabilir. SQL = " SELECT * FROM " & tableName SQL = SQL & " Where ID =1" Set rst = New ADODB.Recordset rst.Open SQL, cn, 1, 3 TotalRecord = rst.RecordCount sayac = 1 Do While Not (rst.EOF) rNumber = rst(0)...

...sayısı kadar değil, 10 sayacı kadar olacak Bu şekilde döngü nasıl düzenlenebilir ? desteğiniz için şimdiden teşekkürler. Set rst = New ADODB.Recordset SQL = " SELECT * FROM " & tableName SQL = SQL & " Where ID =1" rst.Open SQL, cn, 1, 3 TotalRecord = rst.RecordCount...

...i ' Kaydedilecek dosya yolu filePath = Application.ThisWorkbook.Path & "\Veriler.txt" ' UTF-8 ile dosyaya yazma Set stream = CreateObject("ADODB.Stream") With stream .Charset = "utf-8" .Open .WriteText txtLines .SaveToFile filePath, 2 .Close End With Set stream = Nothing MsgBox "Dosya...

Size de teşekkürler ilginiz için fakat bu kodları uygularken hata aldım. Belki bir yerde ben yanlış yaptım. @pitchoute adlı arkadaşımızın gönderdiği kodlar işimi fazlasıyla gördü.

...= Array("Satır No", "Anahtar Kelime", "Tutar") satir = 2 ' ADO bağlantısı Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") ' Bağlantı dizesi - sadece .xlsx için uygundur conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _...

Hocam günaydın kusuruma bakmayın yeni bakabildim elinize sağlık çok teşekkür ederim.

...As String Dim i As Integer Dim rowData(0 To 15) As String ' 0 tabanlı dizi çünkü .List kullanacağız ' Bağlantı oluştur Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path &...

Halil bey çok teşekkür ederim ya böyle bir şeyin mümkün oldugunu bile düşünmemiştim. Nasıl oldu bende anlamadım valla. Para versek böyle olmaz. Hocam gerçekten çok sağolun.