Access数据库转SQL后Instr的问题

SQL

SERVER

是用

+

号作连字符的！

"select

count()

from

TD_TZ

where

charindex(',"

&

RequestCookies("usr")

&

",'

，

','

+

ReadUsr

+

','

)=0

And

Myname<>'"

&

RequestCookies("usr")

&

"'"

Instr函数

一、题目：

要求编写一段代码，运用Instr函数，在一字符串中查找另一字符串并返回结果。

二、代码：

Sub 示例_1_18()

Dim bssString, yczChar, wz

bssString ="ABpAApCDPBBP"

yczChar = "P"

MsgBox "bssString = "" ABpAApCDPBBP """ & Chr(10) & _

"yczChar= ""P"" 时： " & Chr(10) & Chr(10) & _

"InStr(4, bssString, yczChar, 1) 返回值为 " & _

InStr(4, bssString, yczChar, 1)

wz = Instr(1, bssString, yczChar, 0)

wz = Instr(bssString,yczChar) ' 返回 9。

wz = Instr(1, bssString, "W") ' 返回 0。

End Sub

三、代码详解

1、Sub 示例_1_18()：宏程序的开始语句。宏名为示例_1_18。

2、Dim bssString, yczChar, wz ：变量bssString、yczChar和ws声明为可变型变量。

3、bssString ="ABpAApCDXPBBP" ： 把被搜索的字符串赋给变量bssString。

4、yczChar = "P" ： 把要查找的字符P赋给变量yczChar。

5、MsgBox "bssString = "" ABpAApCDPBBP """ & Chr(10) & _

"yczChar= ""P"" 时： " & Chr(10) & Chr(10) & _

"InStr(4, bssString, yczChar, 1) 返回值为 " & _

InStr(4, bssString, yczChar, 1)： 用消息框显示从第四个字符开始，以文本比较的方式找字符P，返回值为 6（小写 p的位置）。小写 p 和大写 P 在文本比较下是一样的，也就是当函数的最后一个参数为1时，查找不分大小写。把要查找的字符P的位置赋给变量yczChar。式中Chr(10)是换行符。

6、wz = Instr(1, bssString, yczChar, 0) ：从第一个字符开始，以二进制比较的方式查找，返回值为 9（大写 P的位置）。小写 p 和大写 P 在二进制比较下是不一样的，也就是当函数的最后一个参数为0时，查找分大小写。把查找到的字符P的位置赋给变量wz。

7、wz = Instr(bssString, yczChar) ：上一句也可写成这样的，因为缺省的比对方式为二进制比较（最后一个参数可省略）。第一个参数省略默认从第一个字符开始查找。返回值为 9。

8、wz = Instr(1,bssString, ”W”) ：在被搜索的字符串中查找字符W，由于没找到返回值为0。

InStr 函数

返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

InStr([start, ]string1, string2[, compare])

InStr 函数的语法具有下面的参数：

start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果指定了 compare 参数，则一定要有 start 参数。

string1 必要参数。接受搜索的字符串表达式。

string2 必要参数。被搜索的字符串表达式。

Compare可选参数。指定字符串比较。如果省略 compare，Option Compare 的设置将决定比较的类型。

compare 参数设置为：

常数 值 描述

vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。

vbBinaryCompare 0 执行一个二进制比较。

vbTextCompare 1 执行一个按照原文的比较。

vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库中信息的比较。

&&&&&&&&&&&&&&&&

补充说明：

&&&&&&&&&&&&&&&&

instr(字段,'#',1,2)

函数查找字段中从第1位开始，第2个#位置。

substr(字段,1,查出的位置-1)

截取你想要的

字符串

。

&&&&&&&&&&&&&&&&&

select

substr(字段,1,instr(字段,'#',1,2))

from

表名;

测试log：

[SYS@ora10gr1]

SQL>select

substr('1234#1214124#124141421#',1,instr('1234#1214124#124141421#','#',1,2)-1)

from

dual;

