Sorgu için arama sonuçları: adodb.Connection

  1. işsiz123

    Çözüldü sayfa adı bulma

    ...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 & ";Extended...
  2. işsiz123

    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...
  3. 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.
  4. H

    Excel bilgilerini Access ile uyarlama

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

    Excel bilgilerini Access ile uyarlama

    ...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 = "provider=Microsoft.ACE.OLEDB.12.0;" & _...
  6. 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
  7. H

    Google Sheets

    ...strFile As String, myTable As String Dim j As Byte Range("A2:C" & Rows.Count) = "" Set adoCon = CreateObject("ADODB.Connection") Set adoRst = CreateObject("ADODB.Recordset") strURL =...
  8. H

    Aynı stok kodlu olup farklı fiyattan satılan ürünlerin toplanması ve ortalamasının alınması

    ...RS As Object Dim myFile As String, strSQL As String myFile = ThisWorkbook.FullName Set adoCN = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.Recordset") adoCN.Provider = "Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Data Source") = myFile...
  9. I

    İki koşula göre verileri AA sayfasına çekme

    çok Sağolun hocam teşekkür ederim.
  10. Korhan Ayhan

    İki koşula göre verileri AA sayfasına çekme

    ...My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _...
  11. I

    İki koşula göre verileri AA sayfasına çekme

    Hocam elinize sağlık güzel olmuş sadece ben ufacık yanlış anlatmışım. "I" ve "J" sütununda olumsuz yazan hiç bir satırın aktarmasını istemiyorum. yani "I" ve "J" sütunundan her hangi birine olumsuz yazıyorsa o satırı aktarmasın
  12. Korhan Ayhan

    İki koşula göre verileri AA sayfasına çekme

    ...My_Recordset As Object, My_Query As String Application.ScreenUpdating = False Set My_Connection = CreateObject("AdoDB.Connection") Set My_Recordset = CreateObject("ADODB.Recordset") My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _...
  13. S

    Yeni KDV Oranları

    .İlginiz için çok tşk ederim. Logo kullanan arkadaşlara yardımcı olması için ben paylaşım yapayım. Başka bir gruptan arkadaş yardımcı oldu bana. SELECT * INTO LG_006_ITEMS_07072023 FROM LG_006_ITEMS UPDATE LG_006_ITEMS SET VAT=10,RETURNPRVAT=10,RETURNVAT=10,SELLVAT=10,SELLPRVAT=10 WHERE VAT=8...
  14. H

    Yeni KDV Oranları

    ...Sub Test() ' Haluk - 10/07/2023 Dim adoCN As Object, TargetFile As String, strSQL As String Set adoCN = CreateObject("ADODB.Connection") TargetFile = ThisWorkbook.FullName adoCN.Provider = "Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Data Source") = TargetFile...
  15. U

    Vba da sql problemi hakkında

    ...& Sheets("Sayfa2").Range("A" & j).Value & " ' order by tbStokFiyati.dteFiyatTespitTarihi " Else Exit Sub End If Set Cn = New ADODB.Connection Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _ ";Uid=" & User_ID & ";Pwd=" & Password & ";" rs.Open SQLStr...
    • UegeN
    • Posta #3
    • Forum: SQL
  16. D

    ADO Nesnesi Saat Farkı ile İşlem

    ...= False Then MsgBox "İşlem iptal": Exit Sub Sheets("Sonuc").UsedRange.ClearContents Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;"""...
  17. Korhan Ayhan

    ADO Nesnesi Saat Farkı ile İşlem

    ...Set S2 = Sheets("Sonuc") Set Vehicle_Exit = VBA.CreateObject("Scripting.Dictionary") Set My_Connection = CreateObject("AdoDB.Connection") On Error Resume Next S1.ShowAllData S2.ShowAllData S2.Range("A:E").Clear S2.Range("A1:E1") = Array("PLAKA", "TARİH", "ÇIKIŞ...
  18. Y

    ADO Nesnesi Saat Farkı ile İşlem

    ...girisSaat As Integer, saatFarki As Integer 'bağlantı dizesi ifadesinin string türünden tanımı Set con = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") On Error Resume Next con.Close rs.Close saatFarki = InputBox("Saat farkını...
  19. tamer42

    SQL Ado ile Alanlardaki boş hücrelerin sayısı

    ...yalnız bu şekildde çok uzun bir kod yazmak gerekeceğinden daha pratik bir yöntem arayışındayım Set Con = VBA.CreateObject("adodb.Connection") Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _ yol & ";extended properties=""Excel 12.0;hdr=yes""" ''sorgu = "Select Distinct ID...
Daha eski sonuçları görüntüle
Üst