界面看有时没刷新,用以下SQL查看. select name,compatibility_level from sys.databases where name='[数据库名]'
客户程序,已经运行了7-8年,突然出现像下面的错误,数据库的哪些配置改变会造成下面的影响? procedure TForm1.Button1Click(sender : TObject) begin with Query1 do begin Close; Databasename := 'c:\'; sql.clear; sql.Add('select * from aa'); open; //open没问题 end; while not Query1.eof do begin Query1.edit; //奇怪,这里不能edit,什么问题? Query1.FieldByName('id').asInteger := 11; Query1.post; next; end; end;用 update aa set id=11 就可以完成,
query1.edit 不是数据库里的问题吧.
客户的delphi程序已经用了7-8年
现在要重新改delphi的代码才可以。哭啊,被骂死
在查询可用库存的时候,用下面的语句查看锁资源,发现很多object对象锁,是S锁 SELECT request_session_id as spid, db_name(resource_database_id) as dbname, CASE WHEN resource_type = 'OBJECT' THEN object_name(resource_associated_entity_id) WHEN resource_associated_entity_id = 0 THEN 'n/a' ELSE object_name(p.object_id) END as entity_name, index_id, resource_type as resource, resource_description as description, request_mode as mode, request_status as status FROM sys.dm_tran_locks t LEFT JOIN sys.partitions p ON p.hobt_id = t.resource_associated_entity_id WHERE resource_database_id = db_id();
from sys.databases
where name='[数据库名]'
procedure TForm1.Button1Click(sender : TObject)
begin
with Query1 do
begin
Close;
Databasename := 'c:\';
sql.clear;
sql.Add('select * from aa');
open; //open没问题
end;
while not Query1.eof do
begin
Query1.edit; //奇怪,这里不能edit,什么问题?
Query1.FieldByName('id').asInteger := 11;
Query1.post;
next;
end;
end;用 update aa set id=11 就可以完成,
SELECT request_session_id as spid,
db_name(resource_database_id) as dbname,
CASE
WHEN resource_type = 'OBJECT' THEN
object_name(resource_associated_entity_id)
WHEN resource_associated_entity_id = 0 THEN 'n/a'
ELSE object_name(p.object_id)
END as entity_name, index_id,
resource_type as resource,
resource_description as description,
request_mode as mode, request_status as status
FROM sys.dm_tran_locks t LEFT JOIN sys.partitions p
ON p.hobt_id = t.resource_associated_entity_id
WHERE resource_database_id = db_id();
SET ARITHABORT ON ;这个选项是会话级,还是数据库级别?