-
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
-
Soru Adresini Gösterdiğim Excelden belirli sütunlarındaki verileri Makrodaki sayfaya çektirme
...= False Application.Calculation = xlCalculationManual Process_Time = Timer Set My_Connection = CreateObject("AdoDb.Connection") Select Case Val(Application.Version) Case Is < 12 My_Connection.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & My_File...- Korhan Ayhan
- Posta #8
- Forum: Makro-VBA Soruları
-
Çözüldü Farklı sayfada bulunan tarih kriterine göre veri çekme
...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") Sheets("Sorgu").Range("A3:G" & Rows.Count).ClearContents...- Korhan Ayhan
- Posta #4
- Forum: Makro-VBA Soruları
-
run tıme error "-2147467259 (80004005) geçersiz boş kullanımı hatası
...>= " & Replace(saat1, ",", ".") & _ " And Cdbl(CDate([Saat])) <= " & Replace(saat2, ",", ".") Set RS = CreateObject("ADODB.Recordset") RS.CursorType = 1 RS.Open sorgu, Con Veri = RS.getRows ub = UBound(Veri, 2) RS.Close Set RS = Nothing...- tamer42
- Posta #8
- Forum: Makro-VBA Soruları
-
Sql Sorguda Tarih tür uyuşmazlığı hk.
...As Object sorgu = "Select * From [Data$] Where Cdbl(CDate([Tarih])) = " & tarih & "And Cdbl(CDate([saat])) > " & saat Set RS = CreateObject("ADODB.Recordset") RS.CursorType = 1 RS.Open sorgu, Con a = RS.RecordCount sorguTarih = a End Function...- tamer42
- Posta #3
- Forum: Makro-VBA Soruları
-
H
Sql Sorguda Tarih tür uyuşmazlığı hk.
...a = sorguTarih(tarih) MsgBox a End Sub ' Sub Baglan() Dim yol As String Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...- Haluk
- Posta #2
- Forum: Makro-VBA Soruları
-
H
Veritabanına txt dosya kaydetmek
Mantık olarak; JPEG, BAT, DOCX.... herhangi bir dosyayı ADODB ile "binary" çevirip, MDB dosyasındaki bir tablodaki alana yazılabilir. Deneyip, görmek lazım... .- Haluk
- Posta #6
- Forum: Access Soruları
-
Sql Sorguda Tarih tür uyuşmazlığı hk.
...tarih = CDate(Sayfa1.Range("A2")) a = sorguTarih(tarih) MsgBox a End Sub Sub Baglan() Dim yol As String Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel...- tamer42
- Konu
- Cevaplar: 3
- Forum: Makro-VBA Soruları
-
Soru kapalı xls dosyasından veri çekerken uyumluluk hatası
...menüsünde Uyumluluk Kısmını dönüştür deyince oluyor. bunu dosyayı açmadan yapmak istiyorum. Şimdiden Teşekkürler Set cn = CreateObject("adodb.connection") Set Rs = CreateObject("adodb.recordset") cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelDosyaYolu & ExcelDosyaAdi &...- işsiz123
- Konu
- Cevaplar: 2
- Forum: Makro-VBA Soruları
-
kapalı farklı bir dosyadan veri çekmek
...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") Range("A2:B" & Rows.Count).ClearContents Range("F2:F" &...- Korhan Ayhan
- Posta #7
- Forum: Excel'e Yeni Başlayanlar
-
Çözüldü Şartlı Benzersiz Liste oluşturma.
...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("AdoDB.Recordset") Set S1 = Sheets("Sayfa1") My_Connection.Open...- Korhan Ayhan
- Posta #3
- Forum: Makro-VBA Soruları
-
kapalı farklı bir dosyadan veri çekmek
...As Object, My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") Range("A2:B" & Rows.Count).ClearContents Range("F2:F" &...- Korhan Ayhan
- Posta #4
- Forum: Excel'e Yeni Başlayanlar
-
Çözüldü sayfa adı bulma
...= .InitialFileName Başka Abonelikten Çık Eğer Sonlandırıyorsanız ile bitmek Set cn = CreateObject("adodb.connection") Set Rs = CreateObject("adodb.recordset") cnstr = "Sağlayıcı=Microsoft.ACE.OLEDB.12.0;Veri Kaynağı=" & ExcelDosyaYolu & ExcelDosyaAdi &...- işsiz123
- Posta #3
- Forum: Makro-VBA Soruları
-
Çözüldü sayfa adı bulma
...excelin birinci sayfasındaki veriyi alması. Şuanda aktif kullandığım sayfa ismi hesaphareketleri$A6:F Teşekkürler Set cn = CreateObject("adodb.connection") Set Rs = CreateObject("adodb.recordset") cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelDosyaYolu & ExcelDosyaAdi &...- işsiz123
- Konu
- Cevaplar: 8
- Forum: Makro-VBA Soruları
-
Soru Kapalı dosyadan veri alma hatası
...ExcelDosyaYolu = .InitialFileName Else Exit Sub End If End With Set cn = CreateObject("adodb.connection") Set Rs = CreateObject("adodb.recordset") cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ExcelDosyaYolu & ExcelDosyaAdi & ";Extended...- işsiz123
- Konu
- Cevaplar: 1
- Forum: Makro-VBA Soruları
-
Baska bir listedeki verileri tekrarsız olarak yeni bir listeye alma
....Range("F4").Resize(UBound(veri)).Value = veri End With End Sub Sub test() Dim rs As Object Set rs = CreateObject("ADODB.Recordset") With Sheets("SK AGENCIES") .Range("F4:F" & .Cells(Rows.Count, 6).End(xlUp).Row).ClearContents rs.Open "SELECT DISTINCT F1...- veyselemre
- Posta #8
- Forum: Makro-VBA Soruları
-
Y
kim ne satmış
Haluk hocam bu kısımda hata alıyorum Set adoCon = CreateObject("ADODB.Connection") Sebebi hakkında bilgilendirir misiniz? Teşekkür ederim.- yakamozexcel
- Posta #10
- Forum: Excel'e Yeni Başlayanlar
-
H
Excel bilgilerini Access ile uyarlama
...dikkat edilmezse sorun çıkarabiliyor Private Sub CommandButton1_Click() Dim SQL As String Dim ADO_CN As Object Set ADO_CN = CreateObject("Adodb.Connection") SQL = "SELECT * FROM [CUSTOMERS2] " ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" &...- haliliyas
- Posta #6
- Forum: Excel'e Yeni Başlayanlar
-
H
Excel bilgilerini Access ile uyarlama
...işinize yarayabilir Private Sub CommandButton1_Click() Dim SQL As String Dim ADO_CN As Object Dim ADO_RS As Object Set ADO_CN = CreateObject("Adodb.Connection") Set ADO_RS = CreateObject("adodb.recordset") SQL = "SELECT * FROM [TabloAdi] " ADO_CN.ConnectionString =...- haliliyas
- Posta #5
- Forum: Excel'e Yeni Başlayanlar
-
I
İki koşula göre verileri AA sayfasına çekme
Hocam merhaba sıralamaya bi ("B12") sutün daha ekleme durumunuz olur mu, Range("A11:J" & Rows.Count).Sort Range("H12"), xlAscending, Range("G12"), , xlAscending, , , xlYes- isakaratastan
- Posta #6
- Forum: Makro-VBA Soruları
-
SQL SELECT TOP Kullanımı hk.
İlgili kodları bu şekilde kullanım deneyiniz. xDeg1 = CLng(DateSerial(y, m, 1)) xDeg2 = CLng(DateSerial(y, m + 1, 0)) Set RS2 = CreateObject("ADODB.RecordSet") sorgu = "SELECT TOP 15 Brand FROM [Data$A5:D" & LR & "]" sorgu = sorgu & " WHERE [Insert Start Date] BETWEEN " & xDeg1 & " AND " &...- Murat OSMA
- Posta #6
- Forum: SQL