别人模板中的2个函数过程（不懂请教）
我是菜鸟一个，昨天做作业，察看别人的模板做法时，这他定义的这两个函数过程不懂有什么用，还望各位大虾，哥哥姐姐们帮着看看，如果上传的不全请指出。谢谢了
我是菜鸟一个，昨天做作业，察看别人的模板做法时，这他定义的这两个函数过程不懂有什么用，还望各位大虾，哥哥姐姐们帮着看看，如果上传的不全请指出。谢谢了
2004-09-16 18:29
Public Function IniDB() As Boolean On Error GoTo on_dberr g_DBcon.Execute ("CREATE TABLE Managelist (Mname Char(32),Mpwd char(16))") g_DBcon.Execute ("CREATE TABLE EmpList (Enumber Char(32) PRIMARY KEY , Ename char(16),Eage int,Edate char(32),Eaddress char (128))") IniDB = True Exit Function on_dberr: MsgBox "错误代码：" & Err.Number & vbCr & _ "错误描述：" & Err.Description, vbCritical + vbOKOnly, "狗狗提示" IniDB = False End Function
Public Function QueryEmpInfo(ByVal strsql As String) As Boolean On Error GoTo ON_QueryERR Set g_DBRct = Nothing '重新查询 Call g_DBRct.Open(strsql, g_DBcon, adOpenDynamic, adLockOptimistic, -1) QueryEmpInfo = True Exit Function
ON_QueryERR: MsgBox "错误代码：" & Err.Number & vbCr & _ "错误描述：" & Err.Description, vbCritical + vbOKOnly, "狗狗提示" QueryEmpInfo = False End Function
2004-09-16 18:30