Sorgu için arama sonuçları: adodb

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

...Dim cnn As Object, rs As Object Dim sql As String Dim i As Integer Dim rowData(0 To 15) As String Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path &...

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

...CBIL.BoundColumn = 2: CBILCE.BoundColumn = 2: CBSEMT.BoundColumn = 2: CBMAHALLE.BoundColumn = 2 Set adoCon = CreateObject("ADODB.Connection") strSQL = "SELECT IL_ADI, PLAKA FROM [İL$] WHERE NOT PLAKA IS NULL" If adoCon.State = 0 Then adoCon.Open...

Adodb kullanarak birkaç veriyi çekip tek hücrede birleştiriyorum fakat bu birleştirme sonrasında hücre içerisindeki bazı kelimeleri kalın yapmak istiyorum yazdığım kodun örneğini paylaştım burada hata var mı? Teşekkürler For Each hucre In analiste.Range("C1:C" & sonsatirc) If Not...

...Sub SorguAdet_hy_6_1() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.Clear '___________________________________________________________...

1- 2 puan o kadar önemli değil Hocam, sabrınız ve yardımalrınız için çok teşekkürler Sağ olun, var olun....

...9 Sub SorguAdet_hy_6() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.Clear '___________________________________________________________...