Sorgu için arama sonuçları: adodb

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

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

...aşağıdaki kolar ile alamıyorum. Yardımcı olacaklara şimdiden teşekkürler. 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...

...Çalışmalar Sub Test() Dim Con As Object sorgu = "Select F1, 'Split([F3], '_')(0) & " ' From [Panel$J2:AF] " Set Con = VBA.CreateObject("Adodb.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...

Verdiğiniz cevap biraz kafa karıştırıcı) Sorun çözüldü mü çözülmedi mi? Referans tanımlı mi değil mi anlamadım.

Aynen hocam ADODB konusuna pazar günü forumda çok değerli Erdem Akdemir hocamın youtube derslerine başladım. Çalıştığım firmada ağda veri almayı makro kaydet ile halletmiştim ama yavaş çalışıyordu. Bu video çok güzel anlatım ve örneklerle oluşturulmuş.

Eğer referanssız kullanmak isterseniz Dim xCN As Object Dim xRS As Object Set xCN = CreateObject("Adodb.Connection") Set xRS = CreateObject("adodb.Recordset") yol = "\\Server\logo\IHR.SAT_AKILLI_MUS_TKP_AJANDA_ANAYEDEKLERI\2_SELLER3_DEDAPACK.xlsm" xCN.ConnectionString =...

...user-defined type no defined şeklinde aşağıdaki gibi Dim ekleme yaptım aynı hatayı veriyor Sub bağlan() Sayfa5.Cells.Clear Dim con As ADODB.Connection Dim rs As ADODB.Recordset Set con = New ADODB.Connection Set rs = New ADODB.Recordset yol =...

Merhaba, Bulunduğu bilgisayarda çalışan aşağıdaki kod ile Ağdan veri almak istedeğimde "Set con = New ADODB.Connection" satırı hata veriyor. Nasıl düzeltebiliriz. Teşekkür ederim. Sub bağlan() Sayfa5.Cells.Clear Set con = New ADODB.Connection Set rs = New ADODB.Recordset yol =...