基于vba的sql生成系統(tǒng)設(shè)計與實現(xiàn)-預(yù)覽頁
【正文】 置的過濾條件,groupList存放GroupBy子句模塊中選擇的分組項目,havingCond存放Having子句中設(shè)置的分組過濾條件,orderIist存放OrderBy子句模塊選擇的排序字段.FromPart類存放From子句模塊確定的各種,它的值為數(shù)據(jù)庫表,視圖,則把數(shù)據(jù)庫表名和視圖名設(shè)置到tableName,別名設(shè),則把查詢表對象設(shè)置到queryTab,連接表信息,leftTab和rightTab是被連接的表,連接類型存放于joinType,cond中存放的是連接條件.SelectPart類存放Select子句模塊和Group,selectField中存放表字段,子查詢,函數(shù)或表達(dá)式,存放Select子句模塊設(shè)置的顯示項目別名.OrderPart類存放OrderBy模塊選擇的排序,orderType中是排序類型ASC或DESC.收稿日期:2005一O4—27作者簡介胡宏銀(1972一),數(shù)據(jù)庫理論及應(yīng)用.武漢化工學(xué)院第28卷SelectCompselectListOAsSelectPartfromList()AsFromPartwhereCondAsExpltemgroupList()AsSelectParthavingCondAsExpllemorderList()AsOrderPartFromF39。取得各子句的數(shù)據(jù).蠡而第3期胡宏銀等:基于VBA的SQL生成系統(tǒng)設(shè)計與實現(xiàn)53(selectList)(fromIist)(whereCond)(groupList)(havingCond)(orderList)39。lt。一1thenstrSQL—strSQL—Fromfori一0toUbound(fromIist)strTmp。strSQL+,endif39。gt。lt。gt。返回生成的SQL語句.buildSQL==strSQLendFunction上述函數(shù)中的buildSelect(),buildFrom(),buildExpItem(),buildGroup()和buildOrder()分別是把SelectPart對象,FromPart對象,Expltem對象,SelectPart對象(GroupBy子句)和OrderPart對象轉(zhuǎn)換為字符串的方法,其實現(xiàn)過程略.FunctionchkSelectRepeat(oneSelasSelectPart,sqlasSelectComp)asInteger功能:檢查顯示項目(包括表示別名)是否重復(fù).參數(shù)說明:oneSel是即將增加到Select子句中的項目,sql是存放SQI語句的對象.返回值:0表示沒有重復(fù)的項目和別名。別名重復(fù),設(shè)置返回值并退出函數(shù)ifamp。39。取得界面設(shè)置的數(shù)據(jù)callgetSelectData(oneSeleet)39。=0then39。顯示項目別名重復(fù),顯示錯誤信息.MsgBox顯示項目的別名重復(fù)!elseifret一2then39。VBA本文編輯:陳曉蘋
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1