VBA kullanarak Access'te sorgu sonuçlarını alın.
Bir Microsoft Access sorgusunun sonuçlarını nasıl okuyacağınızı bilmek, Access uygulamanızı daha dinamik hale getirmenize yardımcı olabilir. Access, Microsoft Office paketinin bir parçasıdır ve ilişkisel veritabanları oluşturmak için kullanılır. Visual Basic for Applications (VBA), Access'te Windows uygulamaları oluşturmak ve veritabanı verilerini almak için kullanılabilir. Bir veritabanından bilgi istemek için Structured Query Language (SQL) ifadeleri kullanılarak bir sorgu oluşturulur.
Aşama 1
Microsoft Office Access 2007'yi başlatın ve "Boş Veritabanı"nı seçin, ardından "Oluştur"u tıklayın. "Veritabanı Araçları"na tıklayın ve "Visual Basic"i seçin. "Ekle" alanına tıklayın ve "Modül"ü seçin.
Günün Videosu
"Private sub readQueryResults" yazın ve yeni bir alt program oluşturmak için "Enter" tuşuna basın.
Adım 2
Sorgu sonuçlarını okumak için kullanacağınız değişkenleri bildirmek için aşağıdakini yazın:
Dim RecordSt As Kayıt Kümesi Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer
Aşama 3
"CityTbl" tablosunu oluşturmak için aşağıdakini yazın:
stringSQL = "TABLO OLUŞTUR CityTbl (Şehir METİN(25), Durum METİN(25));" DoCmd. RunSQL (stringSQL)
4. Adım
"CityTbl" tablonuza iki yeni kayıt eklemek için aşağıdakini yazın:
stringSQL = "CityTbl ([Şehir], [Devlet]'E EKLE) " stringSQL = stringSQL & "DEĞERLER ('Fort Worth', 'Teksas');" DoCmd. SetWarnings Yanlış DoCmd. RunSQL (stringSQL)
stringSQL = "CityTbl ([Şehir], [Devlet]'E EKLE) " stringSQL = stringSQL & "DEĞERLER ('Dallas', 'Teksas');" DoCmd. SetWarnings Yanlış DoCmd. RunSQL (stringSQL)
Adım 5
Sorgunuzu tanımlamak ve Kayıt Kümenizi açmak için aşağıdakini yazın:
stringSQL = "CityTbl.*'DAN CityTbl'DEN SEÇ;" RecordSt = dBase olarak ayarlayın. OpenRecordset (stringSQL)
6. Adım
Bir "Döngü İçin" oluşturmak ve sorgu sonuçlarınızı bir mesaj kutusu aracılığıyla görüntülemek için aşağıdakini yazın:
KayıtSt. MoveFirst For rCnt = 0 RecordSt. RecordCount MsgBox (RecordSt. Fields("Şehir").Value & ", " & RecordSt. Fields("State").Value) RecordSt. MoveNext Next rCnt
Alt programı yürütmek için "F5" tuşuna basın.
