Sorgu için arama sonuçları: Catalog

  1. V

    VBA SQL - Insert into da where koşulu

    Sorunumu çözdü, çok teşekkür ederim.
  2. tugkan

    VBA SQL - Insert into da where koşulu

    ...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 Id=Kullanıcı;Password=Sifresi" cn.CommandTimeout = 600 ' İlk olarak kayıt olup olmadığını kontrol ediyoruz sSql = "SELECT COUNT(*) AS...
  3. V

    VBA SQL - Insert into da where koşulu

    ...ADODB.Command Dim qf As Object Dim mySubtotal As Double Set cn = New ADODB.Connection cn.Open "Provider=sqloledb;Data Source=sunucu; Initial Catalog=kasa; User Id=Kullanıcı;Password=Sifresi" cn.CommandTimeout = 600 sSql = " IF EXISTS (SELECT * FROM kasa_rapor WHERE tarih = '" & tarih1 & "'...
  4. Korhan Ayhan

    Ado ile sayfa seçimine göre veri alma

    Catalog ifadesi ile ADO kullanılarak kapalı dosyanın tablolarına erişebilirsiniz. Fakat hangi sayfanın aktif olduğunu tespit edemiyoruz diye biliyorum. Kapalı dosyayı açmak sorun değilse bu işlem kolaylıkla yapılabilir. Dosya (gizli) açılır ve aktif sayfanın ismi değişkene atanır sonrasında...
  5. A

    Farklı Excel Çalışma Sayfalarını Tek Sayfa da birleştirmek

    Bu konu eski biraz ama bu kod ile veri çektiğimde ikinci sayfayı 4 kez ard arda kopyalamış oluyor neden yaptığını anlıyamadım yardımcı olabilirmisiniz. şimdiden tşk.ler
  6. M

    ÇÖZÜLDÜ -Yükleyemediğim yazılım için yardım isteği

    ...https://driverpack.io/en/laptops/huawei/huawei-matebook-d/sound?os=windows-10-x64 https://devid.info/v2/catalog/model/118614/matebook-hz-w09-a/lng/en...
  7. B

    Klasördeki dosyalardan veri alırken dosya adını da getirmek

    ...dolsun. Bu konuda yardımcı olabilecek var mıdır? Sub Getir() Set con = VBA.CreateObject("adodb.Connection") Set cat = CreateObject("ADOX.Catalog") 'Set klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasor seçin !", 1) Cells.ClearContents Dim bir As Object Set...
  8. H

    Webden Veri Çekme ( WB )

    Google Sheets; =ARRAYFORMULA(SPLIT(IMPORTHTML("https://www.wabco-customercentre.com/catalog/tr_TR/4640060020","List",9),CHAR(10))) .
  9. tamer42

    SQL sorguyu farklı bir dosyaya aktarmak

    Haluk Hocam merhaba, buradaki kodları aşağıdaki bilgiler ışığında nasıl uyarlayabiliriz? Çalışma dosyasının bulunduğu klasör içinde TEXT adında bir klasör var, klasörde 1'den fazla txt dosyası mevcut ThisWorkbook.Path & "\TEXT\TestFile1.txt ThisWorkbook.Path & "\TEXT\TestFile2.txt ...
  10. H

    SQL sorguyu farklı bir dosyaya aktarmak

    ...ColumnCount = RS.Fields.Count ' myFile degiskeninde tariflenen "Data.xlsx" dosyasini hazirla Set adoCAT = CreateObject("ADOX.Catalog") adoCAT.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0" & _ ";Data Source=" & myFile & _...
  11. tamer42

    SQL sorguyu farklı bir dosyaya aktarmak

    Çok teşekkürler Haluk Hocam
  12. H

    SQL sorguyu farklı bir dosyaya aktarmak

    ...Set RS = objConn.Execute(strSQL) ColumnCount = RS.Fields.Count Set adoCAT = CreateObject("ADOX.Catalog") adoCAT.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0" & _ ";Data Source=" & myFile & _...
  13. H

    SQL sorguyu farklı bir dosyaya aktarmak

    ...= ThisWorkbook.Path & "\Data.xlsx" If Dir(myFile, vbDirectory) <> "" Then Kill myFile Set adoCAT = CreateObject("ADOX.Catalog") adoCAT.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0" & _ ";Data Source=" & myFile & _...
  14. H

    Sql excel bağlantı özelliklerinde sorgu hk.

    ...Birim M2 olanlar. Umarım istediğimi anlata bilmişimdir. Provider=SQLOLEDB.1;Password=h2034_Wq;Persist Security Info=True;User ID=sa;Initial Catalog=SDB;Data Source=SLOGO;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=REMOTE;Use Encryption for Data=False;Tag...
  15. işsiz123

    Çözüldü sayfa adı bulma

    İlginiz için teşekkürler. Söylediğiniz gibi Catalog konusunu forum da arattırdım ancak fazla bilgim olmadığı için yapamıyorum. Burada ki konuyu buldum. Kodumda kırmızı kısım [" & Sheets(1).Name & "$] olarak değiştirdim ancak aktif makro Aktif çalışan sayfanın adını algıladı Veri içeren...
  16. N

    Çözüldü sayfa adı bulma

    Merhaba, Forumda Catalog sözcüğünü aratırmısınız.
  17. K

    Soru Bir klasörde eklenecek dosyalardaki sayfa isimleri hep aynı adı kullanabilir mi?

    Teşekkür ederim. Emeğinize sağlık.
  18. Korhan Ayhan

    Soru Bir klasörde eklenecek dosyalardaki sayfa isimleri hep aynı adı kullanabilir mi?

    ...XL_App = CreateObject("Excel.Application") Set My_Connection = CreateObject("AdoDb.Connection") Set All_Tables = CreateObject("AdoX.Catalog") Set WS = CreateObject("AdoX.Table") XL_App.Visible = False New_Sheet_Name = "SATIŞ" My_Path =...
  19. C

    Soru Hücrede yazan kelimeyle o excelden veri çekme

    ...Set Rky = CreateObject("adodb.connection") Set FSO = CreateObject("scripting.filesystemobject") Set cat = CreateObject("adox.catalog") For Each evn In FSO.getfolder(ThisWorkbook.Path).Files If Not evn.Name Like "*" & ThisWorkbook.Name Then Rky.Open "Provider=Microsoft.ace.oledb.12.0;Data...
  20. C

    Soru Hücrede yazan kelimeyle o excelden veri çekme

    ...Set Rky = CreateObject("adodb.connection") Set FSO = CreateObject("scripting.filesystemobject") Set cat = CreateObject("adox.catalog") For Each evn In FSO.getfolder(ThisWorkbook.Path).Files If Not evn.Name Like "*" & ThisWorkbook.Name Then Rky.Open "Provider=Microsoft.ace.oledb.12.0;Data...
Üst