Sorgu için arama sonuçları: adodb

Öncelikle iyi akşamlar diliyorum. Hocam henüz çok acemiyim makrolar konusunda. Acaba örnek çalışmaya uyarlamanız mümkün mü bu çalışmayı. Saygılar sunuyorum.

...Objecs'in son sürümünü seçiniz. Sub ADOB_ILE_AKTAR() 'Tolls/Referans/Microsoft Aktives Data Objecs x.x Library Dim connection As New ADODB.connection Dim DosyaAdı As String Dim query As String Dim rs As New ADODB.Recordset...

...teşekkürler, iyi çalışmalar. Public Sub verticalUpdate(ByVal Alan As String, ByVal ie As Variant, item As Variant, deger As String) Dim RS As ADODB.Recordset Dim veri As Variant Dim SQL As String On Error GoTo ErrorHandler ' - ' - ' - ' - ' - ' - ' - ' - ' - ' - ' - ' - ' - ' - '...

...My_File As Variant, My_Recordset As Object File_Path = "\\Network_Path\Desktop\Book1.xlsx" Set My_Connection = CreateObject("AdoDb.Connection") Select Case Val(Application.Version) Case Is < 12 My_Connection.Open "Provider=Microsoft.Jet.OleDb.4.0;Data...

...sağlayan revize kod aşağıdadır; Option Explicit ' Sub Test() ' Haluk - 29/09/2023 ' sa4truss@gmail.com ' Dim objADO As ADODB.Connection Dim strFile As String, strSQL As String Dim objRS As ADODB.Recordset Dim arrBelgeNo As Variant Dim i As Integer, j As Integer...

...= Application.GetOpenFilename("Text Files, *.txt", , "Dosya seçin...") If MyFile = False Then Exit Sub Set adoStream = CreateObject("ADODB.Stream") adoStream.Charset = "UTF-8" adoStream.Type = adTypeText adoStream.Open adoStream.LoadFromFile (MyFile) strFile =...

...teşekkürler, iyi akşamlar. Sub sorguu() Dim myPath As String myPath = "G:\Drive\Egitim\Dosyalar" Set con = VBA.CreateObject("adodb.Connection") yol = myPath & "\Satış.xlsx" con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel 12.0;hdr=yes"""...

...Dim adoCN As Object Dim strSQL, myFile As String Application.ScreenUpdating = False Set adoCN = CreateObject("ADODB.Connection") myFile = ThisWorkbook.FullName adoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myFile & _ ";Extended...

..." & _ "[Excel 12.0;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended Properties='HDR=Yes;']" Set objConnection = CreateObject("ADODB.Connection") objConnection.Open strConnection Set RS = objConnection.Execute(strQuery) For j = 0 To RS.Fields.Count - 1...

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

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

...>= " & 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...

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

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

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

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

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

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

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