makro ile mysql sorguları

[lirzan]

:aha: merhabalar
mysql bağlantısı ile sorgu yazarak excelle veri aktarmak isityorum ilk aşamada gerekli olan verileri ve mysql bağlantı kodlarını oluşturdum ve çalışıyor ancak 2 aşama için cok acil yardıma ihtiyacım var yardım etmek ısteyen arkadas olursa uzerınde çalıştgım dosyayı ve yapmak istediklerimi eklerim

 

[lirzan]

yardımcı olacak kimse yokmu cok onemlı

 

[Ferhat Pazarçevirdi]

:aha: merhabalar
mysql bağlantısı ile sorgu yazarak excelle veri aktarmak isityorum ilk aşamada gerekli olan verileri ve mysql bağlantı kodlarını oluşturdum ve çalışıyor ancak 2 aşama için cok acil yardıma ihtiyacım var yardım etmek ısteyen arkadas olursa uzerınde çalıştgım dosyayı ve yapmak istediklerimi eklerim

2.Aşama nedir?

Bu şekilde cevap alabileceğinizi sanmıyorum.

 

[lirzan]

Mysql BaĞlantisi Ve Combobox

:roll: üzerinde çalıştığım kitap ekte. Yapmaya çalıştığım işlemelrin açıklamaları kitabın içinde yazılı yardımcı olursanız cok sevinirim

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi bir kodlama yapılabilir ama tablolarınızdaki alan niteliklerini (tiplerini) bilmediğimizden hata verebilir. Yine de deneyiniz.

Sql = "SELECT " & _
                    "Sinav_Optik.Sinif,Sinav_Optik.il,Sinav_Optik.ilce, " & _
                    "Sinav_Optik.Okul,Sinav_Optik.Ogrenci_No, Sinav_Optik.Adi, Sinav_Optik.Soyadi" & _
                    "Sinav_Hesap.ders1_d, Sinav_Hesap.ders1_y, Sinav_Hesap.ders2_d, Sinav_Hesap.ders2_y" & _
                    "Sinav_Hesap.puan, Sinav_Hesap.ders1_subederece, Sinav_Hesap.ders1_okulderece " & _
       "FROM " & _
                    "Sinav_Optik, Sinav_Hesap " & _
       "WHERE " & _
                    "Sinav_Optik.Ogrenci_No=Sinav_Hesap.Ogrenci_No AND " & _
                    "Sinav_Hesap.il=" & ComboBox2.Text & " AND " & _
                    "Sinav_Hesap.okul=900"
Set rs = New ADODB.Record
rs.Open Sql, conn, 1, 3
satir = 2
Do Until rs.EOF
    
    satir = satir + 1
    
    With Sheets("sorgula")
        .Cells(satir, 1) = CStr(rs(0))
        .Cells(satir, 2) = CStr(rs(1))
        .Cells(satir, 3) = CStr(rs(2))
        .Cells(satir, 4) = CStr(rs(3))
        .Cells(satir, 5) = CStr(rs(4))
        .Cells(satir, 6) = CStr(rs(5)) & " " & CStr(rs(6))
        .Cells(satir, 7) = CLng(rs(7))
        .Cells(satir, 8) = CLng(rs(8))
        .Cells(satir, 9) = CLng(rs(9))
        .Cells(satir, 10) = CLng(rs(10))
        .Cells(satir, 11) = CLng(rs(7)) + CLng(rs(8))
        .Cells(satir, 12) = CLng(rs(9)) + CLng(rs(10))
        .Cells(satir, 13) = CDbl(rs(11))
        .Cells(satir, 14) = CDbl(rs(12))
        .Cells(satir, 15) = CDbl(rs(13))
    End With
    
    rs.MoveNext
Loop
        
Set rs = Nothing

 

[lirzan]

cok teşekkür ediyorum yardımın için ama verdiğin kodda Sql= "SELECT " & _ ile olan yerde hata alıyorum "ınvalid use of property" diye sql tanımladım
dim sql as adodb.recordset olarak tanımladım ama yine aynı hatayı aldım neden olabilir referanslaımda tam

 

[lirzan]

Ferhat cok teşekkür ediyorum sorunu çözdüm şimdi başka birşeyle uğraşıyorum acaba yardımcı olablirmisiniz.
comboboxtan farklı bir il secip listele tusuna bastıgımda sorgu sayfasındaki bir once listelen kayıtların silinmesini isityorum birşeyler yazdım ama olmadı bilgilendirebilirmsiiniz beni

 

[kelkitli]

Selamlar,
Sub temizle()
Sayfa3.[A3:O10000] = ""
End Sub

 

[lirzan]

teşekkür ediyorum bukadar basit birşeyı cözemıyor bazen insan sağolasın