Sorgu için arama sonuçları: Catalog

@Korhan Ayhan Hocam catalog ile arama yapınca epey bir seçenek geldi ama benim kod bilgimle istediğim kodu çıkarmam mümkün görünmemektedir. Saygıyla

Eyvallah saygı değer üstadım.

Merhaba, Forumda catalog ifadesi ile arama yaparsanız sonuçlara ulaşabilirsiniz.

...sql As String ' Use this first connection string if using windows auth ' connectionString = "Data Source=ServerName;Initial Catalog=DatabaseName;Integrated Security=True" connectionString = "Data Source=KOSERVER ;Initial Catalog=TEKIL; User ID=abc; Password=abc"...

...uzantılı dosya da silinemiyor. Function DeleteAllAndResetAutoNum(yol As String, dosya, strTable As String) As Boolean Dim cat As New ADOX.Catalog Dim tbl As ADOX.Table Dim col As ADOX.Column Dim bb As String Dim conn As ADODB.Connection Set conn = New ADODB.Connection yol = "D:\depo\aaa\"...

...Sub ResetSeed(conn As ADODB.Connection, tableName As String, fieldName As String) Dim cat As Object Set cat = CreateObject("ADOX.Catalog") Set cat.ActiveConnection = conn cat.Tables(tableName).Columns(fieldName).Properties("Seed") = 0 Set cat.ActiveConnection = Nothing...

..., strRetVal Close #FileNum uzunluk değişkeni =19.902.610 değerini aldı part1 değişkeni aşağıdaki değeri aldı. Buraya yapıştırınca alt alta görülüyor, Watch windowda tek satırda görünüyordu "%PDF-1.7 %âãÏÓ 2 0 obj << /Metadata 4 0 R /Outlines 5 0 R /Pages 6 0 R /Type /Catalog >> endobj...

Şöyle deneyiniz. rap;Initial Catalog=" & Sheets("DigerHesaplamalar").Range("g4") & ";Data Source=SERVERFS\ALNA;Use Procedur"

....Connection = Array( _ "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=rap;Initial Catalog="" & Sheets("DigerHesaplamalar").range("g4") & "";Data Source=SERVERFS\ALNA;Use Procedur" _ , _ "e for Prepare=1;Auto Translate=True;Packet...

Merhaba SQL den bilgi alırken OLE DB Sorgu Düzenle de Bağlantı Stringi ni parametre sayfamdaki bir hücreden yada metin kutusundan aldırabilir miyiz. Yada içinden Catalog=DATA2021 i parametre sayfasından aldırabilir miyiz.

...Dim con As Object, kat As Object, tbl As Object, ac As String Set con = CreateObject("adodb.connection") Set kat = CreateObject("adox.catalog") Set tbl = CreateObject("adox.table") con.Open "provider=microsoft.Ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\" &...

...Eğer kapalı dosyada birden fazla sayfa varsa hangisinden veri alınacağını bilmeniz gerekiyor. Aşağıdaki linkteki mesajda buna ilişkin kodlama var. Kendinize uyarlayabilirsiniz. (Anahtar kelime; Catalog) https://www.excel.web.tr/threads/kapali-dosyadan-veri-cekme.188530/page-3#post-1047549

...Range("A:G").ClearContents Set Con = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.recordset") Set cat = CreateObject("ADOX.Catalog") yol = ThisWorkbook.Path MyFile = yol & "\" & "Satış.xlsx" x = 1 Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ MyFile &...

...If Say = 0 Then Set Data = CreateObject("ADODB.Connection") Set Katalog = CreateObject("ADOX.Catalog") Data.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};Dbq=" & Excel & ";" Katalog.ActiveConnection = Data...

Elinize sağlık...

...= Timer If Dosya <> False Then Set Baglanti = CreateObject("AdoDb.Connection") Set Tum_Tablolar = CreateObject("AdoX.Catalog") Set Sayfa = CreateObject("AdoX.Table") Set Dizi = CreateObject("Scripting.Dictionary") Set S1 = Sheets("Düzenlenmiş...

Korhan bey Tarih yerine Sayı gelme sorunu çözüldü fakat Ay yerine çapa göre sort yaptı kodlama. Bunu da düzeltmekte yardımcı olabilirseniz çok sevinirim.

...= Timer If Dosya <> False Then Set Baglanti = CreateObject("AdoDb.Connection") Set Tum_Tablolar = CreateObject("AdoX.Catalog") Set Sayfa = CreateObject("AdoX.Table") Set Dizi = CreateObject("Scripting.Dictionary") Set S1 = Sheets("Düzenlenmiş...

Merhaba.18.satırın boş olmaması koşulunu bu makroya nasıl ekleyebilirim ?

..."*~$*") Range("G1").Clear If Say = 0 Then Set Data = CreateObject("ADODB.Connection") Set Katalog = CreateObject("ADOX.Catalog") Data.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};Dbq=" & Excel & ";" Katalog.ActiveConnection = Data For Each Tablo In Katalog.Tables If...