Sorgu için arama sonuçları: adodb

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.

...Referanssız ________________________________________________hy Dim SQL As String Dim xCon As Object Dim xRs As Object Set xCon = CreateObject("Adodb.Connection") Set xRs = CreateObject("adodb.recordset") Dim FSO As Object '//FileSystemObject Dim f As Object '//File Object Set Syf =...

...için nasıl bir yol takip edilebilir? Sub Chart_Value() Set SH = Sayfa1 SH.Range("A1:H10000").ClearContents Set RS = VBA.CreateObject("adodb.RecordSet") Sorgu = "Select [BRANS],[CİNSİYET], COUNT([ID_NO]) as Say From [Data$]" Sorgu = Sorgu & " Group BY [BRANS],[CİNSİYET]" RS.Open Sorgu...

...hocamın kodunun düzenlenmiş hali Sub Asil_Zeki() t1 = Timer Set SH = Sayfa5 SH.Range("A1:N10000").ClearContents Set RS = VBA.CreateObject("adodb.RecordSet") yol = ThisWorkbook.FullName Set Con = CreateObject("adodb.connection") With Con .provider = "Microsoft.ACE.OLEDB.12.0"...

...olur mu? Yardımlarınız için şimdiden teşekkür ederim. Set SH = Sayfa5 SH.Range("A1:N10000").ClearContents Set RS = VBA.CreateObject("adodb.RecordSet") ' ' A / / / / / / / / / / / / Sorgu = "Select [BRANS], COUNT([ID_NO]) From [Data$] Where [DURUM]= 'A'" Sorgu = Sorgu & "...

...sonsatir As Variant sonsatir = Sheets("Sayfa1").Range("A100000").End(xlUp).Row yol = ThisWorkbook.Path & "\dosya2.xlsm" Dim baglanti As New ADODB.Connection Dim rsK As New ADODB.Recordset baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended...

...olanı seçtim. Sorunun kaynağı ne olabilir acaba, yanlış uyarlama mı yaptım anlayamadım. Sub VeriGuncelle() Dim baglanti As New ADODB.Connection Dim rsK As New ADODB.Recordset yol = ThisWorkbook.Path & "\dosya2.xlsm" baglanti.Open...

...= ThisWorkbook.Path & "\Kapalı.xlsm" tarih1 = ws.Range("B1").Value tarih2 = ws.Range("C1").Value Set conn = CreateObject("ADODB.Connection") strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & kapaliDosya & ";" & _ "Extended...

...X As Integer Application.ScreenUpdating = False File_Path = ThisWorkbook.FullName Set My_Connection = CreateObject("AdoDb.Connection") My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & File_Path & _ ";Extended...

Hocam cevap için teşekkür ederim. Adodb konusunda gerçekten hiç anlamadım. İstediğim ise Kapalı dosya bir cari dosyası. F sütunu vadeleri gösteren sütun. Benim istediğim ise Açık B1 hücresinde yazan tarih ve öncesinde ne kadar dolan tutar var onu bulmak. Aynı işlemi C1 için de yapacağım...

Aleyküm Selam, Arşiv konuları faydalı olabilir.. https://www.excel.web.tr/search/1492742/?q=adodb&o=date

...imageUrl, False .send End With If xhr.Status = 200 Then Dim stream As Object Set stream = CreateObject("ADODB.Stream") With stream .Type = 1 'Binary .Open .Write xhr.responseBody .SaveToFile...