-
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
-
E
Kurum bilgilerini güncelle
...= False .Calculation = xlCalculationManual End With Dim sql As String, rg As Range Dim yol As String Set con = New ADODB.Connection Set rs = New ADODB.Recordset yol = "D:\1- BELGELERİM\\6- VERİ TABLOLARI\\KURUM_BİLGİLERİ.xlsb" con.Open "provider=microsoft.ace.oledb.12.0;data...- ErdalÖzdemir
- Konu
- Cevaplar: 18
- Forum: Makro-VBA Soruları
-
N
textbox arama yap getir kapalı excel dosyasından
Merhaba; Bu şekil deneyiniz. Private Sub TextBox2_Change() Set con = CreateObject("Adodb.connection") Set rs = CreateObject("Adodb.recordset") Yol = "C:\Dosya adresi\KAPALI.xlsm" con.Open "provider=microsoft.ace.oledb.12.0;data source=" & Yol & ";extended properties=""excel 12.0;hdr=yes"""...- N.Ziya Hiçdurmaz
- Posta #2
- Forum: Makro-VBA Soruları
-
O
Userform textboxt sayı verisinde yapılan değişikliğin access veritabanına giderken tür uyuşmazlığı hatası vermesi
...yerinde kalıyor. Sabahtan beri bunla uğraşıyorum yardımlarınıza muhtacım. Private Sub bt_kaydet_Click() Dim baglanti As New ADODB.Connection Dim rs As New ADODB.Recordset baglanti.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & yol & "" sorgu = "SELECT * FROM...- oweoweo
- Konu
- Cevaplar: 5
- Forum: Makro-VBA Soruları
-
İKİ FARKLI Ç.KİTABINDAKİ VERİYİ KOŞULA GÖRE EŞLEŞTİRME HK
...i, ii, dic As Object, adoCon As Object, ky$, w Set dic = CreateObject("Scripting.Dictionary") Set adoCon = CreateObject("AdoDB.Connection") With Sheets("Dosyalar") dosya(1) = .Range("A2").Value & "\" & .Range("B2").Value dosya(2) = .Range("A3").Value & "\" &...- veyselemre
- Posta #3
- Forum: Makro-VBA Soruları
-
Veri doğrulama ile seç hepsini getir (vba kod ile)
...WHERE [MÜŞTERİ ADI SOYADI]='" & ComboBox1.Text & "'" If adoCon Is Nothing Then Set adoCon = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") End If If adoCon.State = 0 Then Call connect Set rs =...- veyselemre
- Posta #4
- Forum: Makro-VBA Soruları
-
S
sql ile birden fazla kelime arama
...kelimler geçiyorsa bulacak. bu şekilde düzenleyebilirsrnizço kseivinirim. Aplication.Calculation = xlManual Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rsA As New ADODB.Recordset Dim rsB As New ADODB.Recordset Dim rsC As New ADODB.Recordset...- sevensuleyman
- Posta #4
- Forum: SQL
-
ADO kullanarak boş satır silme ve sütun başlıklarını değiştirme
Sayfa1 e listeleme yapacaktır. Sub test() Dim rs As Object, strSQL$, i With CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=Yes';" & _ "Data Source=" &...- veyselemre
- Posta #4
- Forum: Makro-VBA Soruları
-
text oluşturma
...txt5510.Cells(l - 2, "x") = gss.Cells(l, "v") txt5510.Cells(l - 2, "y") = l - 6 Next Set cn = CreateObject("Adodb.Connection") Set rs = CreateObject("Adodb.Recordset") cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName &...- Zeki Gürsoy
- Posta #4
- Forum: Makro-VBA Soruları
-
W
ADO / Çoklu Filtreleme / Sorgu
...Date, Secilen_Date As Date If TextBox1 = "" Or TextBox2 = "" Then Exit Sub Set My_Connection = CreateObject("AdoDB.Connection") First_Date = TextBox1 Last_Date = TextBox2 My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _...- walabi
- Posta #2
- Forum: Makro-VBA Soruları
-
A
Kapalı dosyadan buton ile veri alma.
...Dim conn As Object, rs As Object, yol As String Sheets("veri").Range("A2:C" & Rows.Count).ClearContents Set conn = CreateObject("Adodb.Connection") Set rs = CreateObject("Adodb.Recordset") yol = ThisWorkbook.Path conn.Open "Provider=microsoft.ace.oledb.12.0;data source=" & yol &...- antitez21
- Posta #67
- Forum: Makro-VBA Soruları
-
B
Klasördeki dosyalardan veri alırken dosya adını da getirmek
...20 satır boyunca ilgili dosyanın adıyla 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)...- Barfly
- Konu
- Cevaplar: 0
- Forum: Makro-VBA Soruları
-
H
Malzeme Açıklamalarının tek bir hücrede toplanması
...' Haluk - 22/03/2024 Sheets("Sayfa2").Range("B2:C" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.RecordSet") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False...- Haluk
- Posta #5
- Forum: Excel'e Yeni Başlayanlar
-
Dönemlik pivot alma
..." ) " & _ " ) GROUP BY Bölge, Marka, UK, UA ORDER BY Bölge, Marka, UK, UA" With CreateObject("ADODB.Connection") .Open "Driver={MicrosoFT Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...- veyselemre
- Posta #16
- Forum: Makro-VBA Soruları
-
H
Dönemlik pivot alma
...) " & _ " Group By UK, UA Having (Sum(ADET12) + Sum(ADET6) + Sum(ADET3))>0 " Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName objConn.Open...- Haluk
- Posta #5
- Forum: Makro-VBA Soruları
-
Excelde Tekrarlayan Veriler şartlara göre silme
...Sub herUrundenSonGelenGetir_ADO() Dim strSQL$ Sheets("ADO").Range("K2:M" & Rows.Count).ClearContents With CreateObject("ADODB.Connection") .Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName strSQL =...- veyselemre
- Posta #14
- Forum: Excel'e Yeni Başlayanlar
-
Adosql ile veri çekme hücredeki bilgiye göre
...Tek alt sorgu ile sonuç geliyor. Sub getData3() Sheets("Report").Range("A2:F" & Rows.Count).ClearContents With CreateObject("ADODB.Connection") .Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...- veyselemre
- Posta #31
- Forum: Makro-VBA Soruları
-
A
Excelde Tekrarlayan Veriler şartlara göre silme
ustam tüm sütünları attım buna göre uyarlanır mı acaba- ahmetyol
- Posta #4
- Forum: Excel'e Yeni Başlayanlar
-
H
Excelde Tekrarlayan Veriler şartlara göre silme
...strSQL As String, strArgs As String Sheets("Sheet1").Range("K2:M" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName...- Haluk
- Posta #2
- Forum: Excel'e Yeni Başlayanlar
-
H
Diğer Sayfaya kopyalama ve toplamları alma
...As String, strArgs As String Sheets("veri").Range("A3:L" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName objConn.Open...- Haluk
- Posta #8
- Forum: Makro-VBA Soruları
-
H
Diğer Sayfaya kopyalama ve toplamları alma
...As String, strArgs As String Sheets("veri").Range("A3:L" & Rows.Count).ClearContents Set objConn = CreateObject("ADODB.Connection") strArgs = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; Readonly=False; DBQ=" & ThisWorkbook.FullName objConn.Open...- Haluk
- Posta #7
- Forum: Makro-VBA Soruları