Sorgu için arama sonuçları: adodb

hocam çalıştı harikasınız ellerinize sağlık tuğkan hocam siz de çok sağolun yardımlarınız için minnettarım, yaklaşık parça parça olmak üzere 20.000 sayfa rapor inceleyeceğim 25-30 adet bir dizi kelimeyi bulup renklendirdiğimde inceleme işim çok kolaylaşacak kıymetli zamanlarını bana ayırıp...

...As String Dim kelime As Variant Dim count As Integer myFile = "C:\DosyaYolu\file.txt" Set adoStream = CreateObject("ADODB.Stream") adoStream.Type = 2 ' Metin tipi adoStream.Charset = "utf-8" adoStream.Open adoStream.LoadFromFile myFile fileContent =...

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

...için kodunuzu şu şekilde revize edip deneyebilir misiniz; Sub Connect() Dim myPath As String Dim SQL As String Dim cn As ADODB.Connection Dim RS As ADODB.Recordset Set cn = New ADODB.Connection Set RS = New ADODB.Recordset myPath = ThisWorkbook.Path With cn...

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

...deneyip sonucu paylaşabilir misiniz; Verileri kapalı dosyaya yazmak için şunu kullanın; Sub VerileriKapaliDosyayaYaz() Dim cn As ADODB.Connection Dim cmd As ADODB.Command Dim strSQL As String Dim i As Integer Dim sValues As String Dim DosyaYolu As String Dim rng...

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=" & _...