delphi query 语句.

Question

  是这样的,四个edit输入新数据,我想通过一个按钮来把新数据写入到表中.
  再者就是查询,在edit上面输入表中某个字段,再通过一个按钮把它显示到DBGrid1, 不知道要如何写?
数据库用的是dehphi自带的.

Answer 1

dehphi自带的什么数据库？
1、点击按钮把数据写进数据库
insert into上网搜索一下语法
2、在edit写字段名称，然后点击显示在DBGRID？DBGRID是显示一条记录的，当然可以你那条记录只有一个字段，你想要的字段

Answer 2

Paradox 7 数据库
我是新手,能不能帮我把语句写出来呢,谢谢了!

Answer 3

    FQuery.SQL.Text:='insert into UserGroup(p1,p2,p3,p4)'+#13+
                     '  values(:Caption,:UpID,:Pro,:ViewOrder,:IsUser,:AccountID)';
    FQuery.Parameters.ParamByName('p1').Value:=edit1.text;
    FQuery.Parameters.ParamByName('p2').Value:=edit2.text;
    FQuery.Parameters.ParamByName('p3').Value:=edit3.text;
    FQuery.Parameters.ParamByName('p4').Value:=edit4.text;
    FQuery.ExecSQL;
参照来写

Answer 4

str:='select'+ edit.text+' from yourtable';
with adoQuery do
begin
   close;
   sql.clear;
   sql.add(str);
   open;
end;

Answer 5

values(:Caption,:UpID,:Pro,:ViewOrder,:IsUser,:AccountID)';
   这条有点看不懂!

Answer 6

   FQuery.SQL.Text:='select * from  表A 
     where id=:id and name=:name';
    FQuery.Parameters.ParamByName('id').Value:=edit1.text;
    FQuery.Parameters.ParamByName('name').Value:=edit2.text;
   ...
    FQuery.open;

Answer 7

:Caption,:UpID,:Pro,:ViewOrder,:IsUser,:AccountID
这些数据都是你定义的变量 FQuery.Parameters.ParamByName(Caption).Value:=edit1.text;
这是在给这些变量赋值
 

Answer 8

    query1.SQL.Text :='insert into (rno,bno,rjdate,rhdate)'+#13+
    'values(:edit2.Text ,:edit3.Text,:edit4.Text ,:edit5.Text )';
    query1.Close ;
    query1.ParamByName('rno').Value :=edit2.Text ;
    query1.ParamByName('bno').Value :=edit3.Text ;
    query1.ParamByName('rjdate').Value :=edit4.Text ;
    query1.ParamByName('rhdate').Value :=edit5.Text;
    query1.ExecSQL  ;
    edit2.Clear ;
我是这样写的,可运行后报错 query1:parameter'rno'not found.

Answer 9

    query1.SQL.Text :='insert into (rno,bno,rjdate,rhdate)'+#13+ 
    'values(:rno,:bno,:rjdate ,:rhdate )'; 
    query1.Close ; 
    query1.ParamByName('rno').Value :=edit2.Text ; 
    query1.ParamByName('bno').Value :=edit3.Text ; 
    query1.ParamByName('rjdate').Value :=DateTimeTostring(edit4.Text) ; 
    query1.ParamByName('rhdate').Value :=DateTimeTostring(edit5.Text); 
    query1.ExecSQL  ; 
    edit2.Clear ; 
... 基础啊 

Answer 10

 query1.SQL.Text :='insert into (rno,bno,rjdate,rhdate)'+#13+ 
    'values(:rno,:bno,:rjdate ,:rhdate )'; 
    query1.Close ; 
    query1.ParamByName('rno').Value :=edit2.Text ; 
    query1.ParamByName('bno').Value :=edit3.Text ; 
    query1.ParamByName('rjdate').Value :=stringToDateTime(edit4.Text) ; 
    query1.ParamByName('rhdate').Value :=stringToDateTime((edit5.Text); 
    query1.ExecSQL  ; 
    edit2.Clear ;