• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sorgu için arama sonuçları: adodb.Connection

  1. H

    Adosql ile veri çekme hücredeki bilgiye göre

    ...strSQL As String, strArgs As String Sheets("Report").Range("A2:F" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...
  2. FERAZ

    SQL DISTINCT Kullanımı

    ...Baslik1,Baslik2.... gibi olduğunu varsayarsak alttaki kod çalışıyor. Dim metin As String Set con = CreateObject("Adodb.connection") Set rs = CreateObject("Adodb.recordset") con.Open "provider=microsoft.ace.oledb.12.0;data source= " & ThisWorkbook.FullName & "...
  3. H

    Soru Accesden Düşeyara (Excelden Vba ile)

    ...As Object, SourceFile As String, strSQL As String Range("E2:E" & Rows.Count) = "" Set adoCN = CreateObject("ADODB.Connection") SourceFile = ThisWorkbook.Path & "\SiparislerDBO.accdb" adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"...
  4. tamer42

    SQL Sorguda aradaki değerlerin toplamı

    ...Dim SH As Worksheet Set SH = Sheets("DB") SH.Cells.ClearContents FileName = ThisWorkbook.FullName Set Con = CreateObject("ADODB.CONNECTION") With Con .Open "Provider=Microsoft.Ace.Oledb.12.0;" & _ "Extended Properties='Excel 12.0;" & _ "HDR=NO;';Data...
  5. F

    Çözüldü ado bağlantılı sorgu ve where

    ...yer: Veri Yapıştırılan yer: KOD: Private Sub CommandButton1_Click() Range("I2:AN999999").ClearContents Dim baglanti As New ADODB.Connection Dim rs As New ADODB.Recordset yol = "F:\.......................................\9.Sipariş Genel Durum.xlsb" baglanti.Open...
  6. halit3

    Çözüldü Ado Bağlantı ile ilgili sekmeden istediğim sütundan veri çekmek hk

    1 nolu mesajınızdaki kod çalışıyorsa sorgu = "select * from [Sipariş$]" yukarıdaki bölümü silin aşağıdaki bölümü ekleyiniz. sorgu = "select * from [Sipariş$F:BD]"
  7. tamer42

    SQL diğer tabloda kontrol (kod hızlandırma)

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

    SQL diğer tabloda kontrol (kod hızlandırma)

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

    SQL diğer tabloda kontrol (kod hızlandırma)

    ...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 =...
  10. S

    buton atama

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

    Çözüldü Ado Bağlantı ile ilgili sekmeden istediğim sütundan veri çekmek hk

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

    buton atama

    ...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, " & _ "ANATABLO.STOK_ADI...
  13. M

    Çözüldü Ado Bağlantı ile ilgili sekmeden istediğim sütundan veri çekmek hk

    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"...
  14. F

    Çözüldü Ado Bağlantı ile ilgili sekmeden istediğim sütundan veri çekmek hk

    ...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"...
  15. veyselemre

    Vba ile Acces Kayıt Ekleme/Değiştirme

    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 &...
  16. leonadies

    Vba ile Acces Kayıt Ekleme/Değiştirme

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

    Oracle Database Bağlantısı Vba.

    ...& _ "(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
  18. f4tih

    Oracle Database Bağlantısı Vba.

    ...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 = "Provider=OraOLEDB.Oracle;" & _...
  19. Astalavista58

    VBA ve SQL Kullanarak Acceste Nöbet Programı Yazmak

    ...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;" conn.Open...
  20. tamer42

    Sql Sorguda veri alma problemi

    ...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 12.0;hdr=yes""" sorgu...
Üst