语句如下
其中字段是我要修改的字段的名字
我的目的是把数据库中最后面几个字符是txt1.text的字符删除
sql = "update ok set 字段1=mid('" & Trim(字段1) & "','" & Trim(b) & "',len(字段1)-'" & Trim(a) & "') where right('" & Trim(字段1) & "','" & Trim(b) & "')='" & Trim(txt1.Text) & "'"
其中字段是我要修改的字段的名字
我的目的是把数据库中最后面几个字符是txt1.text的字符删除
sql = "update ok set 字段1=mid('" & Trim(字段1) & "','" & Trim(b) & "',len(字段1)-'" & Trim(a) & "') where right('" & Trim(字段1) & "','" & Trim(b) & "')='" & Trim(txt1.Text) & "'"
---------
www.vicmiao.com
努力就有美好时光!
Dim a As Integer
a=Len(Trim(Text1.Text))
sql = "update ok SET 字段1= SUBSTRING(字段1, 1, LEN(字段1)- 1)where
right(字段1,"& a &")='" & Trim(txt1.Text) & "'"这样就可以了,这个sql语句就能实现把字段1中最后面几个字符=text1.text删除
Dim a As Integer
Dim 字段1 As String
字段1="aa"'数据库中的字段名
a=Len(Trim(Text1.Text))
sqlstr = "Update t_okSet " & 字段1 & " = SUBSTRING(" & 字段1 & ", 1, len(" & 字段1 & ") - 1) " & _
"WHERE RIGHT(" & 字段1 & ", " & a & ") = '" & Trim(Text1.Text) & "' "
呵呵,这下楼主应该明白了吧要结贴哈 *^_^*
我已执行就报错
说SUBSTRING没有定义
而不是 LEN(字段1)- 2呢
SUBSTRING ( expression , start , length ) 参数
expression是字符串、二进制字符串、text、image、列或包含列的表达式。不要使用包含聚合函数的表达式。start是一个整数,指定子串的开始位置。length是一个整数,指定子串的长度(要返回的字符数或字节数)。
----------
bcd
vb里面有这个语句么?
我用了
报错啊
你的sqlstr = "... 不是sql语句吗?