设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: boy1

[模块/函数] 如何拆分列

[复制链接]
 楼主| 发表于 2008-12-18 11:40:26 | 显示全部楼层

谢版主,指教。

谢版主,指教。[:32]
 楼主| 发表于 2008-12-18 17:22:03 | 显示全部楼层

小问题:请教

小问题:请教

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2008-12-18 17:31:00 | 显示全部楼层
要导入的表(就是b表)中的序号不要设置为主键。
 楼主| 发表于 2008-12-18 21:55:16 | 显示全部楼层

实在不好意思,忙活了两小时也没弄明白

寻求版主指教,上传一个要导入的EXECEL文件。[:30]

我的导入方法:1。导入a表,在复制a表改名为b。(b没设主键)


                         2.a,b分别导入(b没设主键)

请教版主为什么,换个看起来没什么差别的表(只是多填了几列)却出错呢?出错了解决思路是什么?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2008-12-18 21:57:49 | 显示全部楼层
什么意思呀,看不太懂。
 楼主| 发表于 2008-12-18 22:11:51 | 显示全部楼层

我把新表导入程序后,程序提示出错。

上传的EXECEL表,是要替换原来的a表的。我把新表导入程序后,程序提示出错。版主帮给看看是什么问题

倒数第二列数据也核对了,没发现出错。


新表在上帖

[ 本帖最后由 boy1 于 2008-12-18 22:16 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2008-12-18 22:55:47 | 显示全部楼层
导入时,不要设什么id主键,access会询问你的,不要管他。
导入后,a表最后存在着很多空记录,请把他们删除掉。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2008-12-19 06:49:57 | 显示全部楼层

版主辛苦了

解决了,谢谢版主。版主辛苦了[:22]
 楼主| 发表于 2008-12-19 10:31:26 | 显示全部楼层
Private Sub Command13_Click()
    Dim strSQL As String
    Dim qdf As DAO.QueryDef
    Set qdf = CurrentDb.QueryDefs("qdfA")
    If strWhere = "" Then
        strSQL = "select * from b"
    Else
        strSQL = "select * from b where " & strWhere
    End If
    qdf.SQL = strSQL
    DoCmd.OutputTo acOutputQuery, "qdfa", acFormatXLS, CurrentProject.Path & "\qdfa.xls", True
End Sub
只输出表(b)里的指定列如:分行,案名,业主姓名,业主电话等项到 qdfa.xls,如何改代码?麻烦版主给改写一下,谢谢。
发表于 2008-12-19 11:04:05 | 显示全部楼层
strSQL = "select * from b"
strSQL = "select * from b where " & strWhere
将上面这两句中的“*”号,换成你要输入的字段名
比如
strSQL = "select 分行,案名,业主姓名,业主电话 from b"
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 13:04 , Processed in 0.094807 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表