我的数据库里有一个表A中有三个字段分别是ID char(8), DAY tinyiny, DT datetime
程序中有两个edit,前一个(edit1)输入ID,后一个(edit2)输入DAY 两个datetimepicker 其中前面一个(datetimepicker1)输入日期,后面一个(datetimepicker2)输入时间,我该如何把输入EDIT和DATETIMEPICKER组件中的内容输入到表A去procedure TFormNew.BitBtn_new_enterClick(Sender: TObject);
var
??
begin
??
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('insert into A values()) ;
?? end;
end;
程序中有两个edit,前一个(edit1)输入ID,后一个(edit2)输入DAY 两个datetimepicker 其中前面一个(datetimepicker1)输入日期,后面一个(datetimepicker2)输入时间,我该如何把输入EDIT和DATETIMEPICKER组件中的内容输入到表A去procedure TFormNew.BitBtn_new_enterClick(Sender: TObject);
var
??
begin
??
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('insert into A values()) ;
?? end;
end;
解决方案 »
- 谁能把下面的小程序用delphi写出来啊
- 一个简单的RadioButton问题.(在线等)
- 求《Delphi原码分析》的电子版!!!
- rave报表
- FormatDateTime如何获得一个月的最后一天
- 关于连接远程数据库的问题
- ListView中,一个项的长度超过列的宽度,就会显示“…”,如何除去?
- 怎么ravproxy.exe和ravmon.exe 杀不掉呢?
- 紧急求救,为什么会是乱码?在线等待!
- 再次,再次提问,NT/2000/XP下,如何取硬盘出厂序列号?最好给源码,兄弟我急啊~~
- 为什么在sql explorer里面可以执行的sql语句在delphi里面不可以执行呢
- interbase 如何改成access???急啊!在线等待!立即给分!!
begin
close;
sql.Clear;
sql.Add('insert into A(ID,DAY,DT) values(:a,:b,:c)') ;
Parameters[0].Value :=edit1.text;
Parameters[1].Value :=edit2.text;
Parameters[2].Value := datetostr(datetimepicker1.date)+' '+timetostr(datetimepicker2.Time) ;
ExecSQL;
end;
begin
close;
sql.Clear;
sql.Add('insert into A(ID,DAY,DT) values(''' + edit1.text + ''',' +edit2.text + ',''' + datetostr(datetimepicker1.date)+' '+timetostr(datetimepicker2.Time) + ''')') ;
ExecSQL;
end;--------------------------------------
看!
那支正飞向太阳的蛾子.....
就是我!
--------------------------------------