D
DTHL
Unregistered / Unconfirmed
GUEST, unregistred user!
环境ADO+ODBC+MSSQL7
FUseDate := Trunc(Now);
try
qryConfirmation.Connection := dmTigerRMS.cntTigerRMS;
qryConfirmation.Close;
qryConfirmation.SQL.Clear;
qryConfirmation.SQL.Add('SELECT * FROM Confirmations WHERE UseDate BETWEEN :BEGINDATE AND :ENDDATE ORDER BY UseDate');
qryConfirmation.Parameters.ParamByName('BEGINDATE').Value := FUseDate;
qryConfirmation.Parameters.ParamByName('ENDDATE').Value := FUseDate+1;
qryConfirmation.Open;
//程序到这里总是出现 [ODBC没有执行可选特性]的错误,救救我吧
except
qryConfirmation.Close;
MyMsgDlg('提示:不能取得预定信息!');
self.Enabled := False;
end
FUseDate := Trunc(Now);
try
qryConfirmation.Connection := dmTigerRMS.cntTigerRMS;
qryConfirmation.Close;
qryConfirmation.SQL.Clear;
qryConfirmation.SQL.Add('SELECT * FROM Confirmations WHERE UseDate BETWEEN :BEGINDATE AND :ENDDATE ORDER BY UseDate');
qryConfirmation.Parameters.ParamByName('BEGINDATE').Value := FUseDate;
qryConfirmation.Parameters.ParamByName('ENDDATE').Value := FUseDate+1;
qryConfirmation.Open;
//程序到这里总是出现 [ODBC没有执行可选特性]的错误,救救我吧
except
qryConfirmation.Close;
MyMsgDlg('提示:不能取得预定信息!');
self.Enabled := False;
end