Question

请教一个数据库调用问题

原代码是<%=rs("username")%> 我想调用username 去除前两个字符,去除后三个字符,留用中间的几个字符, 如:原来的结果是123456789 调出来的结果为3456 , 代码要如何修改?

Answer 1

百度搜索：百度知道全能营∩销_我为帖狂
自⊙动提问、补充提问、回答、采纳满意答案、自回动切换ID、自动更换IP
全自①动无人值守您便占领百度知道营⊙销！

9302

您在其他编程语言提问的请教一个数据库调用问题 ，希◇望我们的回◎答令您满意！MG

Answer 2

其实这就是一个查询，你可以分几步做：
1、将数据表中第一列的非重复记录加载到combo1中；
dim cn as adodb.connection
sub getData1()
dim rs as adodb.recordset
dim i as integer
dim tsql as string
set cn=new adodb.connection
cn.open "数据库连接"
tsql="select distinct f1 from tabelname order by f1"
set rs=new adodb.recordset
rs.open tsql,cn,1,3
if rs.recourdcount>0 then
rs.movefirst
combo1.clear
for i=1 to rs.recordcount
combo1.additem rs.fields(0),i-1
rs.movenext
next i
end if
set rs=nothing
set cn=nothing
end sub
2、选择combo1触发combo2的内容
sub getData2()
dim v as string
dim tsql as string
v=combo1.seltext
tsql="select f2 from tablename where f1='"+v+"'"
set rs=new adodb.recordset
rs.open tsql,cn,1,3
if rs.recordcount>0 then
rs.movefirst
combo2.clear
for i=1 to rs.recordcount
combo2.additem rs.fields(0),i-1
rs.movenext
next i
end if
set rs=nothing
end sub