Sorgu için arama sonuçları: adodb

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

...dzUygun = Sayfa1.Range("MusaitPersonel") Set UyGun_Rs = CreateObject("ADODB.Recordset") With UyGun_Rs .Fields.Append "Kisi", 200, 100 .Fields.Append "UyGun", 200, 100 .Fields.Append "NobetSay", 3 .Fields.Append "UyGunSay", 3 .Open...

Ç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

...tür önerileriniz 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 =...

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

...yoksa INSERT INTO komutuyla veri kaydını yapacaksınız. İşte sorununuzu çözmek için düzenlenmiş kod örneği: Dim sSql As String Dim rs As ADODB.Recordset Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Open "Provider=sqloledb;Data Source=sunucu;Initial Catalog=kasa;User...

...etmeye çalışıyorum. Normal kayıt işleminde sorun yok ama where ile koşul verince where komut hatası alıyorum. Dim sSql As String Dim rs As ADODB.Recordset Dim cn As ADODB.Connection Dim cmdObj As ADODB.Command Dim qf As Object Dim mySubtotal As Double Set cn = New ADODB.Connection cn.Open...

Hocam çok teşekkürler dönüşünüz için. ilk makroda şu kod cn.Execute strSQL hata verdi. Sonra dosya yolunda kullanıcı profilini sinan yaptım. bu sefer .Open kodu hata verdi. bende, başka dosyamda bir ADO SQL ile çalışan sorunsuz makrolarım var. Acaba bu dosyada VBA ayarlarında yapmam gereken...

Bu da ADODB örneği... Hızlarını siz karşılaştırırsınız.. Option Explicit Sub Sort_With_Multiple_Column_ADODB() Dim My_Connection As Object Dim My_Recordset As Object Dim My_Query As String Dim WS As Worksheet Dim My_Source_Range As Range Dim My_Sort_Range As Range...

Hocam teşekkürler, 1. yöntemde: RS.MoveLast satırında Tugkan Hocam teşekkürler, 2. yöntem gayet güzel çalışıyor. 1. yöndemde; RS.MoveLast satırında aşağıdaki hatayı verdi, Run-time error ‘-2147217884 (80040e249’: Satır Kümesi geriye doğru getirmeyi desteklemiyor tekrar teşekkürler, iyi...

...Dim Con As Object Dim RS As Object Dim yol As String Dim sorgu As String Dim r As Long Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data...

...nasıl alabiliriz yardımlarınız için şimdiden teşekkürler, iyi Çalışmalar. Sub sorguu() Dim Con As Object Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _...

aşağıdaki kodu dener misiniz? Türkçe karakter desteği için CreateObject("ADODB.Stream") ile .Charset = "UTF-8" kullanılmıştır Sub CSV_Stream_hy() Dim folderPath As String Dim csvFile As String Dim ws As Worksheet Dim lastRow As Long Dim fileName As String Dim...

...As String, Sorgu As String WB1 = ActiveWorkbook.FullName WB2 = ActiveWorkbook.Path & "\KAPALI.xlsx" Set Baglanti = CreateObject("AdoDb.Connection") Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ WB1 & "; Extended Properties=""Excel...

...Dim rs As Object Dim md1 As String Dim Sorgu As String Dim dataArray As Variant Dim i As Long Set Con = VBA.CreateObject("adodb.Connection") md1 = "C:\Belgelerim\Kitap.xlsb" Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & md1 & ";extended...

Private Sub CommandButton1_Click() Set Con = VBA.CreateObject("adodb.Connection") md1 = "C:\Belgelerim\Kitap.xlsb" Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & md1 & ";extended properties=""Excel 12.0;hdr=yes""" Sorgu = "select * from [Sayfa1$A1:K]" Set rs...