Sorgu için arama sonuçları: adodb

Veysel Hocam çok teşekkür ederim, emeğinize sağlık;

...Sub test() Sheets("Hedef").Range("C2:D" & Sheets("Hedef").Cells(Rows.Count, 1).End(xlUp).Row).ClearContents With CreateObject("ADODB.CONNECTION") .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & _...

...Dim myPath As String Dim i As Long Dim LastRow As Long Dim deg As Variant Dim zaman As Double zaman = Timer Set Con = VBA.CreateObject("adodb.Connection") Set RS = VBA.CreateObject("adodb.Recordset") Set SH = ActiveWorkbook.Sheets("Hedef") SH.Range("D:Z").ClearContents LastRow =...

tüm satırların başına " tırnak sonuna " & _ şelindemi yapmalıyım. yoka kalan kodları direk yapıştırmalıyım. tüm satırların başına ve sonuna ekledim fakat olmadı. desteğiniz için teşekkürler bilgi verirseniz sevinirim.

RUN-TİME 1004 method Range of object=worksheet failed Range(colRange & "2:" & colRange & "999999").ClearContents kod'da uyarı verdi

...Dim conn As Object Dim rs As Object Dim SqlText As String On Error GoTo HataYöneticisi Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = strConn SqlText = "SELECT " & _ "ANATABLO.STOK_KODU, " & _...

Private Sub CommandButton1_Click() Range("F:CC").ClearContents Dim baglanti As New ADODB.Connection Dim rs As New ADODB.Recordset Dim yol As String yol = "C:\Users\........................................\Genel Durum İzlenmesi\9.Sipariş Genel Durum.xlsb"...

...kod'a ekleme yapar mısınız. Saygılarımla. Private Sub CommandButton1_Click() Range("F2:CC999999").ClearContents Dim baglanti As New ADODB.Connection Dim rs As New ADODB.Recordset yol = "C:\Users\........................................\Genel Durum İzlenmesi\9.Sipariş Genel Durum.xlsb"...

Sub accesseyaz() Dim Conn As ADODB.Connection Dim Rs As ADODB.Recordset Dim ConnString As String Dim DosyaYolu As String Dim satir As Long Dim SAYFA As Worksheet DosyaYolu = "\\NAS\Sistem\01-Data\SiparislerDBO.accdb" DosyaYolu = ThisWorkbook.Path &...

...B satırını güncellesin. Ekleme çalışıyor sorun yok ancak değiştirme için kodu nasıl revize etmeliyim.? Dosyalarımı ekledim Dim Conn As ADODB.Connection Dim Rs As ADODB.Recordset Dim ConnString As String Dim DosyaYolu As String Dim satir As Long Dim SAYFA As Worksheet...

...& _ "(CONNECT_DATA=(SERVICE_NAME=YORUKDB)));User Id=USERID;Password=SİFRE;" Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") conn.Open strConn Set rs = Nothing Set conn = Nothing

...bir türlü başarılı olamadım. Veritabanına bağlanma konusunda sorun yaşadım. kütüphanede yüklü nerede hata yapıyor olabilirim. Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim connStr As String Dim strSQL As String Dim ws As Worksheet Dim i As Integer connStr =...

...String Dim lastRow As Long Dim dict As Object Dim key As Variant ' Set up database connection Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\428011\Desktop\Yeni klasör\DB.accdb;"...

...iyi akşamlar. Sub sorguu() Dim Con As Object Dim RS As Object Dim yol As String Sayfa2.Cells.ClearContents Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...

Çok Teşekkür ederim Halit Hocam iyi ki varsınız!

...Set s1 = Sheets("Sayfa1") if s1.Range("K1") <> "" Then s1.Range("K1").CurrentRegion.ClearContents Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" &...

...Sayfa_adı = "Sheet1" Dim fL As Object Set fL = CreateObject("Scripting.FileSystemObject") Set Kayit = CreateObject("ADODB.recordset") baglan = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Dosya & ";Extended Properties=""Excel 12.0;HDR=yes;IMEX=1;""" Kayit.Open "Select * from [" &...

Bu şekilde mi bir çözüm istiyordunuz sName = ActiveSheet.Name My_Query = "Select Distinct * From [" & sName & "$D3:D39] Where Not IsNull(F1)"

...Sub Unique_2_List() Dim My_Connection As Object, My_Recordset As Object, My_Query As String Set My_Connection = VBA.CreateObject("AdoDb.Connection") My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ ThisWorkbook.FullName & ";Extended...

...= 20 Sheets("Stokdurumu").Range("C1:D1").ColumnWidth = 10 Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName objConn.Open strArgs strSQL =...