Sorgu için arama sonuçları: Catalog

...olmasına gerek yoktur. Option Explicit Sub Klasordeki_Excel_Dosyalarindan_Veri_Al() Dim Baglanti As Object, Kayit_Seti As Object, WB_Catalog As Object, Sayfa As Object Dim Sorgu As String, Yol As String, Dosya As String, Veri As Range, Zaman As Double Zaman = Timer...

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

...olacak hocalarımın yardımlarını bekliyorum. 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...

...1, 2), "00") KASA = Range("B1") Set con = CreateObject("ADODB.Connection") con.Open "Provider=SQLOLEDB; Data Source=" & Server & "; Initial Catalog=" & Database & "; User ID=" & Kullanıcı & "; Password=" & Parola & ";" Set rs = CreateObject("adodb.recordset") 'Sql...

...1, 2), "00") KASA = Range("B1") Set con = CreateObject("ADODB.Connection") con.Open "Provider=SQLOLEDB; Data Source=" & Server & "; Initial Catalog=" & Database & "; User ID=" & Kullanıcı & "; Password=" & Parola & ";" Set rs = CreateObject("adodb.recordset") 'Sql...

...KASA = Range("B1") Set con = CreateObject("ADODB.Connection") con.Open "Provider=SQLOLEDB; Data Source=" & Server & "; Initial Catalog=" & Database & "; User ID=" & Kullanıcı & "; Password=" & Parola & ";" Set rs = CreateObject("adodb.recordset") 'Sql...

...1, 2), "00") 'KASA = Range("B1") Set con = CreateObject("ADODB.Connection") con.Open "Provider=SQLOLEDB; Data Source=" & Server & "; Initial Catalog=" & Database & "; User ID=" & Kullanıcı & "; Password=" & Parola & ";" Set rs = CreateObject("adodb.recordset") 'Sql...

...New ADODB.Connection Dim sConnString As String Dim sql As String sConnString = "Provider=SQLOLEDB;Data Source=SqlServerAdı;" & "Initial Catalog=master;" & "Integrated Security=SSPI;" conn.Open (sConnString) sql = "RESTORE DATABASE VeriTabanıAdı FROM DISK = 'D:\VeriTabanıAdı.bak'"...

Alternatif olsun dosya isimleri ve yolları ile sayfa ve tablo isimlerini kendinize uyarlayın Sub aktar() Dim oCatalog As Object Set oCatalog = CreateObject("ADOX.Catalog") oCatalog.Create "provider='Microsoft.ACE.OLEDB.12.0';" & "Data Source=D:\DB.accdb" Set oCatalog = Nothing Dim appAccess As...

...Set RS = CreateObject("ADODB.Recordset") connPath = "DSN=ODBC_ADI;Server=BILGISAYAR\SQLSERVERADI;;Initial Catalog=VERITABANIADI;Uid=sa;Pwd=sifresi;" conn.Open connPath Range("E3:F1000").ClearContents Sql = "" Sql = Sql + " SELECT [urun],[adet] FROM...

...Set conn = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.Recordset") connPath = "DSN=FDT;Server=localhost;;Initial Catalog=Untitled;Uid=Dene;Pwd=3202043;" conn.Open connPath RS.Open "select * from Untitled", conn, 1, 3 MsgBox RS!kod Set RS = Nothing Set conn = Nothing...

...Set RS = CreateObject("ADODB.Recordset") connPath = "DSN=ODBC_ADI;Server=BILGISAYAR\SQLSERVERADI;;Initial Catalog=VERITABANIADI;Uid=sa;Pwd=sifresi;" conn.Open connPath Range("E3:F1000").ClearContents Sql = "" Sql = Sql + " SELECT [urun],[adet] FROM...

...Sub CommandButton1_Click() Range("A2:b100").ClearContents Set con = CreateObject("AdoDB.Connection") Set cat = CreateObject("Adox.Catalog") Set syf = CreateObject("Adox.Table") Set fso = CreateObject("Scripting.FileSystemObject") Yol = "d:"...

Sub say() Range("B2:C100").ClearContents Set con = CreateObject("AdoDB.Connection") Set cat = CreateObject("Adox.Catalog") Set syf = CreateObject("Adox.Table") Set fso = CreateObject("Scripting.FileSystemObject") Yol = "\\deneme\" & F2 & " \" & G2 & "_" & F2 & ""...

...Set RS = CreateObject("ADODB.Recordset") connPath = "DSN=ODBCADI;Server=BILGISAYAR\SQLSERVERADI;;Initial Catalog=VERITABANIADI;Uid=sa;Pwd=sifresi;" conn.Open connPath Range("E3:F1000").ClearContents Sql = "" Sql = Sql + " SELECT [urun],[adet] FROM...

...names with the corresponding values strCon = "Provider=SQLOLEDB; " & _ "Data Source="mahmutkaya.net"; " & _ "Initial Catalog=mahmutka_t360;" & _ "User ID=uid; Password=*******; Trusted_Connection=yes" '--- Open the above connection string. con.Open (strCon) '---...

...Excel Workbooks, *.xml; *.xlsx", Title:="Open Workbook") Set Katalog = CreateObject("ADOX.Catalog") Set Tablo = CreateObject("ADOX.Table") Katalog.ActiveConnection = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & Dosya & ";Extended Properties=""Excel 12.0;HDR=Yes"""...

...tbl satırında hata veriyor. Function CreateTableAdox() 'Amaç: ADOX kullanarak veritabanı oluşturmak. Dim cat As New ADOX.Catalog Dim tbl As ADOX.Table Dim con As New ADODB.Connection con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ ThisWorkbook.FullName &...

Halit bey, Sayfa isminde tek tırnak olan isimler için replace metodunu koda eklemek gerekiyormuş. Sub sdds() Set cat = CreateObject("ADOX.Catalog") Set con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol &...

...sayısını bulmuş oluruz. (Sizin eklediğiniz dosya'da 3) Ad tanımlamada $ işareti kullanılamıyor. Sub sdds() Set cat = CreateObject("ADOX.Catalog") Set con = VBA.CreateObject("adodb.Connection") yol = dosya yolu con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended...