access 如何将一个表的某个字段的数据导到另外一个表相同字段里面?
可先用数据管道在PB中建立(或导入到)一个数据库,在通过数据窗口保存为你想要的任何格式的文件包括excel
String ls_File, ls_Path, ls_Ext
Integer li_Value
li_Value = GetFileSaveName ("打印到文件", ls_Path, ls_File, "DOC", &
"文本文件; (*.CSV), *.CVS," + &
"文本文件Tab (*.TXT), *.TXT," + &
"dBASE II (*.DBF), *.DBF," + &
"dBASE III (*.DBF), *.DBF," + &
"DIF文件 (*.DIF), *.DIF," + &
"Excel文件 (*.XLS), *.XLS," + &
"HTML文件 (*.HTM), *.HTM," + &
"PSR文件 (*.PSR), *.PSR," + &
"SQL文件 (*.SQL), *.SQL," + &
"多格式文件 (*.SYL), *.SYL," + &
"Lotus1-2-3 (*.WKS), *.WKS," + &
"Lotus1-2-3 (*.WK1), *.WK1," + &
"WMF Windows (*.WMF), *.WMF")
IF li_Value 1 THEN RETURN
IF ls_Path = '' THEN RETURN
IF FileExists(ls_Path) THEN
Beep(3)
IF MessageBox('系统信息', '文件:'+ls_Path+'已存在, 覆盖吗(Yes/No)?', Question!, YesNo!, 2)=2 THEN RETURN
END IF
ls_Ext = Upper(Right(ls_Path, 3))
CHOOSE CASE ls_Ext
// CASE "prn"
// dw_preview.Object.Datawindow.Print.FileName = ls_Path
// dw_preview.Print()
CASE 'CSV'
li_Value = dw_preview.SaveAs(ls_Path, CSV!, FALSE)
CASE 'DBF'
li_Value = dw_preview.SaveAs(ls_Path, dBASE3!, FALSE)
CASE 'DIF'
li_Value = dw_preview.SaveAs(ls_Path, DIF!, FALSE)
CASE 'XLS'
li_Value = dw_preview.SaveAs(ls_Path, Excel!, FALSE)
CASE 'HTM'
li_Value = dw_preview.SaveAs(ls_Path, HTMLTable!, FALSE)
CASE 'PSR'
li_Value = dw_preview.SaveAs(ls_Path, PSReport!, FALSE)
CASE 'SQL'
li_Value = dw_preview.SaveAs(ls_Path, SQLInsert!, FALSE)
CASE 'SYL'
li_Value = dw_preview.SaveAs(ls_Path, SYLK!, FALSE)
CASE 'TXT'
li_Value = dw_preview.SaveAs(ls_Path, Text!, FALSE)
CASE 'WKS'
li_Value = dw_preview.SaveAs(ls_Path, WKS!, FALSE)
CASE 'WK1'
li_Value = dw_preview.SaveAs(ls_Path, WK1!, FALSE)
CASE 'WMF'
li_Value = dw_preview.SaveAs(ls_Path, WMF!, FALSE)
END CHOOSE
Beep(3)
IF li_Value=1 THEN
MessageBox('系统信息', '数据保存完毕!')
ELSE
MessageBox('系统信息', '数据保存错误!')
END IF
SQL中不同的表之间有关联 。。。建个视图,视图里面写好你要导出的字段。然后你就把视图当表来调用。相当与单表导出到Access。
我收集的SQL语句,希望对你有用sqlstr:='select * into Data\save.mdb.'+Edit1.Text+' from Data\B.M.OSoft.mdb.materialslist';
FormNewRecord.ADOQuery4.Close;
FormNewRecord.ADOQuery4.SQL.Clear;
FormNewRecord.ADOQuery4.SQL.Add(sqlstr);
FormNewRecord.ADOQuery4.ExecSQL;
作用:不同数据库间表的复制,其中Data\save.mdb.'+Edit1.Text+'是新表,名字是Edit1.Text ,Data\B.M.OSoft.mdb.materialslist是原表
精妙SQL语句收集
SQL语句先前写的时候,很容易把一些特殊的用法忘记,我特此整理了一下SQL语句操作,方便自己写SQL时方便一点,想贴上来,一起看看,同时希望大家能共同多多提意见,也给我留一些更好的佳句,整理一份《精妙SQL速查手册》,不吝赐教!
一、基础
1、说明:创建数据库
CREATE DATABASE database-name
2、说明:删除数据库
drop database dbname
3、说明:备份sql server
--- 创建 备份数据的 device
USE master
EXEC sp_addumpdevice 'disk', 'testBack', 'c:\mssql7backup\MyNwind_1.dat'
--- 开始 备份
BACKUP DATABASE pubs TO testBack
4、说明:创建新表
create table tabname(col1 type1 [not null] [primary key],col2 type2 [not null],..)
根据已有的表创建新表:
A:create table tab_new like tab_old (使用旧表创建新表)
B:create table tab_new as select col1,col2… from tab_old definition only
5、说明:删除新表
drop table tabname
6、说明:增加一个列
Alter table tabname add column col type
注:列增加后将不能删除。DB2中列加上后数据类型也不能改变,唯一能改变的是增加varchar类型的长度。
7、说明:添加主键: Alter table tabname add primary key(col)
说明:删除主键: Alter table tabname drop primary key(col)
8、说明:创建索引:create [unique] index idxname on tabname(col….)
删除索引:drop index idxname
注:索引是不可更改的,想更改必须删除重新建。
9、说明:创建视图:create view viewname as select statement
删除视图:drop view viewname
10、说明:几个简单的基本的sql语句
选择:select * from table1 where 范围
插入:insert into table1(field1,field2) values(value1,value2)
删除:delete from table1 where 范围
更新:update table1 set field1=value1 where 范围
查找:select * from table1 where field1 like ’%value1%’ ---like的语法很精妙,查资料!
排序:select * from table1 order by field1,field2 [desc]
总数:select count as totalcount from table1
求和:select sum(field1) as sumvalue from table1
平均:select avg(field1) as avgvalue from table1
最大:select max(field1) as maxvalue from table1
最小:select min(field1) as minvalue from table1
11、说明:几个高级查询运算词
A: UNION 运算符
UNION 运算符通过组合其他两个结果表(例如 TABLE1 和 TABLE2)并消去表中任何重复行而派生出一个结果表。当 ALL 随 UNION 一起使用时(即 UNION ALL),不消除重复行。两种情况下,派生表的每一行不是来自 TABLE1 就是来自 TABLE2。
B: EXCEPT 运算符
EXCEPT 运算符通过包括所有在 TABLE1 中但不在 TABLE2 中的行并消除所有重复行而派生出一个结果表。当 ALL 随 EXCEPT 一起使用时 (EXCEPT ALL),不消除重复行。
C: INTERSECT 运算符
INTERSECT 运算符通过只包括 TABLE1 和 TABLE2 中都有的行并消除所有重复行而派生出一个结果表。当 ALL 随 INTERSECT 一起使用时 (INTERSECT ALL),不消除重复行。
注:使用运算词的几个查询结果行必须是一致的。
12、说明:使用外连接
A、left outer join:
左外连接(左连接):结果集几包括连接表的匹配行,也包括左连接表的所有行。
SQL: select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c
B:right outer join:
右外连接(右连接):结果集既包括连接表的匹配连接行,也包括右连接表的所有行。
C:full outer join:
全外连接:不仅包括符号连接表的匹配行,还包括两个连接表中的所有记录。
二、提升
1、说明:复制表(只复制结构,源表名:a 新表名:b) (Access可用)
法一:select * into b from a where 1<>1
法二:select top 0 * into b from a
2、说明:拷贝表(拷贝数据,源表名:a 目标表名:b) (Access可用)
insert into b(a, b, c) select d,e,f from b;
3、说明:跨数据库之间表的拷贝(具体数据使用绝对路径) (Access可用)
insert into b(a, b, c) select d,e,f from b in ‘具体数据库’ where 条件
例子:..from b in '"&Server.MapPath(".")&"\data.mdb" &"' where..
4、说明:子查询(表名1:a 表名2:b)
select a,b,c from a where a IN (select d from b ) 或者: select a,b,c from a where a IN (1,2,3)
5、说明:显示文章、提交人和最后回复时间
select a.title,a.username,b.adddate from table a,(select max(adddate) adddate from table where table.title=a.title) b
6、说明:外连接查询(表名1:a 表名2:b)
select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c
7、说明:在线视图查询(表名1:a )
select * from (SELECT a,b,c FROM a) T where t.a > 1;
8、说明:between的用法,between限制查询数据范围时包括了边界值,not between不包括
select * from table1 where time between time1 and time2
select a,b,c, from table1 where a not between 数值1 and 数值2
9、说明:in 的使用方法
select * from table1 where a [not] in (‘值1’,’值2’,’值4’,’值6’)
10、说明:两张关联表,删除主表中已经在副表中没有的信息
delete from table1 where not exists ( select * from table2 where table1.field1=table2.field1 )
11、说明:四表联查问题:
select * from a left inner join b on a.a=b.b right inner join c on a.a=c.c inner join d on a.a=d.d where .....
12、说明:日程安排提前五分钟提醒
SQL: select * from 日程安排 where datediff('minute',f开始时间,getdate())>5
13、说明:一条sql 语句搞定数据库分页
select top 10 b.* from (select top 20 主键字段,排序字段 from 表名 order by 排序字段 desc) a,表名 b where b.主键字段 = a.主键字段 order by a.排序字段
14、说明:前10条记录
select top 10 * form table1 where 范围
15、说明:选择在每一组b值相同的数据中对应的a最大的记录的所有信息(类似这样的用法可以用于论坛每月排行榜,每月热销产品分析,按科目成绩排名,等等.)
select a,b,c from tablename ta where a=(select max(a) from tablename tb where tb.b=ta.b)
16、说明:包括所有在 TableA 中但不在 TableB和TableC 中的行并消除所有重复行而派生出一个结果表
(select a from tableA ) except (select a from tableB) except (select a from tableC)
17、说明:随机取出10条数据
select top 10 * from tablename order by newid()
18、说明:随机选择记录
select newid()
19、说明:删除重复记录
Delete from tablename where id not in (select max(id) from tablename group by col1,col2,...)
20、说明:列出数据库里所有的表名
select name from sysobjects where type='U'
21、说明:列出表里的所有的
select name from syscolumns where id=object_id('TableName')
22、说明:列示type、vender、pcs字段,以type字段排列,case可以方便地实现多重选择,类似select 中的case。
select type,sum(case vender when 'A' then pcs else 0 end),sum(case vender when 'C' then pcs else 0 end),sum(case vender when 'B' then pcs else 0 end) FROM tablename group by type
显示结果:
type vender pcs
电脑 A 1
电脑 A 1
光盘 B 2
光盘 A 2
手机 B 3
手机 C 3
23、说明:初始化表table1
TRUNCATE TABLE table1
24、说明:选择从10到15的记录
select top 5 * from (select top 15 * from table order by id asc) table_别名 order by id desc
三、技巧
1、1=1,1=2的使用,在SQL语句组合时用的较多
“where 1=1” 是表示选择全部 “where 1=2”全部不选,
如:
if @strWhere !=''
begin
set @strSQL = 'select count(*) as Total from [' + @tblName + '] where ' + @strWhere
end
else
begin
set @strSQL = 'select count(*) as Total from [' + @tblName + ']'
end
我们可以直接写成
set @strSQL = 'select count(*) as Total from [' + @tblName + '] where 1=1 安定 '+ @strWhere
2、收缩数据库
--重建索引
DBCC REINDEX
DBCC INDEXDEFRAG
--收缩数据和日志
DBCC SHRINKDB
DBCC SHRINKFILE
3、压缩数据库
dbcc shrinkdatabase(dbname)
4、转移数据库给新用户以已存在用户权限
exec sp_change_users_login 'update_one','newname','oldname'
go
5、检查备份集
RESTORE VERIFYONLY from disk='E:\dvbbs.bak'
6、修复数据库
ALTER DATABASE [dvbbs] SET SINGLE_USER
GO
DBCC CHECKDB('dvbbs',repair_allow_data_loss) WITH TABLOCK
GO
ALTER DATABASE [dvbbs] SET MULTI_USER
GO
7、日志清除
SET NOCOUNT ON
DECLARE @LogicalFileName sysname,
要注意两个表的关键字的定义 .
insert into 表1(学号,姓名) select 学号,姓名 from 表2
闾顺力欣: 1)先做个查询:SELECT * FROM 表1 WHERE A = 16 AND B = 20 2)基于这个新作的查询创建自动窗体即可
怀集县18786647058: 在ACCESS数据库中,怎样把一个表的某些字段的某些记录复制到另一个表 - ?
闾顺力欣: 用追加查询就OK啦!!(假设要把表A中的某条记录复制到表B中) 1、在设计视图中打开表A,并选择要复制的记录 2、单击工具栏中的“查询类型”选择“追加查询”弹出生成表对话框.表名称选B、选“当前数据库” 基本上就OK了!! 快去试试吧!!
怀集县18786647058: ACCESS中将名字里面的一个字 - ?
闾顺力欣: 第二种方法是用更新查询实现,如:UPDATE 表名 SET 名字 = Replace(名字, '红', '秋') WHERE 名字 LIKE '*红*';
怀集县18786647058: Access 数据库 如何使用sql语句把表中的某字段内容替换 - ?
闾顺力欣: select id ,right(pro,1),left(pro,len(pro)-7),replace(pro,"2010/6/","") 上面三种都试试吧
怀集县18786647058: ACCESS 如何使用SQL语句,批量替换表中的特定字符等. - ?
闾顺力欣: 语法错误:您用的语法是SQL数据库的,Access中不能用@关键字.字段名如果是传入的字符串,语法为 : '" & 字段名 & "' Access 语法示例:字段名、表名均为参数:strSql= “Select ('" & 字段名 & "') From ('" & 表名 & "')"; 云驰软件
怀集县18786647058: ACCESS里怎么修改某张表某字段的数据? - ?
闾顺力欣: 表1必须增加一个“折扣价"字段,表2的代码应该是唯一的 实现代码如下:Private Sub Command0_Click() Dim strSql As String strSql = "update 表1,表2 set 表1.折扣价=表2.折扣价 where 表1.代码=表2.代码" DoCmd.RunSQL strSql End Sub
怀集县18786647058: 在access中,怎么检所出查询表中某一个字段中的某一个字 - ?
闾顺力欣: 查询姓张的只需要select 作者 from 表 where 作者 like '张*'
怀集县18786647058: 在ACCESS数据库中,怎样用SQL语句把一个表的某些字段的某些记录插入另一个表??
闾顺力欣: 对两个表的字段有要求,不一样要两个表的字段一样或者说字段顺序一样,只需要将查询出来并结果整理的数据表与目标数据表的字段数目以及顺序一直就可以了,^_^
怀集县18786647058: access 如何将一个表中的一个字段的所有值累加后赋值给另一个表中的某个字段? - ?
闾顺力欣: select sum(你要累加的字段) as qty from table where 再把qty的值输出赋给textbox 再把textbox的值更新到另一个表中的某个字段
怀集县18786647058: access 用语言建立一个表,怎样设定这个表中的一个字段为主键 - ?
闾顺力欣: string1 = "create table " & Cbotest & "(Q_number varchar(10) primary key)" DoCmd.RunSQL string1