最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
今天终于受不了再写长长的SQL语句了，写了这一段，改改可成为SQL语句生成函数
时间：2022-06-30 10:25:15 编辑：袖梨 来源：一聚教程网
set rs=server.createobject("adodb.recordset")
on error resume next
sql="select * from your_table"
rs.Open sql, conn
rsname=RS( 0 ).name
for i = 1 to RS.Fields.Count - 1
'rsname=rsname&chr(9)&RS( i ).name
rsname=rsname&","&RS( i ).name
next
rsname=rsname&chr(13)
rs.close
set rs=nothing
conn.close
set conn=nothing
Function e(w)
Dim h
Dim my_array,my_array1
my_array=Split(w,",")
my_array1=Split(w,",")
Dim i
For i=0 To UBound(my_array)
my_array(i)=my_array(i)&"="&chr(39)&chr(34)&Chr(38)&my_array(i)&chr(38)&chr(34)&Chr(39)
Next
For i=0 To UBound(my_array)
my_array1(i)=chr(39)&chr(34)&Chr(38)&my_array1(i)&chr(38)&chr(34)&Chr(39)
Next
e="
"&w&"
"&"update:"&"
"&"update your_table set "& Join(my_array,",")&"where
相关文章
- 歪漫科技漫画最新下载安装-首页地址入口完整内容在线观看 02-24
- 漫蛙manwa2下载安卓最新版安装包_网页官方正版入口一键直达 02-24
- 漫蛙在线最新版本下载安装入口-无需安装直接打开网页阅读免费高清资源 02-24
- 羞羞漫画-无限畅读版下载 02-24
- 漫蛙下载安卓最新版本2024 - 安全无广告官方入口 02-24
- 羞羞漫画-免费在线畅读日韩国漫大全 02-24