宾馆管理信息系统论文

ese_PRC_CI_AS NULL,
   [checkdate][datetime] NULL,
   [ammount][numeric](10,2) NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
⒍宾馆管理信息系统具体程序实现
⑴创建公用模块 Module1.bas
  添加公共数据操作函数，用以执行各种SQL语句。添加函数ExecuteSQL，代码如下：
Public Function ExecuteSQL(ByValSQL As String,MsgString AsString)_ As ADODB.Recordset 
‘执行SQL语句，并返回记录集对象
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
‘异常处理
On Error GoTo ExecuteSQL_Error’
‘用Split函数产生一个包含各个子串的数组
   sTokens=Split(SQL)
   Set cnn=NEW ADODB.Connection
‘打开连接
   cnn.Open ConnectString
   If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0))) Then
       Cnn.Execute SQL
       MsgString=sTokens(0)&”query successful”
   Else
       Set rst=NEW ADODO.Recordset
       rst.Open Trim$(SQL),cnn,adOpenKeyset,adLockOptimistic
       rst.MoveLast
       get RecordCount
  ‘返回记录集对象
       Set ExecuteSQL=rst
       MsgString=”查询到”&rst.RecordCount&”条记录”

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>