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

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

...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 '___________________________________________________________ Con.Open...

Çok teşekkür ederim Halil Hocam iyiki varsınız! şimdi benim bu alagoritmayı iyice bir içselleştirdikten sonra biraz geliştirmek istiyorum. Örnek: şimdiye kadar 2. alanı (x1, x2) kontrol ediyorduk, şimdi bana düşen aynı şekilde 3. alanı da (x3) buraya entegre etmek olacak Selamlar, Saygılar.

...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.ClearContents '___________________________________________________________ 'Dim DzK() As...

Müsait olunca ilk fırsaata deneyeceğim Hocam Çok teşekkür ederim, emeğinize sağlık!

...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.ClearContents '___________________________________________________________ Set dict =...

...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.ClearContents Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended...

...uygun sorgu nasıl düzenlebilir? Sub sorguu() Dim Con As Object Dim Sorgu As String Dim yol As String Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol &...

...As String Dim rs As Object Dim baglan As Object ' Bağlantıyı açmak için Set baglan = CreateObject("ADODB.connection") baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Datalar.accdb" ' Text kutusundaki değeri al...

MERHABA BEN office365 kullanıyorum sanırım bu kodlar benim excel e uymuyor hocam uyarladım çalışmıyor zaten teşekkürler. bunun office365 e uyumlu olanı olsaydı denerdim.

...Dim No As String -------------------------------- Sub TCSorgula() On Error Resume Next Set My_Connection = CreateObject("AdoDb.Connection") Set My_Recordset = CreateObject("AdoDb.Recordset") My_Connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _...

...WB2 = "D:\SU SİRKÜLASYON.xlsm" Set WS = ThisWorkbook.Sheets("Sheet1") Set My_Connection = VBA.CreateObject("AdoDB.Connection") Set My_Recordset = VBA.CreateObject("AdoDB.Recordset") On Error GoTo ErrorHandler My_Connection.Open...

Hocam dediklerinizi uyguladım çalışmadı.Eğer sorun oluyorsa yazdıklarım mesajlar silinebilir başkasının konusu olduğu için. https://dosya.co/42itg5lhhj6n/sqliteden_excele_Ado_ile_utf-8_siz.zip.html

İlk fırsatta deneyeceğim hocam.Garip olan sqlite proğramlarında sorgu ile sıralamada dediğim sorun oluyordu.

...= 3 ekleyince Türkçe sıralamada sorun çıkarmadı Sub xSıraliVeri() Dim con As Object, rs As Object Set con = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") con.Open "DRIVER=SQLite3 ODBC Driver;Database=" & ThisWorkbook.Path & "\deneme.db;"...

Çok teşekkür ederim Hocam, iyi hafta sonları..

Public Function Baglan() As ADODB.Connection Dim adoCN As ADODB.Connection Dim DatabasePath As String Set adoCN = New ADODB.Connection DatabasePath = ThisWorkbook.Path & "\VT.mdb" On Error GoTo ErrorHandler adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"...

deneyip, size dönüş yapacağım Hocam

...olabilir? destekleriniz için şimdiden teşekkürler, Sub Connect() Dim myPath As String Dim SQL As String Set cn = New ADODB.Connection Set RS = New ADODB.Recordset myPath = ThisWorkbook.Path With cn .Provider = "Microsoft.ACE.OLEDB.12.0"...

Sorunumu çözdü, çok teşekkür ederim.