access中case替代方法
access中case替代方法
2009-12-26 14:01
SELECT
UserPassportID as PassportID,
UserID,
GrantorID,
Case ObjectTypeID
When 1 then ObjectID
End
as TerminalID,
Type, Flag, GrantDate, Validate, Invalidate
from UserPassport
在SQL里能执行,但在Access里总提示语法错误(操作符丢失).在查询表达式'Case ObjectTypeID
When 1 then ObjectID
End'中?
Sql:
select bb,cc,case aa when '一星级' then '*'
when '二星级' then '** '
when '三星级' then '*** '
when '四星级' then '**** '
when '五星级' then '***** '
end
from aaa
Access：
select bb,cc,iif(aa='一星级','*',iif(aa='二星级','**',iif(aa='三星级','***',iif(aa='四星级','****',iif(aa='五星级','*****')))))
from aaa;
Access中Switch和Choose关键字的用法Access中程序流程函数有三个，Iif ，Switch
Switch关键字
Access中没有Case When的用法，所以对于某些筛选比较就显得很吃力。不过还好，Access中有一个Switch可以解决这个问题。Switch 的语法是：SWITCH( case_1, result_1[, case_2, result_2...])。Switch的计算顺序为从左到右，将返回第一个为true的case对应的result。ACCESS对Switch有预编译（基本能够写进ACCESS的Sql都有预编译，ACCESS不支持Execute(SqlString)的用法），所以Switch中的条件和结果不能有逻辑错误和语法错误，否则不能执行。
实例：表tUser中有字段sex Text(1)，用于存储用户性别，其中，如sex='m'，用户为男性；sex='f'，用户为女性；其他情况为保密。为了便于sql语句的说明，我们假设还有其他两个字段，userid和username。
在SqlServer中，如果要在搜索结果中直接显示性别的名称SexName（不是m/f之类的代码），使用Case When很方便。
SELECT UserID,
UserName,
SexName = WHEN LCASE(Sex)
CASE 'm' THEN N'男'
CASE 'f' THEN N'女'
ELSE N'保密' END
from tUser
ACCESS不支持WHEN CASE的用法。虽然不那么灵巧，但是用Switch可以解决这个问题。
SELECT UserID,
相关文档：
mysql 明明已经装好了，但是无法访问。链接的时候 总是说
Access Denied.
解决方法：
用mysqld --skip-grant-table启动mysql
然后在mysql库中执行这个
INSERT INTO user VALUES ('localhost', 'root', PASSWORD('some_pass'), 'Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y','Y', 'Y', ......
最近整理出来的.如果不完全的话希望大家补充.
在access中，转换为大写的sql函数是ucase，在sqlserver中，转换为大写的函数是upper；在access中，转换为小写的函数是lcase，在sqlserver中，转换为小写的函数是lower；在access中，取当前时间的函数是now，另外还有一个取日期函数date，在sqlserver中，取当前的函数是getdate ......
虽然Firebird总体上是比Access好，但是没有传说的那么好，至少在Net环境下。
1、测试环境
A、系统环境
操作系统：Windows XP Professional Server Pack 2
CPU：Intel(R) Pentium(R) 4 CPU 3.00GHZ 2.99GHZ
内存：1G
B、代码环境
NET2.0、Access2003、Firebird2.1、
Firebird的NET2.0� ......
'excel导入access ,引用ADO
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
On Error Resume Next
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source ......
