Sorgu için arama sonuçları: IMEX

  1. tamer42

    Sql Sorguda veri alma problemi

    Veysel Hocam "Connection String" satırında 'IMEX' ile bir çözüm olmaz mı acaba? teşekkürler,
  2. pNouma

    tefas.gov.tr' den veri çekme hk.

    Çok Teşekkür ederim Halit Hocam iyi ki varsınız!
  3. D

    Arvento Araç takip sistemine göre aracın günlük çalışma hesabı

    ...Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & ThisWorkbook.FullName strSQL = "SELECT " & _ "FORMAT(t1.[Tarih Saat], 'dd.mm.yyyy') AS myDate, " & _...
  4. halit3

    tefas.gov.tr' den veri çekme hk.

    ...= CreateObject("ADODB.recordset") baglan = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Dosya & ";Extended Properties=""Excel 12.0;HDR=yes;IMEX=1;""" Kayit.Open "Select * from [" & Sayfa_adı & "$] ;", baglan, 1, 1 ThisWorkbook.Sheets(Syf1).Range("A1").CopyFromRecordset Kayit Kayit.Close...
  5. veyselemre

    İki ayrı tabloyu tek tablo olarak birleştirme

    ...BY yID " With CreateObject("ADODB.Connection") .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & ThisWorkbook.FullName Set rs = .Execute(strSQL) Range("K1").Resize(1, 4) = Array("Tanım", "Tutar", "Tanım"...
  6. D

    İki ayrı tabloyu tek tablo olarak birleştirme

    ...3) = myList Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & ThisWorkbook.FullName strSQL = "SELECT t1.*, t2.* FROM [Sheet4$A1:C] t1 " & _ "LEFT JOIN [Sheet4$F1:H] t2 ON...
  7. H

    SQL sorguyu farklı bir dosyaya aktarmak

    ...satırların altına ekliyor Sub Ekle_ADO() Dim Conn As Object Dim sorgu As String yol = ThisWorkbook.FullName DosyaYolu = "[Excel 12.0 Xml;HDR=No;IMEX=0;DATABASE=" & ThisWorkbook.Path & "\Data.xlsm].[Rapor$]" Set Conn = VBA.CreateObject("adodb.Connection") With Conn .Open "...
  8. D

    Aynı olan değerlerden yeni çalışma kitabi oluşturma

    @Haluk merhaba, Yukarıdaki kodu kullanıyorum. Yaratılacak dosya sayısı fazla olduğunda, belli bir dosyayı oluşturduktan sonra aşağıdaki hatayı alıyorum. Bu hatayı nasıl geçebilirim?
  9. D

    İşlem, Güncelleştirilebilir bir sorgu kullanmalıdır!

    ...adoCN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & WB1 & _ ";Extended Properties='Excel 12.0 Macro;HDR=YES;IMEX=1'" '**** Update etmeden önce verileri bu çalışma kitabındaki tmp sayfasına al **** wsCtrl = False For Each ws In...
  10. H

    Soru Exceldeki verileri notepad dosyasına aktarma

    ...< 14 Then adoCN.Provider = "Microsoft.Jet.OLEDB.4.0" adoCN.Properties("Extended Properties") = "Excel 8.0; HDR=No;IMEX=1;" Else adoCN.Provider = "Microsoft.ACE.OLEDB.12.0" adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=No;IMEX=1;" End If...
  11. tamer42

    İşlem, Güncelleştirilebilir bir sorgu kullanmalıdır!

    ...Cn = CreateObject("ADODB.CONNECTION") With Cn .Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & _ WB1 .Execute " UPDATE [" & WB1 & "].[Data$] AS T1" & _ " INNER JOIN [" & WB1...
  12. H

    İşlem, Güncelleştirilebilir bir sorgu kullanmalıdır!

    Bağlantıda IMEX=1 kısmını silin, çalışır.... .
  13. D

    ADO yönteminde Tanımlanmış Tablo ya da AD kullanmak

    ...& _ "Data Source=\\SERVER\K.......Excel$\FIYAT_SABLONU_XXXX.xlsm;" & "Extended Properties=""Excel 12.0 Macro;HDR=YES;IMEX=1"";" Örneğindeki gibi HDR=NO olarak kullanılırsa ADO alan(sütün) isimlerini F1,F2,F3... olarak isimlendiriyor, "Select [F1],[F2] from [Sayfa1$] Where [F2]=5"...
  14. H

    Karmaşık verileri düzenle hale getirme

    ...< 14 Then .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Extended Properties") = "Excel 8.0; HDR=Yes;IMEX=1;" Else .Provider = "Microsoft.Ace.OLEDB.12.0" .Properties("Extended Properties") = "Excel 12.0; HDR=Yes;IMEX=1;" End...
  15. Korhan Ayhan

    Çözüldü Farklı sayfada bulunan tarih kriterine göre veri çekme

    ...My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=Yes;Imex=1""" My_Query = "Select * From [VT$] Where Tarih = " & CLng(Sheets("Sorgu").Range("E1").Value) My_Recordset.Open My_Query...
  16. Korhan Ayhan

    kapalı farklı bir dosyadan veri çekmek

    ..."Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ ThisWorkbook.Path & "\liste.xlsx" & ";Extended Properties=""Excel 12.0;Hdr=Yes;Imex=1""" My_Query = "Select [Kod],[Adı] From [Sayfa1$] Where [Kod] Is Not Null" My_Recordset.Open My_Query, My_Connection, 1, 1...
  17. H

    Çözüldü sayfa adı bulma

    ...myFile = "C:\TestFolder\Test.xlsm" Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") MySheet = VBA.Replace(DB.TableDefs(0).Name, "'", "") MySheet = Application.Substitute(MySheet, "'", "") Set RS = DB.OpenRecordset("Select...
  18. işsiz123

    Çözüldü sayfa adı bulma

    :) Haklısınız haluk bey. Telefon ile yazdığımdan klavye otomatik değiştirmiş bende aceleden kontrol edemedim. Yazdıklarımı ben bile anlamadım. :) Yazığınız kodlar ile kapalı dosyanın Sayfa ismini alıyorum. Ancak MySheet değişkenini içeren sayfa ismini benim kodlara uyarladığım da hata...
  19. H

    Çözüldü sayfa adı bulma

    ...myFile = "C:\TestFolder\Test.xlsm" Set DB = daoDBEngine.OpenDatabase(myFile, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") MySheet = VBA.Replace(DB.TableDefs(0).Name, "'", "") MySheet = Application.Substitute(MySheet, "'", "") MsgBox MySheet End Sub .
  20. Korhan Ayhan

    kapalı farklı bir dosyadan veri çekmek

    ..."Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _ ThisWorkbook.Path & "\liste.xlsx" & ";Extended Properties=""Excel 12.0;Hdr=No;Imex=1""" My_Query = "Select F2,F1 From [Sayfa1$A2:F] Where F1 Is Not Null" My_Recordset.Open My_Query, My_Connection, 1, 1...
Üst