instr VB和VBS函数
【名称】
InStr
【类别】
字符串函数
【方法】
InStr([start, ]string1, string2[, compare])
【参数】
InStr 函数的语法具有下面的参数：
部分
说明
start
可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1
必要参数。接受搜索的字符串表达式。
string2
必要参数。被搜索的字符串表达式。
Compare
可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。
compare 参数设置为：
常数 值
vbUseCompareOption -1
说明：使用Option Compare 语句设置执行一个比较。
vbBinaryCompare 0
说明：执行一个二进制比较。
vbTextCompare 1
说明：执行一个按照原文的比较。
vbDatabaseCompare 2
说明：仅适用于Microsoft Access，执行一个基于数据库中信息的比较。
【返回值】
返回0、1、2、-1或Null等。
【异常/错误】
无
描述InStr([start, ]string1, string2[, compare])
返回指定一字符串在另一字符串中最先出现的位置。在字符串string1中，从start开始找string2，省略start时从string1头开始找。找不到时，函数值为0。
如果
string1 为零长度
InStr返回 0
string1 为 Null
InStr返回 Null
string2 为零长度
InStr返回 Start 的值
string2 为 Null
InStr返回 Null
string2 找不到
InStr返回 0
在 string1 中找到string2
InStr返回 找到的位置
start 值 > string2 值
InStr返回 0
【示例】
本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。
Dim SearchString, SearchChar, MyPos
SearchString ="XxxxxpxxPhdd" '被搜索的字符串。
SearchChar = "P" ' 要查找字符串。
' 从第4个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)
' 从第4个字符开始，按照原文比较的方式找起。返回值为 9（大写 P）。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)
' 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。
MyPos = Instr(1, SearchString, "W") ' 返回 0。
SQL函数：
INSTR(char1，char2，start，times)：在char1字符串中搜索char2字符串，start为执行搜索的起始位置，times为搜索次数。
返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。
语法
InStr([start, ]string1, string2[, compare])
InStr 函数的语法具有下面的参数：
部分 说明
start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1 必要参数。接受搜索的字符串表达式。
string2 必要参数。被搜索的字符串表达式。
Compare 可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。
设置
compare 参数设置为：
常数 值 描述
vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。
vbBinaryCompare 0 执行一个二进制比较。
vbTextCompare 1 执行一个按照原文的比较。
vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库中信息的比较。
返回值
如果 InStr返回
string1 为零长度 0
string1 为 Null Null
string2 为零长度 Start
string2 为 Null Null
string2 找不到 0
在 string1 中找到string2 找到的位置
start > string2 0
说明
InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置，而不是字符位置。
【示例】
InStr 函数示例
本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。
' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)
' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)
' 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。
MyPos = Instr(1, SearchString, "W") ' 返回 0。
VB insert 的用法,举个例子,详细注释～数据库好难呀!
Insert Into [表名称](字段1{字符}，字段2{数字}) values('我是字段1'，2222)看到没有。{字符}这个表示字段1为字符串 {数字}这个表示字段2为数字 插入的时候字符串字段要用 ' ' 引起来，数字不要。
VB中的insert into语句
语法：INSERT INTO 表名称 VALUES (值1, 值2,...)我们也可以指定所要插入数据的列：INSERT INTO table_name (列1, 列2,...) VALUES (值1, 值2,...)VB的代码中可使用INSERT INTO语句，通过ADO数据对象或ADODC数据控件的属性RecordSource向表格中插入新的行，或者建立新的表。【3】参考：【1...
excel电子表格中如何用vb 语句插入行或单元格
excel电子表格中如何用vb 语句插入行或单元格 Selection.Insert Shift:=xlDown 插入行， Selection.Insert Shift:=xlToRight 插入单元格，向右移 Selection.Insert Shift:=xlDown 插入单元格，向下移 另外告诉你个简单的方法，就是先开启录制新巨集，然后进行，你要的操作，然后开启巨集检视一下原始...
VB insert into 的用法
如客户id是数值型的，附注是日期型，那么就要这样：cn.Execute "insert into 客户信息表(客户ID,公司名称,联系人姓名,公司或部门,联系地址,联系人职称,电话号码,分机,传真号码,电子邮件地址,附注) Values(1234444,'公司名称','联系人姓名','公司或部门','联系地址','联系人职称','电话号码','分机...
VB中insert语句添加记录,执行时么有错误,但查询数据库时记录没有更新...
rs.new rs.fields("用户名").value="xxx"rs.fields("登录时间").value=Format(now,"YYYY年...rs.Update 这样插入新记录。
VB中"insert into 用法,老是出错
规格,产地," & tc & ",客户或供应商名称,发生日期,发生数量,发生数量*" & tc & " from 医药公司流向 where 产品名称= '多糖铁复合物'"1、select后面的字段列表无须加括号，纯属画蛇添足；2、姓名应该是个字符串，所以你想给姓名字段赋值一个固定值（即fzr）时，应该用单引号括起。
用vb实现字符统计
函数应用 1、连接运算 concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn.例：concat(‘11’,'aa’)='11aa’;2、求子串。 Copy(s,I,I) 从字符串s中截取第I个字符开始后的长度为l的子串。例：copy(‘abdag’,2,3)=’bda’3、删除子串。过程 Delete(s,I,l) 从字符串s中删除第I个字符...
vb insert into 问题
insert into book (姓名,公司,职务,手机,电话,传真,地址,备注) values(‘"+Text1.Text+"’，‘“+Text2.Text+”’，……)就这样了 读了text1.text ...的值后，语句是下面这样，语句就正确了 insert into book (姓名,公司...) values('张三','XX公司'...)
VB编程,SQL的数据库,如何实现,添加、修改、删除?
方法一：添加：ADODC.Recordset.ActiveConnection.Execute = “insert into table1...”我个人觉得用adodc最简单!二：dim adorst as new adodb.recordset adorst.AddNew adorst.Fields("adminuser") = txtuser.Text adorst.Fields("adminpsd") = txtuserpsw.Text adorst.Fields("manage") = txtuse...
vb.net中用insert语句向数据库中的多个表插入数据
1，如果是插入完整的一条记录（包括所有字段）INSERT INTO 表名称 VALUES (值1, 值2,...)2，如果插入只包含若干个指定字段（其余字段为空）INSERT INTO table_name (列1, 列2,...) VALUES (值1, 值2,...)另外，你使用了变量，那么应该这样使用："insert into Personal_table ('" & Name...
