sql kullanma

[tooba]

arkadaşlar, ben asp programlama kökenli olduğum için excel de de sql in nimetlerinden faydalanmak istiyorum. verileri istediğim kriterlere göre bir recordset in içine alıp kullanmak istiyorum. kısaca excel de sql i nasıl kullanabilirim? örnek dosya gönderebilirmisiniz?

kolay gelsin

[zafer]

Merhaba

Aşağıdaki örnekleri inceleyiniz.Ayrıca Sql bölümündede yararlanabilirsiniz.

SQL Dökümantasyon ve Örnekler (http://www.excel.web.tr/showthread.php?t=1238)
SQL VERİTABANINA BİLGİ GİRİŞİ VE SORGULAMA (http://www.excel.web.tr/showthread.php?t=15707)

[tooba]

zafer bey çok teşekkür ederim ekteki excel dosyayı inceledim, ancak veritabanı olarak hangi tabloyu kullandığını anlayamadım doğrusu. ben bir excel sayfasını tablo olarak kullanıp o sayfadan sql cümleleri ile veri çekmek/işlemek istiyorum. ekte gönderdiğim dosyayı incelerseniz sevinirim, kolay gelsin.

[tooba]

pardon eki şimdi gönderiyorum

[Zeki Gürsoy]

Merhaba,
Anladığım kadarıyla dosyanın kendi çalışma sayfasından SQL ile veri çekmek istiyorsunuz.
Ekteki örneği inceleyin.

[veyselemre]

Sub doldur()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Sheets("sql").Select
Cells.ClearContents
Set db = OpenDatabase(ActiveWorkbook.FullName, False, False, "Excel 8.0")
Set rs = db.OpenRecordset("SELECT * from [Tablo$] order by no desc")

For x = 0 To rs.Fields.Count - 1
Cells(1, x + 1) = rs(x).Name
Cells(1, x + 1).Font.Bold = True
Next

[A2].CopyFromRecordset rs

rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub

[tooba]

anemos ve veysel emre ye çok teşekkür ederim, benim için çok değerli bir bilgiydi bu, kolay gelsin.

[tooba]

Sub doldur()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Sheets("sql").Select
Cells.ClearContents
Set db = OpenDatabase(ActiveWorkbook.FullName, False, False, "Excel 8.0")
Set rs = db.OpenRecordset("SELECT * from [Tablo$] order by no desc")

For x = 0 To rs.Fields.Count - 1
Cells(1, x + 1) = rs(x).Name
Cells(1, x + 1).Font.Bold = True
Next

[A2].CopyFromRecordset rs

rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub

arkadaşlar çok teşekkür ederim ancak select değil de insert komutu kullandığımda çalışmıyor. "runtime error 3219 invalid operation".

mesela
insert into [Tablo$] (ad,soyad) values ('ahmet','ayse')

[veyselemre]

Tablo isimli sayfayı temizleyin. A1'e isim B1'e soyad yazın komutu çalıştırın.

Sub Ekle()
Dim db As Database

Set db = OpenDatabase(ThisWorkbook.FullName, 0, 0, "Excel 8.0")
Str1 = "insert into [Tablo$] (isim,soyad) values ('ahmet','ayse')"

db.Execute Str1
db.Close
Set db = Nothing
End Sub

[achmeth]

Excel'de SQL sorgusuna dair sitede birçok örnekle karşılaştım ancak şöyle bir sorun var ki, SQL sorguları çalıştırmaya başladığımda RAM kullanımı tavan yapıyor ve bir süre sonra bilgisayar kilitleniyor. Bu sorunu çözmeye yönelik bir önerisi olan var mıdır?

[zafer]

Merhaba

Excel'de SQL sorgusuna dair sitede birçok örnekle karşılaştım ancak şöyle bir sorun var ki, SQL sorguları çalıştırmaya başladığımda RAM kullanımı tavan yapıyor ve bir süre sonra bilgisayar kilitleniyor. Bu sorunu çözmeye yönelik bir önerisi olan var mıdır?

Bunun bir çok sebebi olabilir.
Öncelikle devamlı veri girişi olan yoğunluğu fazla bir tablodan bilgi çekmek istiyorsanız zaman uzayabilir.
Aynı sorguyu sql üstünde deneyin nasıl bir sonuç veriyor.

Nasıl bir sorgu kullanıyorsunuz buraya yazın.