მიიღეთ შეკითხვის შედეგები Access-ში VBA-ს გამოყენებით.
Microsoft Access-ის შეკითხვის შედეგების წაკითხვის ცოდნა დაგეხმარებათ გახადოთ თქვენი Access აპლიკაცია უფრო დინამიური. წვდომა არის Microsoft Office კომპლექტის ნაწილი და ის გამოიყენება რელაციური მონაცემთა ბაზების შესაქმნელად. Visual Basic for Applications (VBA) შეიძლება გამოყენებულ იქნას Access-ში Windows აპლიკაციების შესაქმნელად და მონაცემთა ბაზის მონაცემების მისაღებად. მოთხოვნა აგებულია სტრუქტურირებული შეკითხვის ენის (SQL) განცხადებების გამოყენებით, რათა მოითხოვოს ინფორმაცია მონაცემთა ბაზიდან.
Ნაბიჯი 1
გაუშვით Microsoft Office Access 2007 და აირჩიეთ "Blank Database", შემდეგ დააჭირეთ "Create". დააჭირეთ "მონაცემთა ბაზის ინსტრუმენტებს" და აირჩიეთ "Visual Basic". დააჭირეთ "ჩასმა" ველს და აირჩიეთ "მოდული".
დღის ვიდეო
აკრიფეთ "Private sub readQueryResults" და დააჭირეთ "Enter" ახალი ქვეპროგრამის შესაქმნელად.
ნაბიჯი 2
ჩაწერეთ შემდეგი ცვლადების გამოსაცხადებლად, რომლებსაც გამოიყენებთ შეკითხვის შედეგების წასაკითხად:
Dim RecordSt როგორც ჩანაწერების ნაკრები Dim dBase როგორც მონაცემთა ბაზა Dim stringSQL როგორც სტრიქონი Dim rCnt როგორც მთელი რიცხვი
ნაბიჯი 3
ჩაწერეთ შემდეგი, რომ შექმნათ "CityTbl" ცხრილი:
stringSQL = "CREATE TABLE CityTbl (City TEXT(25), State TEXT(25));" DoCmd. RunSQL (stringSQL)
ნაბიჯი 4
ჩაწერეთ შემდეგი, რომ დაამატოთ ორი ახალი ჩანაწერი თქვენს "CityTbl" ცხრილში:
stringSQL = "InSERT INTO CityTbl ([ქალაქი], [შტატი]) " stringSQL = stringSQL & "VALUES ('Fort Worth', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
stringSQL = "InSERT INTO CityTbl ([ქალაქი], [შტატი]) " stringSQL = stringSQL & "VALUES ('Dallas', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
ნაბიჯი 5
ჩაწერეთ შემდეგი თქვენი მოთხოვნის დასადგენად და თქვენი ჩანაწერების ნაკრების გასახსნელად:
stringSQL = "SELECT CityTbl.* FROM CityTbl;" დააყენეთ RecordSt = dBase. OpenRecordset (stringSQL)
ნაბიჯი 6
ჩაწერეთ შემდეგი, რათა შექმნათ "For Loop" და აჩვენოთ თქვენი შეკითხვის შედეგები შეტყობინების ყუთში:
ჩანაწერი ქ. MoveFirst For rCnt = 0 To RecordSt. RecordCount MsgBox (RecordSt. Fields("City").Value & ", " & RecordSt. Fields("State").Value) RecordSt. MoveNext შემდეგი rCnt
დააჭირეთ "F5" ქვეპროგრამის შესასრულებლად.
