资源描述:
《vb+sql语句事例代码》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、VB+SQL语句事例代码VB设计时的具体代码----------------------------------------------一.所需的类【Students类】//学生————-------成员函数(具体函数实现及参数省略)Init//未注释的和上面类似,不赘述DeleteGetInfoGetNameGetNewldInsertLoad_By_Class//读取指定班级的所有学生学号到数组Arr_StuId()和Arr_StuName()中UpdateUpdate_Transfer//修改指定学生的班级信息Class_Id,此过程在学生班级调转时使用
2、Load_By_Class具体实现:{PulicSubLoad_By_Class(ByValTempClassIdAsInteger)DimIAsInteger//初始化班级数组EraseArr_StuId//Erase语句重新初始化大小固定的数组的元素,以及释放动态数组的存储空间ReDimArr_StuId(0)//ReDim为数组变量重新分配存储空间EraseArr_StuNameReDimArr_StuName(0)DB_Connect//连接数据库SqlStmt="SELECTStudent_Id,Student_NameFROMStudentsWHE
3、REClass_Id-="+Trim(Str(TmpClassId))+"ORDERBYStudent_Id"//要执行SQL的语句//VB中Trim的作用是去掉字符串中的空格,例如,此处将字符串TmpClassId中的空格去掉再赋值给Class_Id.OdbcExt(SqlStmt)//执行SQL语句I=0DoUnitilSQLFetch(Hstmt)=SQL_NO_DATA_FOUND//SQLFetch函数的功能是将结果集的当前记录指针移至下一个记录ColVa=String(40,0)Rc=SQLGetData(Hstmt,1,1,ColVal,Len(
4、ColVal),pcblen)ReDimPreserveArr_StuId(I+1)Arr_StuId(i)=Val(ColVal)ColVal=String(40,0)Rc=SQLGetData(Hstmt,2,1,ColVal,Len(ColVal),pcblen)ReDimPreserveArr_StuName(I+1)Arr_StuName(i)=TrimStr(ColVal)I=I+1LoopRc=SQLFreeStmt(Hstmt,SQL_DROP)DB_Disconnect//断开与数据库连接EndSub}【Experience类】(具体函数实现
5、及参数省略)//教育经历—————------成员函数(具体函数实现及参数省略)InitDeleteByld//删除指定的学生记录DeleteByStudentld//删除指定的学生的所有记录GetInfoInsertUpdateDeleteByld具体实现:{PublicSubDeleteByld(ByValTmpIdAsInteger)DB_Connect//连接数据库//SQL语句SqlStmt="DELETEFROMExperienceWHEREExpId="+Trim(Str(TmpId))OdbcExt(SqlStmt)//执行SQL语句Rc=SQ
6、LFreeStmt(Hstmt,SQL_DROP)DB_Disconnect//断开与数据库连接EndSub}【Evaluation类】//奖惩—————-------成员函数(具体函数实现及参数省略)InitDeleteByldDeleteByStudentldGetInfoInsertUpdate【Change类】//变动—————----成员函数(具体函数实现及参数省略)InitDeleteByldDeleteByStudentldGetInfoInsertUpdateInsert具体实现:{PublicSubInsert()DB_ConnectSqlS
7、tmt="INSERTINTOChange(Student_Id,ChangeType,ChangeData,"+"OriClass,NewSchool,NewClass,Reason,Memo)Values("+Trim(Student_Id)+","+Trim(ChangeType)+","+Trim(ChangeData)+","+Trim(OriClass)+","+Trim(NewSchool)+","+Trim(Str(NewClass))+","+Trim(Reason)+","+Trim(Memo)+")"//INSERT语句OdbcExt(S
8、qlStmt)//执行SQL语句Rc=