Linkte benzer bir konu var.
https://www.excel.web.tr/threads/sql-sorgu-satirinda-tarih-formati.191735/
Ayrıca sorgunuzda birden fazla TARIH ifadesi geçiyor.
Order by ve group by bölümlerini de aynı şekilde formatlamayı deneyiniz.
Hocam aynı sorun bende de mevcut sorgu sonucunda sayfaya (2021/01/01) şeklinde geliyor ben 01/01/2021 şeklinde gelmesini istiyorum.
Sorgum daki TARİH'i nasıl düzenlemeliyim ki 01/01/2021 formatında excel sayfasına gelsin?
Sub ADOExcelSQLServer()
' SQL Sunucu Bağlantısı
Dim Cn As...
Deneyiniz.
Option Explicit
Sub Tarihleri_Aktar()
Dim Dosya1 As String, Dosya2 As String, Zaman As Double
Dim Baglanti As Object, Kayit_Seti As Object, Sorgu As String
Zaman = Timer
Set Baglanti = CreateObject("AdoDb.Connection")
Dosya1 = ThisWorkbook.FullName...
bu kod ile yazdırıyorum ama aynı anda yazdırılan sayfayı pdf olarakta kaydetmek istiyorum
If Sheets("SORGU").Range("A2").Value = "" Then
MsgBox "YAZIRMA ALANI SEÇİLMEDİ ÖNCE TARİH GİREREK ARAMA YAPIP YAZDIRA BASIN", vbCritical, "pos takip": Exit Sub
End If
Dim sor As Byte
sor = MsgBox("Seçilen...
Düşeyara fonksiyonuyla tarih aldığınız tüm hücrelere başvuru yapan formülleriniz için kullanabilirsiniz.
Düşeyara yaparken "" ifadesiyle olmayan değerler için tarih olması gereken hücreye boşluk koyunca F5<Bugün() sorgunuzda F5 tarih olarak algılanamadığı için sorgu hata veriyor.
Option Explicit
Sub Verileri_Aktar()
Dim Yol As String, Dosya As Variant, S1 As Worksheet, Zaman As Double
Dim Baglanti As Object, Sorgu As String, Kayit_Seti As Object
' On Error Resume Next
Zaman = Timer
Application.ScreenUpdating = False
Set Baglanti =...
Selamlar
@Zeki Gürsoy hocam @Korhan Ayhan hocam
ilktarih =TextBox1.Value ve sontarih=TextBox2.Value
adında değişkenleri tanımladıktan sonra sorguyu aşağıdaki gibi yaptım oldu.
Sizlere çok teşekkür ederim.
Saygılar
Sorgu = "select * from[Veri$] where Tarih >=CDate('" & ilktarih & "') and...
Selamlar
@Zeki Gürsoy hocam @Korhan Ayhan hocam
Öncelikle ilginiz için çok teşekkür ederim.
aşağıdaki gibi denedim yine olmadı.
Saygılar
Sorgu = "select * from[Veri$] where Tarih >= " & CLng(CDate(TextBox1.Text))& " and Tarih <= " & CLng(CDate(TextBox2.Text))& " "
Selamlar
Sorguda Textbox kullanmak istiyorum. Aşağıdaki sorguda hücre değeri yerlerine Textbox koyarak denedim ama olmadı. Nasıl yapmalıyım?
Saygılar
Sorgu = "select * from[Veri$] where Tarih >= " & CLng(Range("K1")) & " and Tarih <= " & CLng(Range("M1")) & " "
Merhaba,
Ben çat pat Oracle kullandığım için zamanında daha select kısmında istenen tarihin biçimini vermek gerekiyordu, hatırladığım kadarıyle
Select TO_CHAR(Tarih, "MMMM yyyy") from ....
gibi. Diğer dillerde ise bunu çevirecek yapıyı bilmeniz gerek.
Bilmiyorsanız işi VBA ya...
Merhaba arkadaşlar.
Aşağıdaki kod ile veri tabanından aldığım verileri excel sayfasına aktarıyorum.
Call BAGLANTI
Set rs = CreateObject("ADODB.Recordset")
If ComboBox5.Value = "ELEKTRIK" Then
prog = ComboBox5.Value
strSQL = "SELECT...
Hocam teşekkür ederim. Ancak sistemin kurgusunda eksik yönlerin çok olduğunu düşünüyorum.
Kendimce şöyle bir algoritma düşündüm.
Combobox8'in change olayına bir fonksiyon yazılarak;
abone_listesi isimli tabloda bulunan IlAdi, IlceAdi, birim_adi, abone_no alanlarına bakacak, durumu alanında...
Sorgu = "Select Tarih, [Tali Bayi], Banka, [Kredi Kartı], [Taksit Sayısı], Tutar, İptal From [Sheet1$]" sorguyu
Sorgu = "Select Tarih, [Tali Bayi], Banka, [Kredi Kartı], [Taksit Sayısı], Tutar, İptal From [Sheet1$] where Tarih is not null or Tarih <>'' " şeklinde olması gerekiyor. dener misiniz...
Merhaba Arkadaşlar,
Kapalı dosya dan aşağıdaki bağlantı ve sorguyla bilgilerimi sorunsuz bir şekilde alabiliyorum. Şöyle bir sorunum var sadece. Bilgileri aldığım dosyadaki değerlerin son satırındaki bilgileri, Excel in boş satırları ile birlikte getiriyor. Verilerin dışın da bu satırların...
Merhaba,
Dosyanız ektedir.
ADO ve klasik vba birlikte kullanılmıştır.
Sub denemem()
Sayfa5.Select
son = Cells(Rows.Count, 1).End(3).Row
Range("A2:G" & son).ClearContents
Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _...
Bir sorgu satırı ile sorun aşılabilir.
Deneyiniz.
Option Explicit
Private Sub Worksheet_Activate()
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet, Tarih As Object, Yemek_Listesi As Object
Dim Yemek As Variant, Son As Long, Veri As Variant, X As Long, Say As Long, Y As Byte, Z...
Merhaba ,
SQL de tarih formatı "yıl-ay-gün" "yyyy-mm-dd" olarak algılıyor.
Bu nedenle excelde hüçreden veriyi alırken . Mesala tarih "A1" hüçresinde ise tarih = Format(Range("A1"),"yyyy-MM-dd") olarak alıp cumlenin içinede " & tarih & " olarak yerleştirmek gerekiyor.
"A1" hüçrerisini...
üstadım merhaba;
aslında sorguyu yazdım fakat site türkçe'ye çeviriyor kodları o yüzden resim ekledim.
SELECT
CARI10T.TARIH,
CARI00.KOD,
CARI00.AD,
BORCFIYAT,
ALACAKFIYAT,
SUM (BORCFIYAT-ALACAKFIYAT) OVER ( ORDER BY TARIH) AS BAKIYE
FROM CARI00
JOIN CARI10T ON CARI00.KOD=CARI10T.KOD
WHERE...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.