delphi 检查sql数据库是否已存在
发布网友
发布时间:2022-04-10 14:33
我来回答
共2个回答
懂视网
时间:2022-04-10 18:54
增
procedure TForm1.btnAddClick(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(‘select * from AZZ where 排名=(‘‘‘ + Edit1.Text + ‘‘‘)‘);
ADOQuery1.Open;
//if ADOQuery1.IsEmpty then
??????????????????????????
if ADOQuery1.RecordCount = 0 then //如果记录为空....做判断
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(‘insert into AZZ(排名,名称,网址,国家) values (‘‘‘ + Edit1.Text + ‘‘‘, ‘‘‘ + Edit2.Text + ‘‘‘,‘‘‘ + Edit3.Text + ‘‘‘,‘‘‘ + Edit4.Text + ‘‘‘)‘);
if (trim(Edit1.text)=‘‘) or (trim(Edit2.text)=‘‘) or (trim(Edit3.text)=‘‘) or (trim(Edit4.text)=‘‘) then
begin
showMessage(‘有数据输入为空,请重新输入!‘);
exit //强制跳出if语句
end
else
begin
showMessage(‘数据添加成功!‘);
end;
ADOQuery1.ExecSQL;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(‘select * from AZZ‘);
ADOQuery1.Open;
end
else
begin
showmessage(‘您输入的排名已经存在,请重新输入!‘);
end;
end;
delphi数据库进行增加操作时,怎么判断插入的这个值是否已经存在?
标签:ext code value sele bsp procedure 操作 ado else
热心网友
时间:2022-04-10 16:02
【判断数据库是否存在】语法如下:
if exists (select * from sys.databases where name = '数据库名')
--drop database [数据库名]
delphi 检查sql数据库是否已存在
if exists (select * from sys.databases where name = '数据库名')--drop database [数据库名]
Delphi判断sqlite表是否存在
1。sqlite判断数据表存在用到的Sql语句SELECT COUNT(*) asCNT FROMsqlite_masterwhere type='table' and name='DBInfo' //其中DBInfo为需要判断的表名。注意大小写敏感!Count:=Query1.Fields[0].AsInteger; //将CNT传给变量Countend--Anony专注的力量成就梦想 ...
delphi中查看表和字段是否存在的几种方法
select * form (select a.name as 表名 ,b.name as 列名 form sysobjects a ,syscolumns b where a.id =b.id) cwhere c.表名=“Aa” and c.列名=“Bb”if @@rowcount=1 then findit sysobjects 存放表名syscolumns 存放列名在sql7的存储过程中如何判断 Test 表中的一 name 字段是否存...
问一个关于delphi的问题,当query查到的数据库的记录,是一直存在内存里的...
query查询到的结果通常以表的形式保存到本地的临时文件中,当查询结束后会自动删除临时文件。
在Delphi中下面图片中出现的问题怎样解决
解决的方法是:一、如果是误将此字段设置为关键字时,则取消设置;二、如果该字段应该是关键字,则确保录入或保存的记录不是重复值,其方法是在进行保存操作时,先检查一下表中当前是否已经存在这条记录。如果没有就保存,如果已经存在,就不保存,并告诉用户这条记录已经存在于数据库中。
用DELPHI连接SQL数据库的时候出现的问题
我也遇到过这种情况,你设置控件的顺序有关或者你可以把它们全删除重新来设就可以了,你要先设TADOCONNECTION 的连接数据库,然后是TADOQUERY 的connection为TADOCONNECTION,接着是DBGRID的DATASOURCE为DATASOURCE1,最后是DATASOURCE的DATASET为TADOQUERY,把它的SQL语句写上就可以运行了 ...
我用delphi做sql的程序,为什么在只在装有sql数据库的电脑上可以运行,在...
可能是SQL服务器配置问题,你试一下打开配置管理器,把TCP/IP协议打开,再重启一下SQL服务
delphi 运行出现的问题 SQL Server不存在或拒绝访问
Sql Server远程连接数据库时发生“[DBNETLIB][ConnectionOpen(connect()).]SQL Server 不存在或拒绝访问 ”的情况,原因有很多种,一般情况都是用过检查:1、 防火墙;2、1433端口;来排除故障,但今天发现有以下情况同样会造成这个现象。排除过程:1、检查防火墙设置和1433端口设置正确;2、如果出现“找不...
Delphi连接sql数据库怎么判断连接是否成功
try ADOConnection1.Connected; ShowMessage('连接成功!'); except ShowMessage('连接失败!'); end;
delphi怎么判断从数据库中查询出来的值是空值
如果在Sql里判断,可以用字段 is null或者字段 is not null 如果在Delphi里判断,可以用DataSet.FieldByName('字段').isnull