V
venny
Unregistered / Unconfirmed
GUEST, unregistred user!
如何将动态的数据插入到指定的数据表中?最好采用SQL语句。如何实现，请各位高手指点！！
土
土土
Unregistered / Unconfirmed
GUEST, unregistred user!
insert into table(field) values
a)
parambyname("a").value:=xxx
a)parambyname("a").value:=xxx
B
bianlx
Unregistered / Unconfirmed
GUEST, unregistred user!
把动态数据按照指定的表的结构生成insert语句，然后把生成的insert语句赋值给query
控件的SQL，调用执行即可；
控件的SQL，调用执行即可；
方
方栩
Unregistered / Unconfirmed
GUEST, unregistred user!
直接拼字符串也可以：
insert into TableName (field1) values ('''+Edit1.Text+''')';
如果field1是数字，则：
insert into TableName (field1) values ('+Edit1.Text+')';
insert into TableName (field1) values ('''+Edit1.Text+''')';
如果field1是数字，则：
insert into TableName (field1) values ('+Edit1.Text+')';
F
Fanny501
Unregistered / Unconfirmed
GUEST, unregistred user!
第一数据的类型：
如果是流，请用：
var
str:TMemoryStream;
begin
with FormOLE do begin
str:=TMemoryStream.Create();
//读入你要保存的数据进入流
table1.edit;
TBlobField(Table1.FieldByName('stext')).LoadFromStream(Str);
table1.Post;
str.Free;
第二文本类型：
insert into table(myfield) valuesmyData)
parambyname("myData").asString:= xxx
如果是流，请用：
var
str:TMemoryStream;
begin
with FormOLE do begin
str:=TMemoryStream.Create();
//读入你要保存的数据进入流
table1.edit;
TBlobField(Table1.FieldByName('stext')).LoadFromStream(Str);
table1.Post;
str.Free;
第二文本类型：
insert into table(myfield) values
myData)parambyname("myData").asString:= xxx
V
venny
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢各位，但是我其中涉及到有函数，例如采集今天的日期等，这可以用insert into TableName (field1) values ('date');
实现吗
实现吗
B
bingjian
Unregistered / Unconfirmed
GUEST, unregistred user!
有函数是可以的，但是values只能是字符串或数字类型，所以如果函数是其它的类型
比如说date类型，要进行转换
insert into TableName (field1) values (datetostr(date));
比如说date类型，要进行转换
insert into TableName (field1) values (datetostr(date));
V
venny
Unregistered / Unconfirmed
GUEST, unregistred user!
但是，我数据库中的日期就是日期型呀！！
B
bingjian
Unregistered / Unconfirmed
GUEST, unregistred user!
你可以将数据库中日期型改成字符串型！
V
venny
Unregistered / Unconfirmed
GUEST, unregistred user!
不行，其中还涉及到其他很多的问题，反正是不能改的，你看看还有其他的方法吗？
B
bingjian
Unregistered / Unconfirmed
GUEST, unregistred user!
土土的方法可以！
insert into table(field) valuesa)
parambyname("a").value:=strtodatetime('12:12:12');
insert into table(field) values
a)parambyname("a").value:=strtodatetime('12:12:12');
V
venny
Unregistered / Unconfirmed
GUEST, unregistred user!
能不能把你说的方法，就是你说土土方法行了哪个问题详细一点告诉我，比如举个例子，因为我是一个delphi初学者，很感谢你，比如，我的条件如下
我现在要向一个表（aaa）中插入如下的字段： 产品型号,仓库名称,提货日期,提货数量（吨）,进库（吨）,结存（吨） ，我先利用查询语句对不同的仓库，产品型号查询并计算赋值给了jiecun，现在我要把查询到的同产品型号,同仓库的数据赋值给aaa表中相对应的字段，而提货日期是利用函数date提取今天的日期，jiecun的值赋给结存（吨），我如何实现，请速告诉我！！！
我现在要向一个表（aaa）中插入如下的字段： 产品型号,仓库名称,提货日期,提货数量（吨）,进库（吨）,结存（吨） ，我先利用查询语句对不同的仓库，产品型号查询并计算赋值给了jiecun，现在我要把查询到的同产品型号,同仓库的数据赋值给aaa表中相对应的字段，而提货日期是利用函数date提取今天的日期，jiecun的值赋给结存（吨），我如何实现，请速告诉我！！！
B
bingjian
Unregistered / Unconfirmed
GUEST, unregistred user!
先将得到的相同的产品型号和仓库名称放入两个string变量X,Y里
query1.close;
query1.sql.clear;
query1.sql.add('insert into aaa (产品型号,仓库名称,提货日期,提货数量,进库,结存) valuesa,:b,:c,:d,:e,:f)');
query1.parambyname("a").value:=X;
query1.parambyname("b").value:=Y;
query1.parambyname("c").value:=strtodatetime(now);
query1.parambyname("d").value:=提货数量;//不知道你这里是怎么算出来的！
query1.parambyname("e").value:=进库;//同样，也不知道这里的依据！
query1.parambyname("f").value:=jiecun;
query1.open;
注意在这之前要先将query1里各个变量的类型定义好，否则可能会出错！
你的题目还不是太清楚，所以目前就这样，你自己加入一点，如果有多个插入，写一个循环！
query1.close;
query1.sql.clear;
query1.sql.add('insert into aaa (产品型号,仓库名称,提货日期,提货数量,进库,结存) values
a,:b,:c,:d,:e,:f)');query1.parambyname("a").value:=X;
query1.parambyname("b").value:=Y;
query1.parambyname("c").value:=strtodatetime(now);
query1.parambyname("d").value:=提货数量;//不知道你这里是怎么算出来的！
query1.parambyname("e").value:=进库;//同样，也不知道这里的依据！
query1.parambyname("f").value:=jiecun;
query1.open;
注意在这之前要先将query1里各个变量的类型定义好，否则可能会出错！
你的题目还不是太清楚，所以目前就这样，你自己加入一点，如果有多个插入，写一个循环！
V
venny
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢你，我试试！！