小弟是个数据库新手。做个软件时想要在插入数据之前查询MDB数据库中的某个字段中是否已存在有该数据 比如siteInfo 表中存在 webURL 字段在插入http://www.baidu.com/ 之前。首先查询是否已存在有该数据。。
然后再根据用户选择进行相关操作。 请教下相关的实现代码该如何写呢。。先行谢过了。。
然后再根据用户选择进行相关操作。 请教下相关的实现代码该如何写呢。。先行谢过了。。
解决方案 »
- 麻烦,各位大佬告诉小弟,delphi用什么控件和sqlserver连接?
- DLL库的难题?
- ^O^^O^^O^所有有个人主页的朋友,请进~~~~~~
- 新鲜免费的“兼职”小弟,不要也来看看呀!(天津)
- 在dbgrid中如何根据记录标志显示不同的背景色?
- 如何实现txt文件—>access的转换?
- 一个小问题,怎么操作*.DAT文件啊?
- DsPack是否可以实现保存改变后的mp3特效?
- 一條IDSL電話線,怎樣實現多臺電腦同時上网,回答者都有分!!!
- 想办一份Delphi的电子杂志!!!有谁志同道合???
- delphi 如何把数据导出到EXCEL中?
- 有没有哪个日历控件,可以根据需要对特定日期加颜色?
var Tmp:TAdoquery;
begin
Tmp:=TAdoquery.create(self);
Tmp.connection:=ADOConnection;
with Tmp do
begin
Close;
Sql.Clear;
Sql.Add('select * from siteInfo where webURL='''+value+''' ');
Open;
end;
if Tmp.IsEmpty then
result:=false
else
result:=true;
end;
var
tmpItem: TListItem;
begin
countITG := 0 ;
ListView1.Items.Clear;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add( 'select site_N,U_name,U_pass,statu from siteInfo');
Open;
while not Eof do
begin
inc(countITG);
ADOQuery1.Active := True;
tmpItem := ListView1.Items.Add;
tmpItem.Caption := intToStr(countITG);
tmpItem.SubItems.Add(FieldByName('site_N').Value);
next;
end;
end;
end;
function ExsitRecord(value:String):boolean;
var Tmp:TAdoquery;
begin
Tmp:=TAdoquery.create(self);
Tmp.connection:=ADOConnection;
with Tmp do
begin
Close;
Sql.Clear;
Sql.Add('select * from siteInfo where webURL='''+value+''' ');
Open;
end;
if Tmp.IsEmpty then
result:=false
else
result:=true;
tmp.close;
tmp.free;
end;
额...上面还有的那个小问题...请问谁还能帮帮忙吗....
引用:额..可以再请教一下吗.....我使用listView读取数据库的时候.字段中的每条数据只能显示20字节的内容...不知道是怎么回事呢....我的代码是这样的///
var
tmpItem: TListItem;
begin
countITG := 0 ;
ListView1.Items.Clear;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add( 'select site_N,U_name,U_pass,statu from siteInfo');
Open;
while not Eof do
begin
inc(countITG);
ADOQuery1.Active := True;
tmpItem := ListView1.Items.Add;
tmpItem.Caption := intToStr(countITG);
tmpItem.SubItems.Add(FieldByName('site_N').Value);
next;
end;
end;
end;