社区
Delphi
帖子详情
请教:adoquery1.deleteRecords(arALL)为什么不能使用?
8341
2003-08-20 10:40:47
想用这句删除所有记录,为什么不行?说“操作在该内容中不允许”。什么原因?
...全文
45
5
打赏
收藏
请教:adoquery1.deleteRecords(arALL)为什么不能使用?
想用这句删除所有记录,为什么不行?说“操作在该内容中不允许”。什么原因?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
chenzf
2003-08-20
打赏
举报
回复
文不对题,呵呵
不过关心一下,不要见怪!!
chenzf
2003-08-20
打赏
举报
回复
要删除表所有记录用SQL语句 truncate tablename 嘛
或者用delete 也可以啊
deeply
2003-08-20
打赏
举报
回复
该操作应该对单一表使用,他不确定你查的是哪个表,所以不能删除纪录。
8341
2003-08-20
打赏
举报
回复
用ADOTABLE1.DELETERECORDS()也不行,看来只好另寻他途
8341
2003-08-20
打赏
举报
回复
deeply(deeply):
确实,我是用adoquery1.loadfromfile('文件')打开的数据集,我试试用adotable1.loadfromfile(),然后再adotable1.deldterecords(arALL);
Delphi 点击节点某个选项显示相对应的数据信息.rar
Delphi 点击Tree节点的某个选项后,右侧会对应显示出数据信息,左侧的树节点信息从Access数据库读取出来,实际上当我们单击左侧数据的时候,右侧数据同样是从Access数据库读取,只不过关联的ID,就是左侧的数据项,实现这一功能,对应的代码为: procedure TForm1.TreeView1Click(Sender: TObject); begin with
ADO
Query
2 do begin Close; SQL.Clear; SQL.Add('Select * From msn where 姓名 =:a'); Parameters.ParamByName('a').Value:=TreeView1.Selected.Text; Prepared; open; end; if (
ADO
Query
2.RecordCount>0)and(Treeview1.Selected <> Nil) then with
ADO
Query
2 do begin Edit1.Text:=
ADO
Query
2.fieldbyname('ID').AsString; Edit2.Text:=
ADO
Query
2.fieldbyname('姓名').AsString; Combobox1.Text:=
ADO
Query
2.fieldbyname('性别').AsString; DatetimePicker1.Date:=
ADO
Query
2.fieldbyname('出生日期').Value; Edit3.Text:=
ADO
Query
2.fieldbyname('民族').AsString; Edit4.Text:=
ADO
Query
2.fieldbyname('家庭电话').AsString; Edit5.Text:=
ADO
Query
2.fieldbyname('手机号码').AsString; Edit6.Text:=
ADO
Query
2.fieldbyname('QQ号码').AsString; Edit7.Text:=
ADO
Query
2.fieldbyname('E_mail').AsString; Memo1.Lines.Text:=
ADO
Query
2.fieldbyname('备注').AsString; Combobox2.Text:=
ADO
Query
2.fieldbyname('类型').AsString; end; end;
Delphi成绩表打印
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB,
ADO
DB, OleServer, Excel2000, ExtCtrls, Grids, DBGrids; type TForm1 = class(TForm)
ADO
Connection1: T
ADO
Connection;
ADO
Query
1: T
ADO
Query
; DataSource1: TDataSource; DBGrid1: TDBGrid; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; ComboBox1: TComboBox; Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin
ADO
Query
1.Close;
ADO
Query
1.SQL.Clear; if edit2.Text='13440101' then begin if combobox1.Text='全部学期' then begin
ADO
Query
1.SQL.Add('Select * From 13440101 Where xm=:sxm and xh=:sxh ');
ADO
Query
1.Parameters.ParamByName('sxm').Value := Edit1.Text;
ADO
Query
1.Parameters.ParamByName('sxh').Value := Edit2.Text;
ADO
Query
1.Open end; if combobox1.Text='第一学期' then begin
ADO
Query
1.SQL.Add('Select * From 13440101 Where xm=:sxm and xh=:sxh and xq=:sxq ');
ADO
Query
1.Parameters.ParamByName('sxm').Value := Edit1.Text;
ADO
Query
1.Parameters.ParamByName('sxh').Value := Edit2.Text;
ADO
Query
1.Parameters.ParamByName('sxq').Value :='1';
ADO
Query
1.Open end; if combobox1.Text='第二学期' then begin
ADO
Query
1.SQL.Add('Select * From 13440101 Where xm=:sxm and xh=:sxh and xq=:sxq ');
ADO
Query
1.Parameters.ParamByName('sxm').Value := Edit1.Text;
ADO
Query
1.Parameters.ParamByName('sxh').Value := Edit2.Text;
ADO
Query
1.Parameters.ParamByName('sxq').Value :='2';
ADO
Query
1.Open end; if combobox1.Text='第三学期' then begin
ADO
Query
1.SQL.Add('Select * From 13440101 Where xm=:sxm and xh=:sxh and xq=:sxq ');
ADO
Query
1.Parameters.ParamByName('sxm').Value := Edit1.Text;
ADO
Query
1.Parameters.ParamByName('sxh').Value := Edit2.Text;
ADO
Query
1.Parameters.ParamByName('sxq').Value :='3';
ADO
Query
1.Open end; if combobox1.Text='第四学期' then begin
ADO
Query
1.SQL.Add('Select * From 13440101 Where xm=:sxm and xh=:sxh and xq=:sxq ');
ADO
Query
1.Parameters.ParamByName('sxm').Value := Edit1.Text;
ADO
Query
1.Parameters.ParamByName('sxh').Value := Edit2.Text;
ADO
Query
1.Parameters.ParamByName('sxq').Value :='4';
ADO
Query
1.Open end; end; if edit2.Text='13440102' then begin
ADO
Query
1.SQL.Add('Select * From 13440101 Where xm=:sxm and xh=:sxh and xq=:sxq');
ADO
Query
1.Parameters.ParamByName('sxm').Value := Edit1.Text;
ADO
Query
1.Parameters.ParamByName('sxh').Value := Edit2.Text;
ADO
Query
1.Parameters.ParamByName('sxq').Value :='1';
ADO
Query
1.Open end; dbgrid1.Columns.Items[0].Width:=60; dbgrid1.Columns.Items[1].Width:=60; dbgrid1.Columns.Items[2].Width:=60; dbgrid1.Columns.Items[3].Width:=150; dbgrid1.Columns.Items[4].Width:=80; dbgrid1.Columns.Items[5].Width:=60; dbgrid1.Columns.Items[6].Width:=60; dbgrid1.Columns.Items[7].Width:=60; dbgrid1.Columns.Items[8].Width:=60; dbgrid1.Columns.Items[9].Width:=60; dbgrid1.Columns.Items[10].Width:=60; end; procedure TForm1.Button2Click(Sender: TObject); begin
ADO
Query
1.Close;
ADO
Query
1.SQL.Clear; if edit2.Text='13440101' then begin
ADO
Query
1.SQL.Add('Select * From 13440101 Where cj<60 and xh=:sxh');
ADO
Query
1.Parameters.ParamByName('sxh').Value := Edit2.Text;
ADO
Query
1.Open; end; if edit2.Text='13440102' then begin
ADO
Query
1.SQL.Add('Select * From 13440101 Where cj<60 and xh=:sxh');
ADO
Query
1.Parameters.ParamByName('sxh').Value := Edit2.Text;
ADO
Query
1.Open; end; dbgrid1.Columns.Items[0].Width:=60; dbgrid1.Columns.Items[1].Width:=60; dbgrid1.Columns.Items[2].Width:=60; dbgrid1.Columns.Items[3].Width:=150; dbgrid1.Columns.Items[4].Width:=80; dbgrid1.Columns.Items[5].Width:=60; dbgrid1.Columns.Items[6].Width:=60; dbgrid1.Columns.Items[7].Width:=60; dbgrid1.Columns.Items[8].Width:=60; dbgrid1.Columns.Items[9].Width:=60; dbgrid1.Columns.Items[10].Width:=60; end; procedure TForm1.Button3Click(Sender: TObject); begin form1.
ADO
Query
1.Close; form1.
ADO
Query
1.SQL.Clear; form1.
ADO
Query
1.SQL.Add('Select xh From xsmessage Where xh=:sxh'); form1.
ADO
Query
1.Parameters.ParamByName('sxh').Value := Edit2.Text; form1.
ADO
Query
1.Open; form2.qrdbtext1.DataField:='xh'; form2.quickrep1.Preview; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end.
经济批量订货决策系统
ado
query
1.Close;
ado
query
1.SQL.Text:='select * from cs';
ado
query
1.Open; a :=
ado
query
1.fieldbyname('a').Value;...................................//a、b参数的获取 b :=
ado
query
1.fieldbyname('b').Value;
ado
query
1.close;
ado
query
1.SQL.Text:='select x from yc where id =1';
ado
query
1.Open; x :=
ado
query
1.fieldbyname('x').Value; ……………………….//要预测的产品数量x。 y:=a + b * x; ……………………//计算y的值 with
ado
query
1 do begin close; sql.Clear; sql.Add('update yc set y =:y1 where id=1'); …………………… //将y的值写入yc表。 parameters.ParamByName('y1').Value:=floattostr(y); execsql; close;
delphi XE7 开发Android
function TServerMethods.DataSet
Query
(const AstrSQL: string; AListParams: TStringlist; AListType: TStringlist; AlistrValues: TStringlist) : OleVariant; var i: integer; begin try objClient
Query
.Close;
Ado
Query
.Close;
Ado
Query
.SQL.Clear;
Ado
Query
.SQL.Add(AstrSQL); for i := 0 to AListParams.Count - 1 do begin if AListType.Strings[i] = '0' then
Ado
Query
.Parameters.ParamByName(AListParams.Strings[i]).Value := AlistrValues.Strings[i]; if AListType.Strings[i] = '1' then
Ado
Query
.Parameters.ParamByName(AListParams.Strings[i]).Value := strToint(AlistrValues.Strings[i]); if AListType.Strings[i] = '2' then
Ado
Query
.Parameters.ParamByName(AListParams.Strings[i]).Value := strToFloat(AlistrValues.Strings[i]); if AListType.Strings[i] = '3' then
Ado
Query
.Parameters.ParamByName(AListParams.Strings[i]).Value := strToDateTime(AlistrValues.Strings[i]); end;
Ado
Query
.Open; objClient
Query
.Open; result := objClient
Query
.Data; except on e: exception do begin result:=e.Message; end; end; end;
在Delphi中
使用
日期选择器用于数据库查询.rar
在Delphi中
使用
日期选择器用于数据库查询,用户搜索满足选定日期条件中的数据,
使用
日期选择器可很好的提高日期格式的准确性,避免数据库出错和查询不到数据的情况,本例的运行效果请参见测试截图。相关代码如下: procedure TForm1.Button1Click(Sender: TObject); var mydate:tdatetime; Begin
ADO
query
1.Close;
ADO
query
1.SQL.Clear;
ADO
query
1.SQL.Add('Select * From xsd where 录入日期 =:a');
ADO
query
1.Parameters.ParamByName('a').Value :=FormatDateTime('yyyy-MM-dd',DateTimePicker1.Date);
ADO
query
1.Open; end; procedure TForm1.Button2Click(Sender: TObject); begin close; end;
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章