SUBSTR('1234

------------

1234#1214124

[SYS@ora10gr1]

SQL>select

substr('1234#urqosdsdriu#68768#',1,instr('1234#urqosdsdriu#68768#','#',1,2)-1)

from

dual;

SUBSTR('1234#URQ

----------------

1234#urqosdsdriu

---

以上，希望对你有所帮助。

Option Compare 语句

在模块级别中使用，用于声明字符串比较时所用的缺省比较方法。

语法

Option Compare {Binary | Text | Database}

说明

如果使用，则 Option Compare 语句必须写在模块的所有过程之前。

Option Compare 语句为模块指定字符串比较的方法（Binary、Text 或 Database）。如果模块中没有 Option Compare 语句，则缺省的文本比较方法是 Binary。

Option Compare Binary 是根据字符的内部二进制表示而导出的一种排序顺序来进行字符串比较。在 Microsoft Windows 中，排序顺序由代码页确定。典型的二进制排序顺序如下例所示：

A < B < E < Z < a < b < e < z < _ < _ < _ < _ < _ <

Option Compare Text 根据由系统国别确定的一种不区分大小写的文本排序级别来进行字符串比较。当使用 Option Compare Text 对相同字符排序时，会产生下述文本排序级别：

(A=a) < ( _=_) < (B=b) < (E=e) < (_=_) < (Z=z) < (_=_)

Option Compare Database 只能在 Microsoft Access 中使用。当需要字符串比较时，将根据数据库的国别 ID 确定的排序级别进行比较。

InStr 函数是指定一个字符串在另一个字符串中最先出现的位置。

语法：InStr([start,]string1,string2[,compare])

其中：start：可选参数，数字，设置搜索的起点，如果省略，从第一个字符开始搜索。

string1：必要参数，被搜索的字符串。

string2：必要参数，需要搜索的字符串。

compare：可选参数。

compare的参数设置：-1：

0：二进制比较

1：执行原文的比较

2：在Access数据库中执行比较。

例如：A=InStr(2,"ABCDEFG","E")，返回值：5

你的问题是没有高清楚 start 是设置搜索的起点，如果 start > Len(string2)，那么返回值是0，而不是 start > string2 因为一个是数字，一个是字符串，比较式不成立！！！！

二SQL的基本函数

21 关系型数据库SQL命令类别

数据 *** 纵语言：DML: select; insert; delete; update; merge

数据定义语言：DDL: create; alter; drop; truncate; rename; comment

事务控制语言：TCL: commit; rollback; savepoint

数据控制语言：DCL: grant; revoke

22 单行函数与多行函数

单行函数：指一行数据输入，返回一个值得函数。所以查询一个表时，对选择的每一行数据都会返回一个结果。

SQL>select empno,lower(ename) from emp;

多行函数：指多行数据输入，返回一个值得函数。所以对表的群组进行 *** 作，并且每组返回一个结果。（典型的是聚合函数）

SQL>select sum(sal) from emp;

23 单行函数的几种类型

231 字符型函数

lower('SQL Course')----->sql course 返回小写

upper('sql course')----->SQL COURSE 返回大学

initcap('SQL course')-----> Sql Course 每个单字返回首字母大写

concat('good','string')---->good string 拼接 只能拼接2个字符串

substr('String',1,3)---->Str 从第1位开始截取3位数，

演变：只有两个参数的

substr('String',3) 正数第三位起始，得到后面所有字符

substr('String',-2) 倒数第二位，起始，得到最后所有字符

instr('t#i#m#r#a#n#','#') --->找第一个#字符在那个绝对位置，得到的数值

Instr参数经常作为substr的第二个参数值

演变：Instr参数可有四个之多

如select instr('aunfukk','u',-1,1) from dual; 倒数第一个u是哪个位置，结果返回5

length('String')---->6 长度，得到的是数值

length参数又经常作为substr的第三个参数

lpad('first',10,'#39;)左填充

rpad(676768,10,'')右填充

replace('JACK and JUE','J','BL')---->BLACK and BLUE

trim('m' from 'mmtimranm')---->timran 两头截，这里的‘m’是截取集，仅能有一个字符

trim( ' timran ')---->timran 作用是两头去空字符

处理字符串时，利用字符型函数的嵌套组合是非常有效的：

create table customers(cust_name varchar2(20));

insert into customers values('Lex De Hann');

insert into customers values('Renske Ladwig');

insert into customers values('Jose Manuel Urman');

insert into customers values('Joson Malin');

select from customers;

CUST_NAME

--------------------

Lex De Hann

Renske Ladwig

Jose Manuel Urman

Joson Malin

一共四条记录，客户有两个名的，也有三个名的，现在想列出仅有三个名的客户，且第一个名字用号略去

答案之一：

SELECT LPAD(SUBSTR(cust_name,INSTR(cust_name,' ')),LENGTH(cust_name),'') "CUST NAME"

FROM customers

WHERE INSTR(cust_name,' ',1,2)>0;

CUST NAME

------------------------------------------------------------------------------------------------------------------------

De Hann

Manuel Urman

分析：

先用INSTR(cust_name,' ')找出第一个空格的位置，

然后，SUBSTR(cust_name,INSTR(cust_name,' '))从第一个空格开始往后截取字符串到末尾，结果是第一个空格以后所有的字符,

最后，LPAD(SUBSTR(cust_name,INSTR(cust_name,' ')),LENGTH(cust_name),'')用LPAD左填充到cust_name原来的长度，不足的部分用填充，也就是将第一个空格前的位置，用填充。

where后过滤是否有三个名字，INSTR(cust_name, ' ',1,2)从第一个位置，从左往右，查找第二次出现的空格，如果返回非0值，则说明有第二个空格，则有第三个名字。

232 数值型函数

round 对指定的值做四舍五入,round(p,s) s为正数时，表示小数点后要保留的位数，s也可以为负数，但意义不大。

round:按指定精度对十进制数四舍五入,如:round(45923, 1),结果,459

round(45923, 0),结果,46

round(45923, -1),结果,50

trunc 对指定的值取整 trunc(p,s)

trunc:按指定精度截断十进制数,如:trunc(45923, 1),结果,459

trunc(45923),结果,45

trunc(45923, -1),结果, 40

mod 返回除法后的余数

SQL> select mod(100,12) from dual;

233 日期型函数

因为日期在oracle里是以数字形式存储的，所以可对它进行加减运算，计算是以天为单位。

缺省格式：DD-MON-RR

可以表示日期范围：（公元前）4712 至（公元）9999

时间格式

SQL> select to_date('2003-11-04 00:00:00' ,'YYYY-MM-DD HH24:MI:SS') FROM dual;

SQL> select sysdate+2 from dual; 当前时间+2day

SQL> select sysdate+2/24 from dual; 当前时间+2hour

SQL> select sysdate+2/1440 from dual; 当前时间+2分钟

SQL> select (sysdate-hiredate)/7 week from emp; 两个date类型差，结果是以天为整数位的实数。

①MONTHS_BETWEEN 计算两个日期之间的月数

SQL>select months_between('1994-04-01','1992-04-01') mm from dual;

查找emp表中参加工作时间>30年的员工

SQL>select from emp where months_between(sysdate,hiredate)/12>32;

很容易认为单行函数返回的数据类型与函数类型一致，对于数值函数类型而言的确如此，但字符和日期函数可以返回任何数据类型的值。比如instr函数是字符型的，months_between函数是日期型的，但它们返回的都是数值。

②ADD_MONTHS 给日期增加月份

SQL>select hiredate,add_months(hiredate,4) from emp;

③LAST_DAY 日期当前月份的最后一天

SQL>select hiredate,last_day(hiredate) from emp;

④NEXT_DAY NEXT_DAY的第2个参数可以是数字1-7，分别表示周日--周六(考点）

比如要取下一个星期六，则应该是：

SQL>select next_day(sysdate,7) FROM DUAL;

⑤ROUND(p,s)，TRUNC(p,s)在日期中的应用，如何舍入要看具体情况，s是MONTH按30天计，应该是15舍16入，s是YEAR则按6舍7入计算。

SQL>SELECT empno, hiredate,round(hiredate,'MONTH') AS round,trunc(hiredate,'MONTH') AS trunc FROM emp;

SQL>SELECT empno, hiredate, round(hiredate,'YEAR') AS round,trunc(hiredate,'YEAR') AS trunc FROM emp;

234 几个有用的函数和表达式

1）DECODE函数和CASE表达式：

实现sql语句中的条件判断语句，具有类似高级语言中的if-then语句的功能。

decode函数源自oracle, case表达式源自sql标准，实现功能类似，decode语法更简单些。

decode函数用法：

SQL> SELECT job, sal,

decode(job, 'ANALYST', SAL11, 'CLERK', SAL115,'MANAGER', SAL120, SAL) SALARY FROM emp

decode函数的另几种常见用法：

SQL>select ename,job,decode(job,'MANAGER','中层干部') leader from emp;

SQL> select ename,job,comm,decode (comm,null,'nonsale','sale') saleman from emp;

注：单一列处理，共四个参数：含义是：comm 如果为null就取'nonsale，否则取'sale'

SQL> select sal,sign(sal-1500) from emp;

SQL> select ename,decode (sign(sal-1500), 1, 'NORMAL','LOW') as "LEV" from emp;

注：sign()函数根据某个值是0、正数还是负数，分别返回0、1、-1，含义是：工资大于1500,返回1，真取'NORMAL'，假取'LOW'

CASE表达式第一种用法：

SQL> SELECT job, sal,

case job when 'ANALYST' then SAL110

when 'CLERK' then SAL115

when 'MANAGER' then SAL120

else sal end SALARY

FROM emp

CASE表达式第二种用法：

SQL> SELECT job, sal, case

when job='ANALYST' then SAL11

when job='CLERK' then SAL115

when job='MANAGER' then SAL120

else sal end SALARY

FROM emp

以上三种写法结果都是一样的

CASE第二种语法比第一种语法增加了搜索功能。形式上第一种when后跟定值，而第二种还可以使用表达式和比较符。

看一个例子

SQL> SELECT ename,sal,case

when sal>=3000 then '高级'

when sal>=2000 then '中级'

else '低级' end 级别

FROM emp

再看一个例子:使用了复杂的表达式

SQL> SELECT AVG(CASE

WHEN sal BETWEEN 500 AND 1000 AND JOB='CLERK'

THEN sal ELSE null END) "CLERK_SAL"

from emp;

比较;

SQL> select avg(sal) from emp where job='CLERK';

2）DISTINCT(去重)限定词的用法：

distinct貌似多行函数，严格来说它不是函数而是select子句中的一个选项。

SQL> select distinct job from emp; 消除表行重复值。

SQL> select distinct job,deptno from emp; 重复值是后面的字段组合起来考虑的

SQL> select distinct from emp; 消除重复记录

3）sys_context 获取环境上下文的函数（多用于应用环境）

scott远程登录

SQL>select SYS_CONTEXT('USERENV','IP_ADDRESS') from dual;

--------------------------------------------------------------------------------

1921680136

SQL> select sys_context('userenv','sid') from dual;

SYS_CONTEXT('USERENV','SID')

--------------------------------------------------------------------------------

129

SQL> select sys_context('userenv','terminal') from dual;

SYS_CONTEXT('USERENV','TERMINAL')

--------------------------------------------------------------------------------

TIMRAN-222C75E5

the end ！！！

@jackman 共筑美好！

以上就是关于Access数据库转SQL后Instr的问题全部的内容，包括:Access数据库转SQL后Instr的问题、求教EXCEL VBA中，InStr的详细用法。、oracle 函数里有像mysql数据库中的SUBSTRING_INDEX这个函数一样的功能函数吗等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！