procedure TForm1.Button2Click(Sender: TObject);
varriqi:string;
begin
with ADOQuery1 do
begin
Connection:=ADOConnection1;
Close;
biaoname:=trim(combobox3.text)+trim(combobox4.text);
riqi:=formatdatetime('ddmmyy',Date);
biaoname:=biaoname+riqi;
try SQL.Clear;
//SQL.Add('DROP TABLE biaoname');
SQL.Add('CREATE TABLE '+biaoname);
SQL.Add('(teachers varchar(8), ');
SQL.Add('tiwenren varchar(8),');
SQL.Add('question varchar(200),');
SQL.Add('IP varchar(15),');
SQL.Add('answer varchar(200)');
SQL.Add(')');
ExecSQL;
except
end;
end;我用他建立了个表,可是如果程序退出后,SQL2000里还有这个表,就提示已经存在了,请问如何用TRY语句或其他方法来实现如果表建立好了,从新进程序时(就自动这样建立好表了)只要该表存在,就不执行建表操作的?!我用TRY语句没有调试成功,请各位帮我。
varriqi:string;
begin
with ADOQuery1 do
begin
Connection:=ADOConnection1;
Close;
biaoname:=trim(combobox3.text)+trim(combobox4.text);
riqi:=formatdatetime('ddmmyy',Date);
biaoname:=biaoname+riqi;
try SQL.Clear;
//SQL.Add('DROP TABLE biaoname');
SQL.Add('CREATE TABLE '+biaoname);
SQL.Add('(teachers varchar(8), ');
SQL.Add('tiwenren varchar(8),');
SQL.Add('question varchar(200),');
SQL.Add('IP varchar(15),');
SQL.Add('answer varchar(200)');
SQL.Add(')');
ExecSQL;
except
end;
end;我用他建立了个表,可是如果程序退出后,SQL2000里还有这个表,就提示已经存在了,请问如何用TRY语句或其他方法来实现如果表建立好了,从新进程序时(就自动这样建立好表了)只要该表存在,就不执行建表操作的?!我用TRY语句没有调试成功,请各位帮我。
解决方案 »
- installshieldexpress打包好程序后放到其他机器上报错,本机没问题,安装了
- 跨网段执行2k长sql,客户端为什么偶尔没响应,详见内容
- 急问,如何把这一行C++的代码转换为Delphi的代码?
- 如何实现将全屏游戏切换为窗口型?
- 参数太多,有关换行的问题
- 过年了想抱台笔记本回家,这台笔记本大家帮忙看看。
- 如何改变TEdit,TComboBox控件Enabled:=False时字体颜色(不用控件)
- 兄弟们帮忙看下。。。。。。。。。。。。。。。。。。急。。!!!!!!!
- 动态生成数据库的内容
- INSTALL SHIELD FOR DELPH 哪里有啊?是不是还需要安装?
- 怎样打包成MSI文件
- 按照FrameSniper(§坐拥书城铸内秀§) 兄弟的意思,把他给我的500分散给大家!谢谢他,谢谢你们,谢谢Delphi的兄弟姐妹们!(之二),请
让表内容在DBGRID里面显示出来?在线等待。
判断该表是否存在?
drop table [dbo].[YourTable]
GOCREATE TABLE [dbo].[YourNewTable] (
.............
) ON [PRIMARY]
GO
但在调试模式下,仍会有异常消息。运行 EXE 文件不会有异常消息。
此异常消息可以抑制。方法:
主菜单 Tools|Debugger Options... Language Exceptions ... Add...添加该异常类型 OK