Ana içeriğe atla

SQL İŞLEMLERİ


Option Compare Database
Sub secme_islemi()
'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 ORDER BY MESLEK DESC"
'Tablo1deki ad alanındaki verileri YENI adındaki tabloya aktar ad yerine * olursa tüm verileri tabloya ekler
'ORDER BY..... küçükten büyüye sıralama yapar
'ORDER BY .....DESC büyükten küçüğe sıralama yapar
'<bİRDEN FAZLA ALAN İÇİN ARAYA ..A...,....B... KONUR
'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MESLEK='DOKTOR'"
'WHERE ........='string değeri' KOŞUL OLUŞTURUR
'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE LEFT(AD,1)='U'" 'sayısal değerde kullanılabilir:
'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MAAŞ>=2000"
DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MAAŞ>=1 AND MAAŞ<=2000" 'İKİ DEĞER ARASINDAKİLERİ ALDIRMAK
End Sub

Etiketler:

Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

Bir tablo içindeki verileri formdaki değerlerle sınırlandırmak

Private Sub Komut4_Click() Dim db As Database Dim rst, rs As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Tablo1") Set rs = db.OpenRecordset("yeni") Do Until rst.EOF If rst("yaş").Value >= CInt(Metin0) And rst("yaş").Value <= CInt(Metin2) Then rs.AddNew rs("ad").Value = rst("ad").Value rs("yaş").Value = rst("yaş").Value rs.Update End If rst.MoveNext Loop End Sub
Yorum Gönder
Devamı

Hesaplama

Sub hesapla() Dim db As Database Dim rst As Recordset Set db = CurrentDb toplam = 0 Set rst = db.OpenRecordset("giriş") Do Until rst.EOF If rst.Fields(2).Value = "teknosa" Then toplam = toplam + (rst.Fields(3).Value * rst.Fields(4).Value) End If rst.MoveNext Loop MsgBox toplam End Sub
Yorum Gönder
Devamı