有一个ACCESS的数据库,想把里面其中一张表的表结构生成create table……的语句,在sql server里面好像可以,不知道ACCESS可不可以实现,难道要我create table 一个字段一个字段的手工加吗
解决方案 »
- Delphi7 + SQL2000 处理image 问题.
- 一个功能的思路望高人指点
- listView checked的问题 希望大家帮个忙~
- 请问怎样关闭delphi的自动模板提示?
- 哪位大侠有将Word,Excel等文档转换成图片格式的经验?交流一下
- 是否可以将网页文本框信息传给delphi?
- 请问那个23M的李维的<delphi7高校数据库程序设计>是只有前3章吗?
- 如何在FastReport中实现用户自定义字段打印!!!
- 怎样以一个模板form动态生成多个新form
- 各位请帮忙.我的帖子是紧急!!!!!!(softkinx)我来不及了,帮忙啊大哥们
- 打印问题
- 请教,能不能像TRACKBAR一样的
sqlstr1:string;
sqlstr2:string;
s:string;
SysTime:TsystemTime;
begin
try
GetSystemTime(SysTime);
s:='bf'+IntToStr(SysTime.wYear)+combobox1.text;
if combobox1.Text='' then
messagebox(getactivewindow(),'请您选择季度!','错误' ,MB_OK + MB_ICONINFORMATION)
else
begin
case Combobox1.ItemIndex of
0: sqlStr2:='select * into '+s+' from cost where 通话日期 not between #12-21# and #3-20#';
1: sqlStr2:='select * into '+s+' from cost where 通话日期 between #3-21# and #6-20#';
2: sqlStr2:='select * into '+s+' from cost where 通话日期 between #6-21# and #9-20#';
3: sqlStr2:='select * into '+s+' from cost where 通话日期 between #9-21# and #12-20#';
end;
case Combobox1.ItemIndex of
0: sqlStr1:='delete * from cost where 通话日期 not between #12-21# and #3-20# ';
1: sqlStr1:='delete * from cost where 通话日期 between #3-21# and #6-20# ';
2: sqlStr1:='delete * from cost where 通话日期 between #6-21# and #9-20# ';
3: sqlStr1:='delete * from cost where 通话日期 between #9-21# and #12-20# ';
end;
application.ProcessMessages;
sqlStr:=sqlstr2;
MyQuery;application.ProcessMessages;
sqlStr:=sqlstr1;
MyQuery;
messagebox(getactivewindow(),'数据备份成功!','恭喜' ,MB_OK + MB_ICONINFORMATION)
end;
except
messagebox(getactivewindow(),'数据备份失败,该数据已备份!','错误' ,MB_OK + MB_ICONINFORMATION)
end;
end;