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

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

...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 Properties=""Excel...

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

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

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

...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 & "\DB\Db.accdb"...

...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 wsRapor Is Nothing Then...

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.

...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 & "\Saha.accdb" ' SQL...

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.

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

...Set RS = VBA.CreateObject("adodb.RecordSet") yol = ThisWorkbook.FullName Set Con = CreateObject("adodb.connection") With Con .provider = "Microsoft.ACE.OLEDB.12.0" .connectionstring = "Data Source=" & yol & ";Extended Properties=""Excel 12.0;""" .Open End With Sorgu = "Select...

...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 properties=""Excel...

...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 "provider=microsoft.ace.oledb.12.0;data...

...& "\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 Properties=""Excel...

...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 Properties=""Excel 12.0...

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