27,582
社区成员




ResultCode=SQLConnect(ConnectionID,"DSN=myDatabase;DB=gprsdb");
IF ResultCode==0 THEN
ErrMsg="No connect error";
ELSE
ErrMsg=SQLErrorMsg(ResultCode);
ENDIF;
ResultCode= SQLSelect( ConnectionID, "temptable","hisTabList" , "","" );
{===建立与MS SQL数据库Pubs连接(用户名:sa,密码:)===}
DIM connect AS MESSAGE;
DIM strSQL AS MESSAGE;
DIM ColIndex AS INTEGER;
DIM RowIndex AS INTEGER;
DIM ColCount AS INTEGER;
OLE_CreateObject(%myCon,"ADODB.Connection");
OLE_CreateObject(%myRs,"ADODB.Recordset");ADO{connect="Provider=SQLOLEDB; Data Source=E8INHLY0QRBITBZ; Initial Catalog=gprsdb; User Id=; Password=; ";}
connect="driver={sql server};server=E8INHLY0QRBITBZ;database=gprsdb;uid=;pwd=";
%myCon.Open(connect);
strSQL="SELECT top 50 record_time from historytable";
%myRs.Open(strSQL,%myCon,3,3,1);
#MSFlexGrid1.DataSource=%myRs;
[code=java]
DIM HisSQL1 AS MESSAGE;
DIM HisSQL2 AS MESSAGE;
DIM HisSQL3 AS MESSAGE;
DIM NumRows AS INTEGER;
DIM i AS INTEGER;
HisAlrStart = #DT1.Value;
HisAlrEnd=#DT2.Value ;
HisSQL1 ="SELECT [AlarmName],[AlarmStartTime],[AlarmEndTime],[AlarmTimeLength],[AlarmType],[AlarmValue],[VariateName],[VariateRemark] ";
HisSQL2 = " FROM [PA3_CCR].[dbo].[AlarmList]";
IF #ComboBox1.Text == "全部" THEN
HisSQL3 = " where AlarmStartTime >= '"+HisAlrStart+"' and AlarmStartTime < '"+HisAlrEnd+" ' order by AlarmStartTime";
ELSE
HisSQL3 = " where AlarmStartTime >= '"+HisAlrStart+"' and AlarmStartTime < '"+HisAlrEnd+"' and VariateRemark = '"+#ComboBox1.Text+"' order by AlarmStartTime";
ENDIF;
SQLClearStatement(ConnectionID,StatementID);
ResultCode=SQLSetStatement( ConnectionID, HisSQL1 );
ResultCode=SQLAppendStatement(ConnectionID, HisSQL2 );
ResultCode=SQLAppendStatement(ConnectionID, HisSQL3 );
ResultCode=SQLPrepareStatement(ConnectionID,StatementID);
ResultCode=SQLExecute(ConnectionID,"AlarmView",StatementID);
why=SQLErrorMsg(ResultCode);
IF ResultCode==0 THEN
NumRows=SQLNumRows(ConnectionID);
#FpsControl3.SetRowMaxs(NumRows);
SQLFirst( ConnectionID );
IF NumRows>0 THEN
FOR i=1 TO NumRows
#FpsControl3.SetText(1, i, AlarmStartTime);
#FpsControl3.SetText(2, i, AlarmEndTime);
#FpsControl3.SetText(3, i, AlarmName);
#FpsControl3.SetText(4, i, PLCAdd);
#FpsControl3.SetText(5, i, AlarmVal);
#FpsControl3.SetText(6, i, "状态报警");
#FpsControl3.SetText(8, i, DevTag);
ResultCode = SQLNext(ConnectionID);
NEXT;
ELSE #FpsControl3.SetText(-1, -1, "");
ENDIF;
HisAlrNum = "有 "+StringFromIntg(NumRows,10)+" 条报警!";
ENDIF;
SQLEnd(ConnectionID);
ResultCode=SQLClearStatement(ConnectionID, StatementID);
[/code]