表列名不在顶端查询语句写法

fsc163198 · 发表于 2010-4-8 20:06

If conn.State = adStateOpen Then
sSql = "Select "
For ii = 1 To ColNum
sSql = sSql & sRan.Offset(0, ii - 1).Value & ","
Next
sSql = Left(sSql, Len(sSql) - 1) & " From [" & TableName & "$] Where 定货日期='" & Cells(1, 1) & "'"
sRan.Offset(1, 0).CopyFromRecordset conn.Execute(sSql)
conn.Close
End If

TableName 表列名不在第一行查询语名咋写

表列名不在顶端查询语句写法.rar (11.27 KB, 下载次数: 8)

lb_bn · 发表于 2010-4-8 20:17

$后可以跟区域地址..

fsc163198 · 发表于 2010-4-9 21:22

SQL语句查询怎么少了两列数据

SQL语句查询怎么少了两列数据.rar (14.51 KB, 下载次数: 11)

lb_bn · 发表于 2010-4-9 21:24

conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties='Excel 8.0;imex=1';Data Source=" & ThisWorkbook.Path & "\" & WN

fsc163198 · 发表于 2010-4-9 21:38

这段代码还有日期转换帮我改改

lb_bn · 发表于 2010-4-9 21:39

日期转换是什么意思???

fsc163198 · 发表于 2010-4-9 21:47

我做了一下格式转换
Range("A1").Select
Selection.NumberFormatLocal = "G/通用格式"

查询完再给转换回来
Range("A1").Select
Selection.NumberFormatLocal = "m-d;@"
能不能直接在 Where 定货日期=" & Cells(1, 1) & "" 这句里转换
我式了用这样也不行Where 定货日期=" & Format(Cells(1, 1) ,"yyyy-m-d")&"不行

对了加了 imex=1 是什么意思？

		自动登录	找回密码
密码			免费注册

[求助] 表列名不在顶端查询语句写法

感谢lb_bn老师指点列名问题解决了，又出了新问题查询少两列数据

回复 3楼 fsc163198 的帖子

谢谢非常感谢lb_bn老师

回复 5楼 fsc163198 的帖子

查询时CELLS(1,1)是日期直接查询查不到