SQLStructuredQueryLanguage用以操縱資料庫的指令集資料操作語言DML：操作資料錄如DELETE,SELECT,UPDATE….資料定義語言DDL：建立資料表及資料欄位如AFTERTABLE,CREATETABLE….SELECT敘述對(duì)資料庫進(jìn)行選取查詢的動(dòng)作將查詢結(jié)果指定給Recordset物件的Recordsource屬性就可以將資料顯示出來SELECT語法SELECT

欄位FROM

資料表例如：SELECT

書名,分類,作者FROM

書籍

SELECT

*FROM

書籍

SELECT書籍.書名,書籍.分類,書籍.作者,作者.聯(lián)絡(luò)電話 FROM

書籍,作者SELECT語法–排序SELECT

欄位FROM

資料表ORDERBY

排序方式排序方式：ASC遞增排序，DESC遞減排序例如：SELECT

*FROM

書籍ORDERBY

頁數(shù)ASC

SELECT*FROM書籍ORDERBY

頁數(shù)DESC

SELECT*FROM書籍ORDERBY

頁數(shù)ASC,分類DESCSELECT語法–使用別名SELECT

欄位1AS

別名1,欄位2AS

別名2FROM

資料表例如：SELECT

作者AS程式設(shè)計(jì)專家FROM

書籍

SELECT作者FROM

書籍資料內(nèi)容一樣，顯示的欄位名稱不同SELECT語法–限定選取筆數(shù)SELECTTOPnFROM

資料表SELECTTOPnPercentFROM

資料表例如：SELECTTOP5*

FROM

書籍ORDERBY

售價(jià)DESC

SELECT語法–統(tǒng)計(jì)函數(shù)SELECT

統(tǒng)計(jì)函數(shù)AS

別名

FROM

資料表例如：SELECTAVG(售價(jià))AS

平均售價(jià)FROM

書籍COUNT：統(tǒng)計(jì)資料比數(shù)SUM：總合MIN,MAX：求最小與最大STDEV：取標(biāo)準(zhǔn)差VAR：取變異數(shù)

SELECT語法–分組統(tǒng)計(jì)SELECT

欄位FROM

資料表GROUPBY

欄位例如：SELECT

分類,AVG(售價(jià))AS平均售價(jià)FROM

書籍

GROUPBY

分類SELECT語法–分組統(tǒng)計(jì)再篩選SELECT

欄位FROM

資料表GROUPBY

欄位HAVING

條件例如：SELECT

分類,AVG(售價(jià))AS平均售價(jià)FROM

書籍

GROUPBY

分類HAVINGAVG(售價(jià))>400SELECT語法–子集合查詢SELECT

欄位FROM

資料表WHERE

欄位IN

子集合例如：SELECT

*FROM

書籍WHERE

作者IN(‘陳徹’,’陳臻’) SELECT

*FROM

書籍WHERE

作者名IN(SELECT作者名FROM作者WHERE專長=‘程式設(shè)計(jì)’)執(zhí)行SELECT敘述使用Recordset物件的Open方法使用Connection物件的Execute方法使用Command物件的Execute方法使用Recordset物件的Open方法Rs.open書籍,cn,adOpenStaticsql=“SELECT*FROM書籍”Rs.opensql,cn,adOpenStatic使用Connection物件的Execute方法Setrecordset=Connection.execute(SQL敘述,recordaffected,options)這種recordset為唯讀，所以不能進(jìn)行編修的動(dòng)作如果要指定給DATAGRID

Cn.CursorLocation=adUseClient使用Command物件的Execute方法Setrecordset=command.execute這種recordset為唯讀，所以不能進(jìn)行編修的動(dòng)作需設(shè)定command物件的Commandtext（SQL敘述）與ActiveConnection（Connection物件）屬性動(dòng)作查詢（ActionQuery）RecordSet內(nèi)容的更新，新增，刪除等要求（Query），稱之為動(dòng)作查詢（ActionQuery）不可以使用RecordSet的Open方法使用Command物件或是Connection物件的Execute方法動(dòng)作查詢（ActionQuery）－更新使用Update敘述語法：Update資料表名稱Set欄位＝欄位值Ex：Update書籍Set分類=“程式設(shè)計(jì)”動(dòng)作查詢（ActionQuery）－新增使用InsetInto敘述語法：InsertInto資料表名稱(欄位1,欄位2,….)Value(值1,值2,…)Ex：InsertInto書籍(書名,分類,售價(jià))Value(“Delphi”,”程式設(shè)計(jì)”,500)動(dòng)作查詢（ActionQuery）－刪除使用Delete敘述語法：DeleteFrom資料表名稱Ex：Deletefrom書籍使用Connection物件來執(zhí)行

動(dòng)作查詢（ActionQuery）語法：Connection.Execute動(dòng)作查詢,RecordsAffected,OptionsRecordset.Requery執(zhí)行動(dòng)作查詢後會(huì)產(chǎn)生一新的Recordset，所以需用Recordset物件的Requery方法取得新的Recordset物件使用Command物件來執(zhí)行

動(dòng)作查詢（ActionQuery）須先設(shè)定Command物件的CommandText和ActionConnection屬性語法：Command.ExecuteRecordset.Requery執(zhí)行動(dòng)作查詢後會(huì)產(chǎn)生一新的Recordset，所以需用Recordset物件的Requery方法取得新的Recordset物件連SQLServer連SQLServerPubliccnAsNewADODB.ConnectionPublicrsAsNewADODB.Recordset'查詢PubliccmdAsNewADODB.Command'新增/刪除/修改PrivateSubForm_Load()cn.ConnectionString="Provider=SQLOLEDB.1;Password=1234;PersistSecurityInfo=True;UserID=sa;InitialCatalog=Northwind;DataSource=3"cn.CursorLocation=adUseClientcn.Open'使用connection的excute方法Setrs=cn.Execute("SELECT*FROMemployees")SetDataGrid1.DataSource=rs'使用command的excute方法'mysql="SELECT*FROMemployees"'cmd.ActiveConnection=cn'cmd.CommandText=mysql'Setrs=cmd.Execute'SetDataGrid1.DataSource=rsEndSub連SQLServer‘新增(方法一使用command)PrivateSubCommand3_Click()mysql="insertintoemployees(FirstName,LastName)values('cc','"&Trim(Text1.Text)&"')"cmd.ActiveConnection=cncmd.CommandText=mysqlcmd.Executers.RequeryEndSub‘新增(方法二使用connection)PrivateSubCommand7_Click()cn.Execute"insertintoemployees(FirstName,LastName)values('cc','"&Trim(Text1.Text)&"')"rs.RequeryEndSub連SQLServer'修改PrivateSubCommand5_Click()mysql="updateemployeessetFirstName='cc',LastName='"&Trim(Text1.Text)&"'whereemployeeid="&rs(0)cmd.ActiveConnection=cncmd.CommandText=mysqlcmd.Executers.RequeryEndSub連SQLServer'刪除PrivateSubCommand4_Click()mysql="deletefromemployeeswhereemployeeid="&rs(0)cmd.ActiveConnection=cncmd.CommandText=mysqlcmd.Executers.RequeryEndSub連SQLServer'查詢PrivateSubCommand6_Click()Ifrs.State<>adStateClosedThenrs.CloseEndIfrs.Open"SELECT*FROMemployeeswherelastnamelike'%"&Text1.Text&"%'",cn,adOpenStatic,adLockOptimisticIfrs.RecordCount>0