UC知道Delphi数据库编程问题
来源：百度知道 编辑：UC知道 时间：2024/05/15 08:32:11
小弟是初学者。我写的所有关于数据库查询的事件全都不好用！请大哥们帮小弟看看吧。大哥们救救小弟吧，俺都鼓捣三天啦，觉都睡不好啊！
下面的“方案”是字段，“工程1”是字段里的数据。
1，这个form上只有Query datasource dbgrid 三个组件，都已经连接好 。只将avtive设为TRUE，没动其他属性。
procedure TForm1.Button1Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.Clear;
sql.Add('insert into fangan1_1.db');
sql.Add('方案');
sql.Add('vlaues(''工程1'')');
execSQL;
sql.Clear;
sql.Add('select*from fangan1_1.db');
open;
end;
end;
按下button1时的出错信息：
Project1.exe raised exception class EDBEngineError with message“invalid use of keyword.
token:方案
Vlaues(‘工程1’)
Line Number:2’.process stopped.
2，这个上面也是只有table datasource dbgrid 三个组件，都已经连接好 。只将avtive设为TRUE。
procedure TForm1.Button1Click(Sender: TObject);
begin
with table1 do
begin
EditKey;
FieldByN
下面的“方案”是字段，“工程1”是字段里的数据。
1，这个form上只有Query datasource dbgrid 三个组件，都已经连接好 。只将avtive设为TRUE，没动其他属性。
procedure TForm1.Button1Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.Clear;
sql.Add('insert into fangan1_1.db');
sql.Add('方案');
sql.Add('vlaues(''工程1'')');
execSQL;
sql.Clear;
sql.Add('select*from fangan1_1.db');
open;
end;
end;
按下button1时的出错信息：
Project1.exe raised exception class EDBEngineError with message“invalid use of keyword.
token:方案
Vlaues(‘工程1’)
Line Number:2’.process stopped.
2，这个上面也是只有table datasource dbgrid 三个组件，都已经连接好 。只将avtive设为TRUE。
procedure TForm1.Button1Click(Sender: TObject);
begin
with table1 do
begin
EditKey;
FieldByN
我也是初学者，我就看问题1那个，我是想说你插入数据之后，想要查看查看新插入的数据才会执行下面的查询的，我没试过你的代码，我觉得你分开来试试，先插入数据试试可以吗，如果有问题，说明插入有问题，如果ok的，那就接着做查询了，我看来你的思路是对的，但是语句写的有问题。期待高手给你指出，我也是初学。
qry.append;
qry.edit;
qry.delete;
qry.post;
大概就是这些
这是ADO的查询，可以看下。
procedure TForm1.Button1Click(Sender: TObject);
begin
if ADOQuery1.Active then ADOQuery1.Active := False;
ADOQuery1.SQL.Text := 'select * from 学生信息表 ' ;
ADOQuery1.Open;
end;