我用的table和database这两个组件链接的数据库,数据库用的是accesss,看看这个查找的
procedure TForm1.BitBtn4Click(Sender: TObject);
var
a:boolean;
b,c:string;
begin b:=combobox1.Items.Text;
c:=edit1.Text;
a:=table1.locate(b,c,[]);
if a then
showmessage('find!')
else
showmessage('sorry');
end;
编译能通过,只是在combobox1中选择了一个字段类型后,在edit1中输入要查找的关键字就会出现错误对话框,写的是:
project project1.exe raised exception class edatabaseerror with message'table1:filed'
id
name
sex
mobliephone
familyphone
qq
msn
address
workaddress'not found'.process stopped.use step or run to continue.
请问高手们,怎么解决?辛苦你们一下了,先谢谢你们了
procedure TForm1.BitBtn4Click(Sender: TObject);
var
a:boolean;
b,c:string;
begin b:=combobox1.Items.Text;
c:=edit1.Text;
a:=table1.locate(b,c,[]);
if a then
showmessage('find!')
else
showmessage('sorry');
end;
编译能通过,只是在combobox1中选择了一个字段类型后,在edit1中输入要查找的关键字就会出现错误对话框,写的是:
project project1.exe raised exception class edatabaseerror with message'table1:filed'
id
name
sex
mobliephone
familyphone
msn
address
workaddress'not found'.process stopped.use step or run to continue.
请问高手们,怎么解决?辛苦你们一下了,先谢谢你们了
解决方案 »
- 如何获取一个文件中的比特位1的个数
- 请教一下idTcpServer的一些用法
- ADO超时能不能时间短一点? connectiontimeout设置了也不起作用
- 急!急!急!急 !怎樣知道Hotmail在哪台電腦上上網
- 特别公告:CSYN-中国软件项目交易QQ群成立了 群号:6574727
- 求DBListView控件
- 高分求教QuickShape的用法(关于报表中绘制线条的问题)。不够再加分!
- setparent后,拖动窗口,父窗体卡死,急!
- 那里有checklistbox控件,可多行显示item中的文本,而不用scroll
- 如何捕捉X键为本程序的退出键,要用键盘HOOK做,最好有源程序,不用DLL,不要有错误的!!!
- 带我的师傅跳槽!心情不好,散分!
- 关于显示提示对话框的问题!
还有,我从你的代码里根本就看不出对数据库的操作,连关联都没有。
你的combobox1里面存的必须是已经有的字段,不能随便填的
再辛苦你们一下
给俺详细解释清楚可以么?
combobox1.items.add('query1.filedbyname[i].asstring');
大概就是这样了,就是把表的字段名加给combobox1的下拉列表中去