access中报表的数据源怎么创建

以Access
2007说明：
1、在菜单中点击“创建”，然后在“报表”工具栏中选你要做的相应报表方式，“空报表”、“报表”等。
2、如果选“空报表”，则数据源就要在屏幕右边出现的“属性”（在报表空白初点右键）面板中点“数据”，然后在“控件来源”下拉选项中就可以创建数据源了，实际就是选择已经存在的表或查询，如果你没有合乎条件的查询，就要自己另行构造一个查询供选择。
3、如果你选择的是其它报表选项，则access基本上都会提供一个选择数据源的询问对话框，按需要选择即可。
不论用什么方式，数据源的来源主要靠两个途径构造：一是建表；二是在表的基础上建立SQL查询
，然后在建报表过程中选择。

首先要在Access中打开 数据库，然后单击“对象”列表中的“查询”项，并在创建方法列表中单击“在设计视图中创建查询”项。
单击“在设计视图中创建查询”后，屏幕上出现“查询”窗口，它的上面还有一个“显示表”对话框。单击“显示表”对话框上的“两者都有”选项，在列表框中选择需要的表或查询。“表”选项卡中只列出了所有的表，“查询”选项卡中只列出了所有的查询，而选择“两者都有”就可以把数据库中所有“表”和“查询”对象都显示出来，这样有助于我们从选择的表或查询中选取新建查询的字段。
单击所需要的表或查询，然后单击对话框上的“添加”按钮，这个表的字段列表就会出现在查询窗口中。将“数据库”中的“表1”和“表2”都添加到查询窗口中。添加完提供原始数据的表后，就可以把“显示表”窗口关闭，回到“查询窗口”中准备建立“查询”了。
先选中“表1”这个表，然后在它的列表框中找到需要的字段，将鼠标移动到列表框中标有这个字段的选项上，按住鼠标左键，这时鼠标光标变成一个长方块，拖动鼠标将长方块拖到下方查询表格中的一个空白列，放开鼠标左键，这样就完成了将“表1”中的字段添加到查询表格中了。
汗基本 *** 作 编程最快sql="select from 表名 where 条件=' "&值&" ' "

・用表设计器设计表
・用LinkTable的方式连接远程表
・导入外部数据的方式直接建立表
・用建表查询基于现在的表生成新表
・用VBA写建表过程
・N多方法…

打开Access应用软件。单击菜单栏“文件”。如下图：
2
在d出的菜单栏中选择“新建"/"空白桌面数据库"，如下图：
3
选择数据库的路径，单击“创建”，如下图：
4
数据库建立了，再创建数据表。这里我们直接从excel导入。这样节省时间而且不容易导致输入错误。在功能区选择“外部数据"/"excel"，如下图：
5
在d出的对话框中选中”第一行包含列标题“，再单击“下一步”。如下图”
6
配置字段名称，再单击“下一步”，如下图：
7
选择“让Access添加主键”，再单击“下一步”。如下图：
8
输入数据表格名称，再单击”完成“。如下图：
9
在d出的对话框中单击”关闭“。如下图：
10
可以看到刚刚的表格已经在数据库中

创建表的方法有：
（1）使用设计器创建表。选择“创建”选项卡，单击“表设计”按钮，打开表设计窗口在表编辑器中，定义每个字段的名字、类型、长度等信息
（2）使用数据表视图创建表。选择“创建”选项卡，单击“表”按钮,直接选择字段类型，输入字段名称。

把下面的过程放到任何一个模块中 Public Sub CreateTabel(rst As DAORecordset, TabelName As String) Dim TS As TableDefs Dim T As TableDef Dim F As DAOField Set TS = CurrentDbTableDefs Set T = New TableDef rstMoveFirst For Each

只能手工或者可用程序自动，但基本原理是一样的：都是要先把这条数据提取到新表中，可以使用代码来做。

如表中有主键或者唯一字段，可用代码：

select  into 新表名 from 旧表名 where 主键字段=1;
select  into 新表名 from 旧表名 where 主键字段=2;
select  into 新表名 from 旧表名 where 主键字段=3;
……
select  into 新表名 from 旧表名 where 主键字段=N;

如果需要删除原表中数据，可用以下语句：

delete from 旧表名 where 主键字段=1;
delete from 旧表名 where 主键字段=2;
delete from 旧表名 where 主键字段=3;
……
delete from 旧表名 where 主键字段=N;

---