delphi 如何在数据库中把一个表中查询的结果添加至另一个表中，并加入空记录

我不知道要添加空记录干什么,如果数据表的字段一个都不被赋值,而只添加一条空记录的话,不管是ACCESS还是SQL server2000,都会报错,而且也没有必要

至于,把查询结果写到另外一张表中,这非常简单,不过得有两个ADOdataset组件来完成,先用一ADO组件读取查询结果集另一个ADO组件负责存储查询结果到指定的表中

var

i:word;

begin

jmiddateMDzb_jmxgxxbClose;//打开查询数据集

jmiddateMDzb_jmxgxxbCommandText:='';

jmiddateMDzb_jmxgxxbCommandText:='select id as 序号,jmid as 居民ID,rxrq as 入学日期,xxmc as 学校名称,zy as 专业,xz as 学制, byrq as 毕业日期 from zb_xxxxb where jmid ='+intTostr(Fjmid)+'';

jmiddateMDzb_jmxgxxbOpen;

if jmiddateMDzb_jmxgxxbRecordCount >0 then

begin//打开存储数据组件

jmiddatemdbcgjz_tabClose;

jmiddatemdbcgjz_tabCommandText:='';

jmiddatemdbcgjz_tabCommandText:='select id as 序号,jmid as 居民ID,rxrq as 入学日期,xxmc as 学校名称,zy as 专业,xz as 学制, byrq as 毕业日期 from 指定表';

jmiddatemdbcgjz_tabOpen;

jmiddateMDzb_jmxgxxbFirst;

for i:=0 to jmiddateMDzb_jmxgxxbRecordCount -1 do

begin

jmiddatemdbcgjz_tabAppend;//保存查询结果到指定表

jmiddatemdbcgjz_tabFieldByName('居民ID')Value:=jmiddateMDzb_jmxgxxbFieldValues['居民ID'];

jmiddatemdbcgjz_tabFieldByName('入学日期')Value:= jmiddateMDzb_jmxgxxb FieldValues['入学日期'];

jmiddatemdbcgjz_tabpost;

jmiddateMDzb_jmxgxxbnext;

end;

end;

空记录保存,自己想办法

学了半学期的数据库，马上快要期末考试了，且当自己复习复习。我的方法比较笨，如果有比较简单的方法请联系我，并把答案发给我，谢谢。

我都是用汉语拼音或者拼音缩写，没有学过数据库的同志们会看不懂，但是我相信你既然提出这些问题，也就看得懂我写的东西。

以下代码均在Microsoft SQL Server 2005 （开发版） 下运行成功。

如本人才疏学浅，第四题我实在无能为力。有答案后记得与我共享，大家共同提高水平

1 从教学库中查询出每个学生选课的门数。

use xs

select distinct xueshengmz, count(xueshengxsh) as 学生选课数

from xuesheng,xuanke

where xueshengxsh=xuankexsh

group by mz

2从教学库中查询出至少选修了两门课程的全部的学生。

use xs

select distinct xueshengxsh, count(xuankexsh)

from xuesheng,xuanke

where xueshengxsh=xuankexsh

group by xueshengxsh having count()>=2

3从教学库中查询出只选修了一门课程的全部学生。

use xs

select distinct xueshengxsh, count(xuankexsh)

from xuesheng,xuanke

where xueshengxsh=xuankexsh

group by xueshengxsh having count()=1

7从教学库中查询出同时选修了3门课程的全部学生。

use xs

select distinct xueshengxsh, count(xuankexsh)

from xuesheng,xuanke

where xueshengxsh=xuankexsh

group by xueshengxsh having count()=3

8从教学库中查询出最多选修了2门课程（含未选修任何课程）的全部学生。

use xs

select distinct xueshengxsh, count(xuankexsh)

from xuesheng,xuanke

where xueshengxsh=xuankexsh

group by xueshengxsh having count()<=2

5从教学库中查询出所有未被学生选修的课程。

use xs

select distinct kechengkcm, count(xuankexsh) as 选课门数

from kecheng,xuanke

where xuankekch=kechengkch

group by kechengkcm having count()=0

6从教学库中查询出所有已被学生选修的课程。

use xs

select distinct kechengkcm, count(xuankexsh) as 选课门数

from kecheng,xuanke

where xuankekch=kechengkch

group by kechengkcm having count()>0

9从教学库中查询出每个专业的学生人数，并按人数多少降序排列。

use xs

select zy,count(zy)as shumu from xuesheng

group by zy order by shumu desc

10从教学库中查询出每个学生选课的全部情况，并依次按学生号和成绩排序。

use xs

select distinct xueshengxsh,xueshengmz,xuankekch,kechengkcm,xuankecj

from xuesheng,xuanke,kecheng

where xuankekch=kechengkch

group by xueshengmz,xueshengxsh,xuankekch,kechengkcm ,xuankecj

order by xueshengxsh asc, xuankecj desc

protected void Button1_Click(object sender, EventArgs e) //创建函数

{

if (UploadFileValue != null && UploadFileValue != "") //当UploadFile地值不为空和空字符串

{

hsgupload(); //执行 hsgupload()函数

}

string sql; //定义一个字符串变量sql

sql = "insert into allsjzy(addby,title,fn) values('" + Session["username"]ToString()Trim() + "','"+mcTextToString()Trim()+"','"+fname+"')"; //该字符串执行的是向表allsjzy中插入数据

int result; //定义变量result

result = new Class1()hsgexucute(sql); //result的结果为执行Class1中的hsgexucute(sql)的返回值

if (result == 1)//当result为1的时候

{

ResponseWrite("<script>javascript:alert('作业上交成功');</script>");//提示作业提交成功

}

else

{

ResponseWrite("<script>javascript:alert('系统错误');</script>");//不然提示系统错

}

}

1，你试试在查询班级表的时候

ADOQuery1->SQL->Add("select from bj where id='"+ abc +"'");

此时的abc的值是什么。

2，你bj表中的id 是什么 看程序"select from bj where id='"+ abc +"'"); 应该是系的id号，但是bj表中id又有3,4,5这个在系表中是不存在的 只有1,2。

以上就是关于delphi 如何在数据库中把一个表中查询的结果添加至另一个表中，并加入空记录全部的内容，包括:delphi 如何在数据库中把一个表中查询的结果添加至另一个表中，并加入空记录、有那位数据库高手帮我一下啊！急！我是数据库新手！、【求助】急急急！！！求数据库、相关的代码解释哈 谢谢啦等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！