Sorgu için arama sonuçları: adodb

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

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