在where 条件子句中日期是如何表示的

twtjcf

小蚁雄兵 发表于 2009-4-25 18:27
不错不错

sleepbag老师的Accesss的菜单跟我的有很大区别,请问题如何设置的?

handsomcao

不错，学习了，那个在哪下载

hyd1985

写成 select  * from [a$] where 日期>#2009-01-03#  试试
希望能帮助到你

ning84

my_dear 发表于 2009-4-24 18:59
可以用类似#2009/04/24#形式来表示即可

谢谢，#方法。，问题解决。

1. Sub ll1()
   
2.     Dim Cn As ADODB.Connection
   
3.     Dim Rs As ADODB.Recordset
   
4.     Dim Sql As String
   
5.     Dim oDate As Date
   
6.     Set Cn = New ADODB.Connection
   
7.     Set Rs = New Recordset
   
8.        oDate = "2023/3/4"
   
9.        Debug.Print oDate
   
10.        Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
    
11.        Sql = "Select a.学号,a.表a,b.期中成绩,c.期末,d.内容, "
    
12.        Sql = Sql & "e.表e,f.表f,g.表g,h.表h "
    
13.       
    
14.        Sql = Sql & " from [a$]a,[b$]b,[c$]c,[d$]d,[e$]e,[f$]f,[g$]g,[h$]h  "
    
15.        Sql = Sql & " where a.学号 = #2023/3/4#  and  b.学号 = #2023/3/4# and  c.学号 = #2023/3/4# and  d.学号 = #2023/3/4# "
    
16.        Sql = Sql & " and e.学号 = #2023/3/4#  and  f.学号 = #2023/3/4# and  g.学号 = #2023/3/4# and  h.学号 = #2023/3/4# "
    
17.        Debug.Print Sql
    
18.        Set Rs = Cn.Execute(Sql)
    
19.     Sheet4.Cells.Clear
    
20.     Sheet4.Cells(2, 1).CopyFromRecordset Rs
    
21.     Stop
    
22. End Sub
    
23. 
    

复制代码

ning84

for ii= 0  to rs.count不好用。
只能用 Do While Not .EOF 的组合应用
                       .MoveNext+Loop

1. Sub MovePicToShtFolder()
   
2.     ''临时文件目录的文件移到指定目录。
   
3.     Dim Rs As ADODB.Recordset
   
4.     Dim Fso As Scripting.FileSystemObject
   
5.         Set Fso = New Scripting.FileSystemObject
   
6.     Dim Sht As Worksheet, Sht1 As Worksheet
   
7.         
   
8.     Dim PathFile
   
9.         PathFile = ThisWorkbook.Path & "\t\t.ppsx"
   
10.     Dim Str, SqlStr
    
11.     Dim Rr
    
12.     Dim Ppt As PowerPoint.Application
    
13.     Dim Pres As Presentation
    
14.     Dim Sld As Slide
    
15.     Dim Shp 'As Shape
    
16.         ''
    
17.         Set Sht1 = Sheets("t")
    
18.         Str = Sht1.Cells(1, 1)
    
19.         Set Sht = ThisWorkbook.Worksheets(Str)
    
20.         Sht.Cells.Clear
    
21.         Sht.Cells.Font.Size = 9
    
22.         
    
23.         Rr = 5
    
24.         
    
25.         Set Ppt = New PowerPoint.Application
    
26.         Ppt.Visible = msoCTrue
    
27.         If Fso.FileExists(PathFile) Then
    
28.             If Ppt.Presentations.Count = 0 Then
    
29.                  Set Pres = Ppt.Presentations.Open(PathFile)
    
30.             Else
    
31.                  Set Pres = Ppt.Presentations(PathFile)
    
32.             End If
    
33.         Else
    
34.             MsgBox PathFile
    
35.         End If
    
36.         For Each Sld In Pres.Slides
    
37.              Str = Sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text
    
38.              'Debug.Print Str,
    
39.              Set Shp = Sld.Shapes("Date")
    
40.              'Debug.Print Shp.Left, Shp.Top, Shp.Width, Shp.Height
    
41.              Set Rs = EngChiSqlRs(ThisWorkbook.FullName, Str, "A1:O1000")
    
42.              With Rs
    
43.                   .MoveFirst
    
44.                   For jj = 0 To .Fields.Count - 2
    
45.                        Sht.Cells(1, jj + 2) = .Fields(jj).Name
    
46.                        'Debug.Print .Fields(jj).Name, .Fields(jj)
    
47.                   Next jj
    
48.                   Sht.Cells(1, jj + 2) = "Left"
    
49.                   Sht.Cells(1, jj + 3) = "Top"
    
50.                   Sht.Cells(1, jj + 4) = "Width"
    
51.                   Sht.Cells(1, jj + 5) = "Height"
    
52.                   
    
53.                   ''
    
54.                   Do While Not .EOF
    
55.                        For jj = 0 To .Fields.Count - 2
    
56.                            Sht.Cells(Rr, jj + 2) = .Fields(jj).Value
    
57.                        Next jj
    
58.                        
    
59.                        .MoveNext
    
60.                   Loop
    
61.                   With Shp
    
62.                        Sht.Cells(Rr, jj + 2) = .Left
    
63.                        Sht.Cells(Rr, jj + 3) = .Top
    
64.                        Sht.Cells(Rr, jj + 4) = .Width
    
65.                        Sht.Cells(Rr, jj + 5) = Int(.Height)
    
66.                   End With
    
67.              End With
    
68.              Rr = Rr + 1
    
69.         Next Sld
    
70. 
    
71.         
    
72.         'Ppt.Quit
    
73. End Sub

复制代码

ning84

找到Recordset.count=-1原因了。

        Set Rs = Cn.Execute(Str)，Execute方法不能成立。
        Rs.Open Str, Cn, adOpenKeyset, adLockOptimistic----Open方法成立

Recordset.Open方法参数介绍_zjcxc的博客-CSDN博客  https://blog.csdn.net/zjcxc/article/details/384551

语法:
    recordset.Open Source, ActiveConnection, CursorType, LockType, Options

参数说明:
Source               可选，变体型，计算 Command 对象的变量名、SQL 语句、表名、存储过程调用或持久 Recordset 文件名。 ActiveConnection     可选。变体型，计算有效 Connection 对象变量名；或字符串，包含 ConnectionString 参数。
CursorType       可选，CursorTypeEnum 值，确定提供者打开 Recordset 时应该使用的游标类型。
可为下列常量之一（参阅 CursorType 属性可获得这些设置的定义）。
值  常量                 说明
--- ------------------- -----------------------
0   AdOpenForwardOnly   默认值）打开仅向前类型游标。
1   AdOpenKeyset             打开键集类型游标。
2   AdOpenDynamic         打开动态类型游标。
3   AdOpenStatic               打开静态类型游标。

LockType              可选。确定提供者打开 Recordset 时应该使用的锁定（并发）类型的 LockTypeEnum 值，可为下列常量之一（参见 LockType 属性可获得详细信息）。
值  常量                                   说明
--- -------------------------------- -----------------------
1   AdLockReadOnly           （默认值）只读 — 不能改变数据。
2   AdLockPessimistic         保守式锁定,提供者完成确保成功编辑记录所需的工作，通常通过在编辑时立即锁定数据源的记录。
3   AdLockOptimistic            开放式锁定（逐个） — 提供者使用开放式锁定，只在调用Update 方法时才锁定记录。
4   AdLockBatchOptimistic  开放式批更新—用于批更新模式（与立即更新模式相对）。