Sorgu için arama sonuçları: Catalog

...Dim Katalog As Object, Data As Object, Tablo As Object Dim son1 Set Data = CreateObject("ADODB.Connection") Set Katalog = CreateObject("ADOX.Catalog") If Uzanti = "xls" Then Data.Open "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & Dosya & ";" GoTo atla1 End If If Uzanti = "xlsx" Or Uzanti...

Haluk bey, Dediğiniz durumu denedim.Sayfa'da oluşturduğum tablolar ADO.CATALOG'da görünmedi. VBA'dan veryhidden gizleseniz bile ADO.CATALOG'da tablo olarak görünüyor.

Merhaba, Aşağıdaki kodu kullanabilirsiniz. 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 properties=""Excel 12.0;hdr=yes"""...

...Diğer şartlara göre kod revize edilebilir. 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...

Merhaba Üstad, Sıkıştırılmış dosyada sorun var sanırım açılmıyor.

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

askm askm hocam kapalı dosyada birden fazla sayfa var, ben sayfa2 deki a2:j2 satırını almak istiyorum, koddda bunu belirtece yer bulamadım.

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

...Dim Katalog As Object, Data As Object, Tablo As Object Dim son1 Set Data = CreateObject("ADODB.Connection") Set Katalog = CreateObject("ADOX.Catalog") Dosya_Yolu = (Dosya) If Uzanti = "xls" Or Uzanti = "xlsb" Or Uzanti = "xlsx" Or Uzanti = "xlsm" Then On Error Resume Next If Uzanti = "xls"...

...kapalı olacak (aksi halde batch insert yavaş olur) ve komutlar VBScript veya harici bir Excel dosyası tarafından tarafından yapılacak, - ADOX.Catalog ile yeni bir .accdb oluşturulacak, - ADODB.Connection "Execute" ile "Select Into" batch insert yoluyla tablolar yapılacak, - Kapalı olan...

...As String strDBpath = "C:\TestFolder\MyDb.mdb" If Dir(strDBpath) = Empty Then Set adoxCat = CreateObject("ADOX.Catalog") strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strDBpath adoxCat.Create strConnect...

...Password=" & "562Tamam" & ";" Set oConn = CreateObject("ADODB.Connection") oConn.Open sConnString Set oCat = CreateObject("ADOX.Catalog") 'Set oCat.ActiveConnection = sd Set tbl = CreateObject("ADOX.Table") MTF = frmIslemStok.txtMTF For Each tbl In oCat.Tables Debug.Print tbl.Name...

...kod = Trim(Range("b4")) Sheets("001").Select Range("b4") cn.Open "Provider=sqloledb;Data Source=XXXX; Initial Catalog=XXXDB; User Id=XXXXXX;Password=XXXXXXXX" Sql = "SELECT " Sql = Sql & "NAME+' '+NAME3 FROM LG_XXX_ITEMS WHERE CODE='" & kod &...

...content="text/x-ms-odc; charset=utf-8"> <meta name=ProgId content=ODC.Table> <meta name=SourceType content=OLEDB> <meta name=Catalog content=Vogue> <meta name=Schema content=dbo> <meta name=Table content=TAHSIS> <xml id=docprops></xml><xml id=msodc><odc:OfficeDataConnection...

...sql server" SQLCON.CommandTimeout = 30 ' set timeout for 3 minutes SQLCON.Properties("Data Source").Value = SERVER SQLCON.Properties("Initial Catalog").Value = DATA SQLCON.Properties("User ID").Value = USER SQLCON.Properties("Password").Value = PASSWORD SQLCON.CursorLocation = adUseClient...

...i kapsamaktadır. Bu yamanın dışında da yine Microsoft ‘un değişik işletim sistemleri için dağıtıma açtığı daha kapsamlı http://www.catalog.update.microsoft.com/Search.aspx?q=KB3192321 adresinden işletim sistemine uygun yama çekilerek yüklenebilir. Farklı bir yöntem olarak aşağıdaki...

...Then MsgBox dosyaninadi & Chr(13) & " Adlı Cari Kayıtlı !!! ", vbCritical, "Uyarı": Exit Sub End If Next Set cat = CreateObject("ADOX.Catalog") cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & "" ';User ID=admin;Jet OLEDB:Database Password=" & "" Set NewTable =...

...tbDepo.sAciklama, tbDepo.nMagazaM2, tbDepo.nDepoM2" Baglanti.Open "Provider=SQLOLEDB; Data Source=SERVERSQL; Initial Catalog=xxx; User ID=xxx; Password=xxx;" KayitSeti.Open s, Baglanti, 1, 1 Cells(1, 1).CopyFromRecordset KayitSeti KayitSeti.Close...

...Çözüm bula bilir miyiz? Sub yedekal() 'SQLCON.ConnectionString = " Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=TIGER;Data Source=muhasebe\sqlexpress " SQLCON.ConnectionTimeout = 5 ' Time out for the connection SQLCON.Provider = "sqloledb" ' OLEDB Providers '...

...bağlantısında bağlantı dizesi kısmındaki kodlar şöyle Provider=SQLOLEDB.1;Password=1763Entes;Persist Security Info=True;User ID=sa;Initial Catalog=SW2.5;Data Source=.\entesdbserver;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=KOSEKOYTM-PC;Use Encryption for...