CLIENTDATASET1.CLOSE;
CommandText :='begin transaction'#13#10'UPDATE 表1 SET 字段1=1 '#13#10' UPDATE 表2 SET 字段2=1 '#13#10'if @@error=0 '#13#10'commit transaction'#13#10'else'#13#10'rollback transaction'#13#10;
CLIENTDATASET1.Execute;
CommandText :='begin transaction'#13#10'UPDATE 表1 SET 字段1=1 '#13#10' UPDATE 表2 SET 字段2=1 '#13#10'if @@error=0 '#13#10'commit transaction'#13#10'else'#13#10'rollback transaction'#13#10;
CLIENTDATASET1.Execute;
解决方案 »
- idhttp设置代理服务器无效
- 这段程序该怎么简化?谢谢
- CSDN论坛秀-周周秀不断,天天秀精彩--招幕贴
- 我想考高程,但听说现在不叫高程了,哪位了解,告诉一声,给个网址也行
- 请教高手 怎么获取listview(vsReport样式)里选定的某一格 是第几行和第几列
- 请问各位Delphi 6.0 中的SNMTP(邮件发送控件) 在Delphi 7.0 中找不到了?
- 如果ACCESS数据库中有一个文本类型的字段超过255怎么办?
- 诚聘delphi高手
- 过程调用问题
- XE8 DataSnap+FirDac 三层 移动开发
- 皮肤控件和皮肤文件是怎样做的呀,能给点思路吗
- 我用的是DELPHI7.0 CLIENTDATASET 中文保存,中文过滤,中文LOCATE有问题吗
======
换行符
不用参数行吗,就直接用SQL语句。
===========================
可以,把你的数据转换成长长的如0x2343..十六进制串吧。
insert into [tablename] ([fieldlist...,]image/*图片字段*/) values([valuelist...,],0x424D36E0...)
CommandText :='begin transaction'#13#10'UPDATE 表1 SET 字段1=1 '#13#10' UPDATE 表2 SET 字段2=1 '#13#10'if @@error=0 '#13#10'commit transaction'#13#10'else'#13#10'rollback transaction'#13#10;
CLIENTDATASET1.Execute;
支持这位大侠
function MemoryToHexString(const MemoryStream:TMemoryStream):String;
const
HexString:array[0..15] of Char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
var
HexStream:TMemoryStream;
P:PByte;
I: int64;
begin
Result := '0x00';
if MemoryStream=Nil then
Exit;
HexStream:=TMemoryStream.Create;
try
HexStream.Write('0x',2);
if MemoryStream.Size=0 then
Exit;
MemoryStream.Position :=0;
I := 0;
p := MemoryStream.Memory;
repeat
HexStream.Write(HexString[p^ div 16],1);
HexStream.Write(HexString[P^ mod 16],1);
Inc(P);
I := I+1;
until I>=MemoryStream.Size;
SetString(Result,PChar(HexStream.Memory),HexStream.Size);//未测试
finally
HexStream.Free;
end;
end;function FileToHexString(const FileName:String):String;var
memStream:TMemoryStream;begin
Result := '0x00';
memStream:=TMemoryStream.Create;
try
memStream.LoadFromFile(FileName);
if memStream.Size<=0 then
Exit;
result := MemoryToHexString(memStream);
finally
memStream.Free;
end;
end;