关于自增字段问题在线等待.... 我是想把整个表的内容删完以后..这个表的自增型字段从新记数..除了删除整个表然后再建表外还有没有好的办法? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 SQL SERVER数据库:truncate table 表名 --不过它不能加 WHERE ,它会把所有的数据都删除 对SQL数据库来说,只能用truncate table 表名 否则自增字段不会重新开始计数 如果你不需要记录日志,就用truncate吧,只是数据恢复就难了 用的是ACCESS就删除记录后关闭连接再压缩一下就可以了uses ComObj;//压缩与修复数据库,覆盖源文件,顺便修改密码function CompressDataBase(AFileName,OldPassWord,NewPassWord: string): Boolean;const SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' + 'Jet OLEDB:Database Password=%s;';var SPath,SFile: array [0..254] of Char; STempFileName: string; JE: OleVariant;begin GetTempPath(40,SPath); //取得Windows的Temp路径 GetTempFileName(SPath,'~CP',0,SFile); //取得Temp文件名,Windows将自动建立0字节文件 STempFileName := SFile; //PChar->String DeleteFile(STempFileName); //删除Windows建立的0字节文件 try JE := CreateOleObject('JRO.JetEngine'); //建立OLE对象,函数结束OLE对象超过作用域自动释放 OleCheck(JE.CompactDatabase(Format(SConnectionString,[AFileName,OldPassWord]), Format(SConnectionString,[STempFileName,NewPassWord]))); //压缩数据库 //复制并覆盖源数据库文件,如果复制失败则函数返回假, //压缩成功但没有达到函数的功能 Result := CopyFile(PChar(STempFileName),PChar(AFileName),False); DeleteFile(STempFileName); //删除临时文件 except Result := False; //压缩失败 end;end; cxgrid中combobox问题 问一下,XP系统自己使用的API函数是放在哪个文件里面的啊~ 收集做网络视频方面的资料(提供者有分谢谢)~~~~` 大家帮忙看看!入门问题!!马上给分!! 关于dbgrid的一个问题,非常急用,请帮忙,谢谢 怎样重命名文件? 谁用DAO写过access数据库,怎么用代码删,添字段和索引?下面的代码怎么不行? report 报表中如何在每一页上都显示打印表头 for循环的问题 欢迎使用大富翁全文检索(07年底前的数据) 局域网访问access数据库难题!!! 如何把RAVE中的提示框去掉?
truncate table 表名 --不过它不能加 WHERE ,它会把所有的数据都删除
truncate table 表名 否则自增字段不会重新开始计数
function CompressDataBase(AFileName,OldPassWord,NewPassWord: string): Boolean;
const
SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' +
'Jet OLEDB:Database Password=%s;';
var
SPath,SFile: array [0..254] of Char;
STempFileName: string;
JE: OleVariant;
begin
GetTempPath(40,SPath); //取得Windows的Temp路径
GetTempFileName(SPath,'~CP',0,SFile); //取得Temp文件名,Windows将自动建立0字节文件
STempFileName := SFile; //PChar->String
DeleteFile(STempFileName); //删除Windows建立的0字节文件
try
JE := CreateOleObject('JRO.JetEngine'); //建立OLE对象,函数结束OLE对象超过作用域自动释放
OleCheck(JE.CompactDatabase(Format(SConnectionString,[AFileName,OldPassWord]),
Format(SConnectionString,[STempFileName,NewPassWord])));
//压缩数据库
//复制并覆盖源数据库文件,如果复制失败则函数返回假,
//压缩成功但没有达到函数的功能
Result := CopyFile(PChar(STempFileName),PChar(AFileName),False);
DeleteFile(STempFileName); //删除临时文件
except
Result := False; //压缩失败
end;
end;