初级问题

用Access中:  
  1、如何插入一个日期+时间的记录  
  2、在日期+时间字段里查找满足条件的日期  
  用ADO或直接写出SQL  
  谢谢  
  请关注:  
  http://expert.csdn.net/Expert/topic/1980/1980166.xml?temp=4.394168E-02 问题点数：100、回复次数：5Top

1 楼csdngoodnight（居然比我还快，你真行！）回复于 2003-07-02 08:03:42 得分 30

ADO连接：  
  工程--->引用--->Microsoft   ActiveX   Data   Object   2.x（版本号）  
   
  Option   Explicit  
   
  Dim   WithEvents   adoRS   As   Recordset  
  Dim   db   As   Connection  
   
   
  '提数据事件  
          Set   db   =   New   Connection  
          db.CursorLocation   =   adUseClient  
          db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist   Security   Info=False;Data   Source="   &   App.Path   &   "\db1.mdb;Jet   OLEDB:Database   Password=1234;"  
  '                                                       ##########################################  
  '打开密码是1234的Access2000数据库db1.mdb  
  '不需要密码，就把Jet   OLEDB:Database   Password=1234;这段去掉  
   
          Set   adoRS   =   New   Recordset  
           
          adoRS.Open   "SELECT   *   FROM   表",   db,   adOpenStatic,   adLockOptimistic  
          Set   DataGrid1.DataSource   =   adoRS  
          DataGrid1.Refresh  
   
   
   
   
   
   
  '添加事件  
          adoRS.AddNew  
          adoRS![字段a]   =   text1.Text  
          adoRS![字段b]   =   text2.Text  
          adoRS.UpdateBatch   adAffectAll  
   
  '删除  
          adoRS.Delete  
          adoRS.Requery  
          Set   DataGrid1.DataSource   =   adoRS  
          DataGrid1.Refresh  
  Top

2 楼wingchi（期待第十五个五年计划）回复于 2003-07-02 08:14:03 得分 5

upTop

3 楼csdngoodnight（居然比我还快，你真行！）回复于 2003-07-02 08:14:05 得分 30

至于日期加时间，在数据库里可以设置的，用常规日期，格式是这样：yy-mm-dd   hh:mm:ss  
   
  SQL语句比较时，可以先将字段值格式成日期格式加以比较，用Format函数  
   
  举例吧：将03-07-02   08:10:56格式成2003-7-2  
  字符串变量   =   Format("03-07-02   08:10:56","yyyy-m-d")  
   
   
  函数相关资料：  
  Format函数  
  根据格式表达式中的指令来格式化参数  
   
  语法  
  Format(expression[,format[,firstdayofweek[,firstweekofyear]]])  
   
  说明  
  其中expression是必需的任何有效的表达式.format是可选的有效的命名表达式或用户自定义格式表达式.firstdayofweek是可选的常数.firstweekofyear是可选的常数.  
  firstdayofweek参数的设置如下所示:  
  vbUseSystem:使用NLSAPI设置  
  vbSunday:星期日(缺省)  
  vbMonday:星期一  
  vbTuesday:星期二  
  vbWednesday:星期三  
  vbThursday:星期四  
  vbFriday:星期五  
  vbSaturday:星期六  
  firstweekofyear参数的设置如下所示:  
  vbUseSystem:使用NLSAPI设置  
  vbFirstJan:从包含一月一日的那一周开始(缺省)  
  vbFirstFourDays:从本年第一周开始,而此周至少有四天在本年中  
  vbFirstFullWeek:从本年第一周开始,而此周完全在本年中  
  对于数字,该函数使用预先定义的命名数值格式或创建用户自定义数值格式.  
  对于日期和时间,该函数使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式  
  对于日期和时间序数,该函数使用日期和时间格式或数值格式  
  对于字符串,该函数创建自定义的字符串格式  
   
  范例  
  Dim   VarTime,VarDate,VarStr  
  VarTime=#18:27:25#  
  VarDate=#January7,2002#  
  '以系统设置的长时间格式返回当前系统时间.  
  VarStr=Format(Time,"LongTime")  
  '以系统设置的长日期格式返回当前系统日期.  
  VarStr=Format(Date,"LongDate")  
  VarStr=Format(VarTime,"h:m:s")     '返回"18:27:25"  
  VarStr=Format(VarTime,"hh:mm:ssAMPM")   '返回"06:27:25PM"  
  '如果没有指定格式,则返回字符串  
  VarStr=Format(27)'返回"27"  
  '以下为用户自定义的格式  
  VarStr=Format(1234.5,"##,##0.00")   '返回"1,234.50"  
  VarStr=Format(334.9,"###0.00")   '返回"334.90"  
  VarStr=Format("VB","<")   '返回"vb"  
  VarStr=Format("vb",">")   '返回"VB"Top

4 楼j4sxw（HELLOworld :)）回复于 2003-07-02 08:25:57 得分 5

UPTop

5 楼sxs69（）回复于 2003-07-02 08:57:57 得分 30

1、插入  
  SQL="insert   into   数据表   values('aaa',5,#2003-9-8   12:34:23#,6,'tr',78)"  
  2、查询  
  SQL="select   *   from   数据表   where   DateValue(日期时间)=   #2003-7-8#"Top

相关问题

• 字段
• db
• sql
• adors
• 日期
• jet
• oledb
• 时间
• text
• set

• 帖主：irq001
• csdngoodnight
• wingchi
• csdngoodnight
• j4sxw
• sxs69

• Visual Basic类图书
• Visual Basic类源码下载