access 时间查询.txt

在ACCESE数据库中时间的查询

我用ADO操作数据库，想对时间进行查询，我用同样的SQL语句查询SQL   Server数据库   
  就可以，当查询Access数据库就不行，这是为什么？？？ 
1:str="select   *   from   USER   where   LASTLOGIN>'2003-6-24'";       
  str="select   *   from   USER   where   LASTLOGIN>'2003-6-25   19:46:44'";
2:sql="select   *   from   USER   where   time>#"+m_time.Format("%Y-%m-%d   %H:%M:%S")+"#";
///////////////////////////////////////////////////////////////x修改表字段
通过   ALTER   TABLE   语句可以用多种方式修改一个现有的表。您可以：   
    
  使用   ADD   COLUMN   向表中添加新字段。可以指定字段名称、数据类型和可选大小（对于文本和二进制字段）。例如，以下语句将一个称为   Notes   的、大小为   25   的字符文本字段添加到   Employees   表中：     
  ALTER   TABLE   Employees   ADD   COLUMN   Notes   TEXT(25)   
    
    
  也可以定义该字段的索引。     
    
  如果指定一个字段为   NOT   NULL，那么新记录的该字段必需有有效数据。   
    
  使用   ALTER   COLUMN   可更改现有字段的数据类型。可以指定字段名称、新的数据类型及文本和二进制字段的可选大小。例如，以下语句将   Employees   表中称为   ZipCode（原先定义为整数）字段的数据类型更改为一个大小为   10   个字符的文本字段：     
  ALTER   TABLE   Employees   ALTER   COLUMN   ZipCode   TEXT(10)   
    
  使用   ADD   CONSTRAINT   可添加一个多字段索引。     
  使用   DROP   COLUMN   可删除字段。只需指定字段的名称。     
  使用   DROP   CONSTRAINT   可删除多字段索引。只需在   CONSTRAINT   保留字后面指定索引名称。     
  
Top

2 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-25 13:23:21 得分 10ALTER   TABLE   表名   RENAME   COLUMN   原列名   TO   新列名
Top

3 楼winehero（God helps those who help themselves.）回复于 2005-11-25 13:24:51 得分 20可以使用ALTER   TABLE   的SQL语句处理或者使用ADOX(ADO扩展对象)来处理都可以
Top

4 楼faysky2（出来混，迟早是要还嘀）回复于 2005-11-25 13:25:06 得分 10'引用ADO(Microsoft   ActiveX   Data   Objects   2.X   Library)   
  Private   Sub   Command1_Click()   
          On   Error   GoTo   err   
          Dim   cn   As   New   ADODB.Connection   
          cn.ConnectionString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   App.Path   &   "\Test.mdb;Jet   OLEDB:DataBase   password=12345;"   
          cn.CursorLocation=adUseClient'设置客户端游标     
          cn.Open   
          cn.Execute("ALTER   TABLE   表名   RENAME   COLUMN   原列名   TO   新列名")'修改列名   
          cn.Close   
          Set   cn=Nothing   
          Exit   Sub   
  err:   
          MsgBox   err.Description   
  End   Sub