数据库技术与应用第九章数据库应用系统开发.pptVIP

例：求SC中所有选课学生的平均成绩。应用实例SC(snum,cnum,score)PrivateSubForm1_Load(……)HandlesMyBase.LoadDimsqlAsString=select*fromscDimmyconnAsNewSqlConnection(InitialCatalog=学生选课;Data_Source=NAONAO;IntegratedSecurity=SSPI;)DimadapterAsSqlDataAdapter=NewSqlDataAdapter(sql,myconn)Dimsc_datasetAsNewData.DataSetadapter.Fill(sc_dataset,sc)DimiAsInteger=0DimsumAsInteger=0Fori=0Tosc_dataset.Tables(sc).Rows.Count–1sum=sum+sc_dataset.Tables(sc).Rows(i).Item(score)Nextsum=sum/iMsgBox(平均成绩=sum)EndSubSqlDataAdapterDataSetPrivateSubForm1_Load(……)HandlesMyBase.LoadDimsqlAsString=select*fromscDimmyconnAsNewSqlConnection(InitialCatalog=学生选课;Data_Source=NAONAO;IntegratedSecurity=SSPI;)DimmycmdAsNewSqlCommand(sql,myconn)Dimreader_scAsSqlDataReaderDimiAsInteger=0DimsumAsInteger=0myconn.Open()reader_sc=mycmd.ExecuteReader()DoWhilereader_sc.Read()sum=sum+reader_sc.item(2)i=i+1Loopreader_sc.Close()myconn.Close()sum=sum/iMsgBox(平均成绩=sum)EndSubSqlCommand

ExecuteReader

SqlDataReaderSqlCommand、ExecuteScalarPrivateSubForm1_Load(……)HandlesMyBase.LoadDimsqlAsString=selectavg(score)fromscDimmyconnAsNewSqlConnection(InitialCatalog=学生选课;Data_Source=NAONAO;IntegratedSecurity=SSPI;)DimmycmdAsNewSqlCommand(sql,myconn)DimavgAsInteger=0myconn.Open()avg=mycmd.ExecuteScalar()myconn.Close()MsgBox(平均成绩=avg)EndSub数据绑定数据绑定是绑定技术中使用最频繁，也是最为重要的技术，也可以说是各种.Net开发语言开发数据库应用程序最需要掌握的基本知识之一。数据绑定之所以很重要，是因为在.NetFrameWorkSDK中并没有提供数据库开发的相关组件，即如：DbTextBox、DbLabel等用于数据库开发的常用组件在.NetFrameWorkSDK中都没有。而数据绑定技术使得界面上的所有控件访问数据源数据时可以步调一致。（1）建立SQLServe