查询分析器里面没有问题,在ADOQuery.sql.add()种为什么就出错呢?
来源:百度文库 编辑:神马文学网 时间:2024/04/28 07:32:27
HBADOConnString =
‘Provider=SQLOLEDB.1;Persist Security Info=True;PassWord=%s;User ID=%s;Initial Catalog=%s;Data Source=%s‘;
--------------------------------------------
function ConnectHBDataBase(const ServerName,DataBaseName,UserName,UserPassword: string;
ADOConnectionTest: TADOConnection; ShowMsg: Boolean = True): Boolean;
var
fCS: string;
fQuery: TADOQuery;
fUserName, fPassWord: string;
begin
fCS := Format(HBADOConnString, [UserPassword,UserName , DataBaseName, ServerName]);
ADOConnectionTest.Close;
ADOConnectionTest.ConnectionString := fCS;
try
ADOConnectionTest.Open;
except
Result := False;
if ShowMsg then
MessageError(‘对不起,数据库服务器地址错误!‘);
Exit;
end;
Result := true;
end;
----------------------------------------------------------------------
procedure ADOExecuteSQL(ConnectionObjects: TADOConnection; SQLStr: string);
begin
with TADOQuery.Create(nil) do
try
Connection := ConnectionObjects;
SQL.Text := SQLStr;
ExecSQL;
finally
Free;
end; //try
end;
//调用
接口服务启动后就保持连接,这样更节省资源 ?
HBConnected := ConnectHBDataBase( ZNHBSvrParam.HB_ServerName,ZNHBSvrParam.HB_DataBaseName,
ZNHBSvrParam.HB_UserName,ZNHBSvrParam.HB_UserPassword, HBDBConnection, False);
U_MODE_SQLStr = ‘ UPDATE A SET A.TIMEMARK = GETDATE() FROM MODE A ‘+
‘ WHERE A.TIMEMARK IS NULL AND A.TYPE_NO = ‘‘%S‘‘ AND A.ORDER_NO = %D ‘;
ADOExecuteSQL(HBDbconn, U_MODE_SQLStr,[fQuery.Fields[0].AsString,fQuery.Fields[1].AsInteger]);
‘Provider=SQLOLEDB.1;Persist Security Info=True;PassWord=%s;User ID=%s;Initial Catalog=%s;Data Source=%s‘;
--------------------------------------------
function ConnectHBDataBase(const ServerName,DataBaseName,UserName,UserPassword: string;
ADOConnectionTest: TADOConnection; ShowMsg: Boolean = True): Boolean;
var
fCS: string;
fQuery: TADOQuery;
fUserName, fPassWord: string;
begin
fCS := Format(HBADOConnString, [UserPassword,UserName , DataBaseName, ServerName]);
ADOConnectionTest.Close;
ADOConnectionTest.ConnectionString := fCS;
try
ADOConnectionTest.Open;
except
Result := False;
if ShowMsg then
MessageError(‘对不起,数据库服务器地址错误!‘);
Exit;
end;
Result := true;
end;
----------------------------------------------------------------------
procedure ADOExecuteSQL(ConnectionObjects: TADOConnection; SQLStr: string);
begin
with TADOQuery.Create(nil) do
try
Connection := ConnectionObjects;
SQL.Text := SQLStr;
ExecSQL;
finally
Free;
end; //try
end;
//调用
接口服务启动后就保持连接,这样更节省资源 ?
HBConnected := ConnectHBDataBase( ZNHBSvrParam.HB_ServerName,ZNHBSvrParam.HB_DataBaseName,
ZNHBSvrParam.HB_UserName,ZNHBSvrParam.HB_UserPassword, HBDBConnection, False);
U_MODE_SQLStr = ‘ UPDATE A SET A.TIMEMARK = GETDATE() FROM MODE A ‘+
‘ WHERE A.TIMEMARK IS NULL AND A.TYPE_NO = ‘‘%S‘‘ AND A.ORDER_NO = %D ‘;
ADOExecuteSQL(HBDbconn, U_MODE_SQLStr,[fQuery.Fields[0].AsString,fQuery.Fields[1].AsInteger]);
查询分析器里面没有问题,在ADOQuery.sql.add()种为什么就出错呢?
MS SQL server 2005(SQL2005)在查询分析器里面备份 数据库的语句
为什么就有那么多的 感情问题呢
为什么就有那么多的 感情问题呢
Adoquery按保存(Adoquery1.updatebatch())的时候出错. - ...
为什么计算机在重新启动后就会出现SYSTEM文件没有,启动不了。。这是什么原因呢。。。机器...
为什么秦始皇陵没有挖掘呢?
为什么秦始皇陵没有挖掘呢?
为什么秦始皇陵没有挖掘呢
SQL 2005,分析器: ImpersonationInfo 对象的语法不正确
主 题: 在.net里面要怎么使用VSS呢?
为什么组策略里面没有QoS数据包调度程序?
为什么我就做不到呢????????????
SQL模糊查询2
SQL模糊查询
有关SQL模糊查询
SQL查询语句使用方法
你为什么生活在中国呢?
为什么我一直坚持国企改革永远没有希望呢?
双语对照 - 为什么男人有喉结而女人没有呢?
痘痘长在脸上什么地方 里面就有什么病
有哪些问题现在没有合理的科学解释呢
有哪些问题现在没有合理的科学解释呢?
有哪些问题现在没有合理的科学解释呢?