ASP代码用的操作access数据库命令语法大全哪里有

Posted 2023-04-25

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了ASP代码用的操作access数据库命令语法大全哪里有相关的知识，希望对你有一定的参考价值。

ASP源代码里面的诸如 Dim 。 oConn.execute 属于哪一类，哪里有详细的教材
如果买书的话，到底买什么书？？

《ASP编程大全》在此谁敢不从！
1.提取字段列表
//<%
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB;Data Source=localhost;" & _
"Initial Catalog=pubs;User ID=sa;Password="
Set rs=cn.Execute("Select * from authors")
While Not rs.EOF
Response.Write rs("au_fname")
rs.MoveNext
Wend
rs.Close
cn.Close
//%>

2.返回数据集函数
Public Function GetData() As ADODB.Recordset
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn=CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB;Data Source=localhost;" & _
"Initial Catalog=pubs;User ID=sa;Password="
Set rs=CreateObject("ADODB.Connection")
rs.LockType=adLockBatchOptimistic
rs.CursorLocation=adUseClient
rs.CursorType=adOpenStatic
rs.Open "Select * from authors",cn
Set rs.ActiveConnection=Nothing
cn.Close
Set cn=Nothing
Set GetData=rs
End Function

3.从XML文件中读取数据

<%
'response.write admoderead & " " & adopenstreamfromurl
'response.End()
set rs = server.CreateObject("adodb.recordset")
Set stmData = Server.CreateObject("ADODB.Stream")
stmData.Charset="gb2312"'这一句很重要，否则会报一个错误。Recordset cannot be created from the specified source. The source file or stream must contain Recordset data in XML or ADTG format.移山祝大家好运^_^

xmbm = request.QueryString("xmbm")
if xmbm = "" then xmbm = "110100001"
Dim result
dim xml, XMLlength
Set DCOMServer = CreateObject("RemObjects.SDK.COMServer")
DCOMServer.MessageType = "TROBINMessage"
DCOMServer.ChannelType = "TROWinInetHTTPChannel"
DCOMServer.SetChannelProperty "TargetURL", "http://192.168.1.119:8089/BIN"
Set DCOMService = DCOMServer.CreateService("DCOMService")
xml = cstr("<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"gb2312"&chr(34)&" ?>" & chr(13)&chr(10))
xml = xml & cstr(DCOMService.GetItem(xmbm))'用于生成XML主体的DCOM服务，实际中请灵活运用。
Set MegaDemoService = nothing
'response.write xml
'response.End()
stmData.Open
stmData.WriteText xml
stmData.SetEOS
'stmData.SaveToFile server.MapPath("zzzz"&session.SessionID&".xml"),2
'response.End()
stmData.Position = 0
rs.open stmData
if not rs.eof then
response.write "<table border = 1 cellpadding=5 cellspacing=0 bordercolor=black style='border-collapse:collapse;'><tr bgcolor='#ddddeee'>"
for each fld in rs.fields
response.write "<td>" & fld.name & "</td>"
next
response.write "</tr>"
do while not rs.eof
response.write "<tr>"
for each fld in rs.fields
response.write "<td>" & fld.value & "</td>"
next
response.write "</tr>"
rs.movenext
loop
end if
rs.close
set rs = nothing
%>
自动显示RecordSet的表格
<script language=jscript runat=server>
// ************************************************************************
// Script Compont Object Model
// Design for Active Server Pages
//
// Copyright 2003 Version 1.0
// Made by 尹曙光
// ************************************************************************

//用于显示一个recordset中的数据,可以指定颜色和样式

//接口函数
function createJDBList()
var objJDBlist=new JDBlist
objJDBlist.create()
return objJDBlist

//类体定义
function JDBlist()

this.AdoRecordSet

this.Width
this.Border
this.Cellspacing
this.Cellpadding
this.Class

this.TitleClass

this.FirstColor
this.SecondColor

this.create=_JDBlist_Create
this.display=_JDBlist_Display

//方法实现
function _JDBlist_Create()

this.AdoRecordSet=""

this.Width="100%"
this.Border="1"
this.Cellspacing="0"
this.Cellpadding="1"
this.Class=""

this.TitleClass=''

this.FirstColor=''
this.SecondColor=''

function _JDBlist_Display()
var htmlDSO = '';
var nFields = this.AdoRecordSet.Fields.Count;
if (nFields)

var n = 0;
htmlDSO += '<' + 'table width="'+this.Width+'" id="'+this.Id+'" Cellspacing="'+this.Cellspacing+'" Cellpadding="'+this.Cellpadding+'" Border="'+this.Border+'" Class="'+this.Class+'">\n';

htmlDSO += '<' + 'tr>';
for (var i=0; i < nFields; i++)

htmlDSO += '<' + 'td class="'+this.TitleClass+'">' + this.AdoRecordSet(i).name + '<' + '/td>';

htmlDSO += '<' + '/tr>\n';

if (!(this.AdoRecordSet.EOF&&this.AdoRecordSet.Bof))
this.AdoRecordSet.MoveFirst()
else
htmlDSO += '<' + 'td colspan="'+nFields+'" align="center">没有数据！<' + '/td>'

var rcc=0
while (!this.AdoRecordSet.EOF)
// add each record to table
if (rcc%2==0)
htmlDSO += '<' + 'tr bgcolor="'+this.FirstColor+'">';
else
htmlDSO += '<' + 'tr bgcolor="'+this.SecondColor+'">';

for (var i=0; i < nFields; i++)

htmlDSO += '<' + 'td >' + this.AdoRecordSet(i).value + '<' + '/td>';

htmlDSO += '<' + '/tr>\n';

this.AdoRecordSet.MoveNext();

rcc++

htmlDSO += '<' + '/table>';

Response.Write(htmlDSO);

</script>

4.把数据写入XML文件
<%
class autoXML
Private xmldoc
Private xmlfile

Sub Class_Initialize()
set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
xmldoc.async = fasle
End Sub

Sub Class_Terminate()
set xmldoc = Nothing
End Sub

Public Property Let filePath(str)
xmlfile = str
End Property

Sub getRs(rs)
dim xmlhead
dim pNode,sNode
dim aNode,tNode
dim tableName
dim rf
dim i
set xmlhead = xmldoc.createProcessingInstruction("xml","version=""1.0"" encoding=""GB2312""")
xmldoc.insertBefore xmlhead,xmldoc.childNodes(0)
tableName = split(rs.Source,chr(32))
set pNode = xmldoc.CreateElement(tableName(3))
xmldoc.appendChild pNode
redim aNode(rs.Fields.Count-1)
do while not rs.eof
set sNode = xmldoc.CreateElement(tableName(3)&"list")
pNode.appendChild sNode
for i=0 to rs.Fields.Count-1
if rs.Fields(i).Name=tableName(3) then
tNode = rs.Fields(i).Name&"Child"
else
tNode = rs.Fields(i).Name
end if
set aNode(i) = xmldoc.CreateElement(tNode)
sNode.appendChild aNode(i)
if rs.Fields(i).value<>"" then
aNode(i).text = rs.Fields(i).value
end if
next
rs.movenext
loop
End Sub

Function saveFile()
on error resume next
xmldoc.save xmlfile
saveFile = (err.number=0)
End Function
End Class
%>
调用，把调用recordset就可以了。
<%
dim conn
set conn = Server.CreateObject("adodb.connection")
conn.open "Provider=Microsoft.jet.oledb.4.0;data source="&Server.MapPath("db.mdb")
dim rs,sql
set rs = Server.CreateObject("adodb.recordset")
sql = "select * from news"
rs.Open sql,conn,3,2

dim ixml
dim xf
set ixml = new autoXML
xf = "test.xml"
ixml.filePath = Server.MapPath(xf)
ixml.getRs(rs)
if ixml.saveFile() then
response.write "<a href=""" & Server.URLEncode(xf) & """>保存完毕</a>"
else
response.write "保存文件错误"
end if
set ixml = Nothing
rs.close
set rs = Nothing
%>

4.1
方法二：
<%
dim strConn,conn,cmd,xmldoc
dim strSql,strQuery,stm
strTableName="test1"

strConn="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=SHISM;password="
set conn=server.CreateObject("adodb.connection")
conn.CursorLocation = 3
conn.Open strConn

function getXml(strQuery,conn)
dim xmldoc,cmd,stm
set cmd=server.CreateObject("adodb.command")
cmd.ActiveConnection=conn

strQuery="<ROOT xmlns:sql='urn:schemas-microsoft-com:xml-sql'><sql:query>" & strQuery & "</sql:query></ROOT>"

set stm=server.CreateObject("adodb.stream")
stm.Open
stm.WriteText strQuery,0
stm.Position=0

cmd.CommandStream=stm
cmd.Dialect = "5D531CB2-E6Ed-11D2-B252-00C04F681B71"

set xmldoc=server.CreateObject("msxml2.domdocument")
cmd.Properties("Output Stream") = xmldoc
cmd.Execute ,,1024
getXml=xmldoc.xml
set cmd=nothing
set xmldoc=nothing
set stm=nothing
end function

strQuery="select * from test1 for xml auto"
Response.Write getXml(strQuery,conn)
%>

4.2
<script language="jscript" runat="server">
var conn = new ActiveXObject("adodb.connection")
conn.open("Provider=Microsoft.jet.oledb.4.0;data source="+Server.MapPath("db.mdb"))
var sql = "select distinct province from allcity"
var rs = conn.Execute(sql)
var xmldoc = new ActiveXObject("Microsoft.XMLDOM")
xmldoc.async = false
var xmlhead = xmldoc.createProcessingInstruction('xml','version="1.0" encoding="GB2312"')
xmldoc.insertBefore(xmlhead,xmldoc.childNodes(0))
var root = xmldoc.createElement("root")
xmldoc.appendChild(root)
do
var province = xmldoc.createElement("province")
province.text = rs("province")
root.appendChild(province)
var osql = "select distinct city from allcity where province='"+rs("province")+"'"
var ors = conn.Execute(osql)
do
var city = xmldoc.createElement("city")
city.text = ors("city")
province.appendChild(city)
var mysql = "select college from allcity where city='"+ors("city")+"'"
var myrs = conn.Execute(mysql)
do
var college = xmldoc.createElement("college")
college.text = myrs("college")
city.appendChild(college)
myrs.movenext()
while(!(myrs.eof||myrs.bof))
myrs.Close()
ors.movenext()
while(!(ors.eof||ors.bof))
ors.Close()
rs.movenext()
while(!(rs.eof||rs.bof))
xmldoc.save(Server.MapPath("allcity.xml"))
Response.Write("创建成功！")
</script>

5.遍历XML文档
<%@ Language=VBScript %>
<% Option Explicit %>
<table border="1"><tr><th>Name</th><th>Number of Songs</th></tr>
<%
Dim objParser,objRoot,objNode,i
Set objParser=Server.CreateObject("MSXML.DOMDocument")
objParser.Load(Server.MapPath(%%1)) //"albums.xml"
Set objRoot=objParser.documentElement
For i=0 To (objRoot.childNodes.length-1)
If objRoot.childNodes.Item(i).baseName="album" Then
Set objNode=objRoot.childNodes.Item(i)
Response.Write "<tr><td>"
Response.Write objNode.getAttribute("name") & "</td><td align='center'>"
Response.Write objNode.childNodes.length
End if
Next
%>
</td></tr>
</table>

6.搜索XML元素
<%@ Language=VBScript %>
<% Option Explicit %>
//<%
Dim objDocument,objRoot,objNode,objNodeList
Set objDocument=Server.CreateObject("MSXML.DOMDocument")
objDocument.Load(Server.MapPath(%%1)) //"albums.xml"
Set objRoot=objDocument.docmentElement
Set objNodeList=objRoot.SelectNodes("//ablum[@artist='" & Request.Form("artist") & "']")
If objNodeList.length=0 Then
Response.Write "No matches"
Else
Response.Write "<table border='1'><tr><th>Album</th><th>Year</th></tr>"
For each objNode in objNodeList
Response.Write "<tr><td>" & objNode.getAttribute("name")
Response.Write "</td><td>" & objNode.getAttribute("releaseDate") & "</td></tr>"
Next
Response.Write "</table>"
End If
End If
//%>

7.下载文件
<%@ Language=VBScript %>
<% Option Explicit %>
//<%
call downloadFile(replace(Request("file"),"",""))

Function downloadFile(strFile)
' make sure you are on the latest MDAC version for this to work
' get full path of specified file
strFilename = server.MapPath(strFile)

' clear the buffer
Response.Buffer = True
Response.Clear

' create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open

' Set as binary
s.Type = 1

' load in the file
on error resume next

' check the file exists
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")
Response.End
end if

' get length of file
Set f = fso.GetFile(strFilename)
intFilelength = f.size

s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
Response.End
end if

' send the headers to the users browser
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"

' output the file to the browser
Response.BinaryWrite s.Read
Response.Flush

' tidy up
s.Close
Set s = Nothing
End Function
//%>

8.调用存储过程查询
<%@ Language=VBScript %>
<% Option Explicit %>
//<%
dim db,conn,myconn
db="/database/product.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open MyConn
dim rs
dim sql
dim keyword
dim choose
keyword=request("keyword") '接收页面传送的值
choose=request("choose")
set rs=server.createobject("adodb.recordset")
sql="exec tse" '用exec执行tse存储过程，把keyword，choose给存储过程传递参数
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write("没有任何记录！")
response.end
end if
response.write"搜索到的记录如下:<br><br>"
do until rs.eof
response.write""&rs("id")&":"&rs("title")&"" '打印出文章的ID和标题
response.write"<br><br>"
rs.movenext
loop
'打扫战场
rs.close
conn.close
set rs=nothing
set conn = nothing
//%>

9.参数存储过程查询
'存储过程：
'在SQL中建立dbo.tse存储过程
CREATE PROCEDURE [dbo].[tse]
@keyword varchar(20)=null, '定义查询的关键字
@choose int=null '定义查询的类型（1为查询列title,其他为content）
as
if @choose=1
select * from web where title like @keyword + '%'
else
select * from web where content like @keyword + '%'
return
GO
'list.asp页
<%@ Language=VBScript %>
<% Option Explicit %>
//<%
dim db,conn,myconn
db="/database/product.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open MyConn
dim rs
dim sql
dim keyword
dim choose
keyword=request("keyword") '接收页面传送的值
choose=request("choose")
set rs=server.createobject("adodb.recordset")
sql="exec tse '"&keyword&"',"&choose&"" '用exec执行tse存储过程，把keyword，choose给存储过程传递参数
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write("没有任何记录！")
response.end
end if
response.write"搜索到的记录如下:<br><br>"
do until rs.eof
response.write""&rs("id")&":"&rs("title")&"" '打印出文章的ID和标题
response.write"<br><br>"
rs.movenext
loop
'打扫战场
rs.close
conn.close
set rs=nothing
set conn = nothing
//%> 参考技术A ACCESS执行的是ANSI SQL标准,你可以查询相关的SQL语法可知道.

SQL语法有二类
数据库操作语法:
create table
create view
alter table修改
等等
数据库安全语法:
包含授权与回收权限等
数据操作语法:
select
update
insert
等
事务处理语法:
ACCESS不支持,所以不需要再看了!

所以你应该去学的是SQL,记着如果是ACCESS时,使用ANSI SQL,Trans-SQL是不支持ACCESS的,虽然两者的差别很小!大多数时间语句是相同的,但毕竞不是一个语法标准. 参考技术B 好象没这样的东西吧,不管什么代码操作accsee数据库主要就四种命令:
SELECT 查询
UPDATE 更新
DELETE 删除
INSERT 插入
这四种命令都属于SQL语言,学一下SQL语法就行了参考技术C 买一两本入门的书，学习吧

MongoDB 语法大全

前言

如果您觉得有用的话，记得给博主点个赞，评论，收藏一键三连啊，写作不易啊^ _ ^。
而且听说点赞的人每天的运气都不会太差，实在白嫖的话，那欢迎常来啊!!!

MongoDB 语法大全

01、mongodb 数据库链接

格式:mongodb:// [username:password@]host1[:port1][,host2[:port2],…[,hostN[:portN]]][/[database][?options]]

其中mongodb:// 是必须要有的。
username:password@ : -可选项如果设置，链接数据库服务后会尝试登录该数据库
database :-可选项如果指定username:password@ 链接验证指定数据库，不指定链接test数据库
options :链接选项，如果不使用database 前面需加上/，所有链接选项都是键值对name=value，多个选项时，以&或;分隔。

02、help查看命令提示

help();
db.help();
db.新建集合.help();
例子:db.yangzhenyu.help();

03、如果数据库存在，则切换到指定的数据库；如果数据库不存在，则创建数据库

use 数据库名;
use yangzhenyu

04、查询所有的数据库

// 01 插入一条数据，否则show dbs;不显示
db.yangzhenyu.insert("name":"hello world!!!");
// 02 查询所有数据库
show dbs;

05、查看当前数据库

db;或者 db.getName();

05::01 查看当前数据库状态

db.stats();

05::02 查看当前数据库版本

db.version();

05::03 查看当前数据库链接机器

db.getMongo();

06、插入

db.集合.insert();
在mongoDB中，不需要主动创建集合，当你插入文档时会自动创建
db.yangzhenyu.insert("xxx":"yang","age":"27","yyy":"zhenyu");

07、查询

07::01 查询

db.集合.find()
db.yangzhenyu.find();

07::02 查询只返回一条数据

db.集合.findOne();
db.yangzhenyu.findOne()

07::03 条件and查询

db.集合.find("key1":"name1","key2","name2");
db.yangzhenyu.find("xxx":"yang","age":"27")

07::04 条件or查询

db.集合.find(
   $or:[
      "key1":"name1","key2":"name2"
   ]
)

db.yangzhenyu.find(
$or:[
"name":"hello world!!!", "age":"27"
]
)

07::05 条件and 和 or 查询

db.集合.find(
   "key0":"name0",
   $or:[
      "key1":"name1","key2":"name2"
   ]
)
相当于: key0=name0 and (key1=name1 or key2=name2)
db.yangzhenyu.find(
"age":"27",
$or:[
"name":"hello world!!!", "age":"27"
]
)

07::06 条件操作符查询


>	大于	$gt
<	小于	$lt
>=	大于等于	$gte
<=	小于等于	$lte
!=	不等于	$ne

db.yangzhenyu.find(
"age":$gt:"26"

);

07::07 模糊查询

db.集合.find("字段":/查询内容/);

// 模糊查询-包含2
db.yangzhenyu.find(
"age":/2/
);

// 模糊查询-以2开头
db.yangzhenyu.find(
"age":/^2/
);

//模糊查询-小写kul
db.yangzhenyu.find(
"yyy":/kul/
);

//模糊查询-忽略大小写
db.yangzhenyu.find(
"yyy":/kul/i
);

07::08 $type 操作符查询

$type操作符是基于BSON类型来检索集合中匹配的数据类型，并返回结果
准备:
创建集合typeTest，并插入两条数据
db.typeTest.insert("name":"yangzhenyu","age":"27");
db.typeTest.insert("name":"yangzhenyu","age":27);
查询:
db.typeTest.find();

查询age字段为String的数据
db.yzyTest.find("age":
$type:'string'
);

查询age字段为int的数据
db.typeTest.find("age":
$type:'int'
);

07::09 去重某列重复数据查询

db.yangzhenyu.find();

age字段 去重查询:
db.yangzhenyu.distinct("age");

07::10、in、not in 查询

in查询:
db.集合.find(
_id:$in:["no1","no2"]
);
not in 查询
db.集合.find(
_id:$nin:["no1"]
);

07::11 指定字段返回

db.yzy.find(,name:1);
db.集合.find(
query,
projection
)
projection: 指定返回字段
格式: 字段1:1,字段2:1

08、排序

08::01、升序

查询集合.sort(字段名:1)
db.yangzhenyu.find().sort(age:1)

08::02、降序

查询集合.sort(字段名:-1)
db.yangzhenyu.find().sort(age:-1)

09、查询前3条数据

查询集合.limit(3);
db.yangzhenyu.find().limit(3);

10、查询3条以后数据

查询集合.skip(3);
db.yangzhenyu.find().skip(3);

11、分页

查询集合.limit(pagesize).skip(第几页的pagesize);
//limit相当于pagesize skip相当于第几页的pagesize
1-3
db.yangzhenyu.find().limit(3).skip(0);

3-6
db.yangzhenyu.find().limit(3).skip(3);

6-9
db.yangzhenyu.find().limit(3).skip(6);

相当于mysql的limit函数

12、查询当前集合总数

查询集合.count();
db.yangzhenyu.find().count();

13、删除当前数据库

db.dropDatabase();

14、新建集合

//创建固定集合
db.createCollection("yzyTest",
capped:true,size:6142800,max:1000

);
capped - 如果为true，则创建固定集合。固定集合是指有着固定大小的集合，当达到最大值，会自动覆盖最早的文档，当值为true时，必须指定size参数。
size - 为固定集合指定一个最大值，即字节数。
max - 指定固定集合中包含文档的最大数量。
注:在插入文档时，mongoDB首先检查固定集合的size字段，然后检查max字段。
//查看已有集合
show collections;

//在mongoDB中，不需要主动创建，当你插入文档时会自动创建
db.yzyTest1.insert("name":"yangzhenyu","age":"27")
//查看已有集合
show collections;

15、删除集合

db.集合.drop();
db.yzyTest1.drop();
//查看已有集合
show collections;

16、获取当前db指定名称的聚集集合

db.getCollection("yzyTest");

17、获取当前db所有聚集集合

db.getCollectionNames();

18、查询当前集合数量

db.yzyTest.count();

19、查询当前集合的数据空间大小

db.yzyTest.dataSize();

20、查询当前集合总大小

db.yzyTest.totalSize();

21、查询当前集合存储空间大小

db.yzyTest.storageSize();

22、集合重命名

db.yzyTest.renameCollection("yzyRenameTest");

show collections;

23、查询当前集合所在数据库

db.yzyRenameTest.getDB();

24、插入语法

//插入一条数据
db.集合.insertOne(_id:"01",name:"yang",age:"12");
//插入多条
db.集合.insertMany([_id:"02",name:"yang",age:"12",_id:"03",name:"yang",age:"12"])

25、修改

25::01、修改集合中现有的文档

db.集合.update(
  <query>,
  <update>
)
query  :update的查询条件，即where后的语句条件;
update  : 更新值，也可理解为sql update中set后面的语句;
注:默认只更新找到的第一条；

例子:
db.yzy.find();

//只更新找到的第一条
db.yzy.update(age:"12",$set:age:"13");
db.yzy.find();

25::02、根据过滤器更新集合中的单个文档

实例:
db.yzy.find();

db.yzy.updateOne(age:"12",$set:age:"13");
db.yzy.find();

25::03、更新与集合指定的筛选器匹配的所有文档

db.yzy.find();

db.yzy.updateMany(age:"12",$set:age:"13");
db.yzy.find();

26、删除

从集合中删除单个文档
db.yzy.deleteOne(age:"13")

从集合中删除与筛选器匹配的所有文档
db.yzy.deleteMany(age:"13")

27、for循环

db.yzy.find().forEach(
    function(item)
        if(item.age >= 12)
           db.yzy.updateOne(age:item.age,$set:age:"13");
        
    
)

28、新建普通，复合，唯一索引、查询，删除索引

//查询当前db所有聚集索引
db.printCollectionStats();
//创建普通索引
//db.集合.ensureIndex(字段名:1) 1表示升序、-1表示降序 升序、降序对单索引没有影响，对复合索引有影响
db.yzy.ensureIndex("name":1);

//创建复合索引
//db.集合.ensureIndex(字段1名:1,字段2名:1)
db.yzy.ensureIndex("name":1,"age":1);

//创建唯一索引
//db.集合.ensureIndex(字段名:1) 1表示升序、-1表示降序
db.yzy.ensureIndex("age":1,"unique":true);

//删除索引
//db.集合.dropIndex(字段名:1);
db.yzy.dropIndex("name":1);

//查询当前集合所有索引
//db.集合.getIndexes()
db.yzy.getIndexes();

29、添加用户

db.createUser( 
	user: "sa",
	pwd: "sa",
	roles: [  role: "root", db: "admin"  ]
);

以上是关于ASP代码用的操作access数据库命令语法大全哪里有的主要内容，如果未能解决你的问题，请参考以下文章

其中哪一个更适合论坛的 ASP.NET Access 数据库[关闭]

asp做的网站，数据库从access转为sql后，都有哪些数据类型需要修改？

如何用vba代码将access数据库连接求代码?

asp代码执行cmd命令

asp取access数据库里本周、本月、本季度的记录，select语句怎么写？

ASP语法错误 (操作符丢失) 在查询表达式 'PaperId=' 中。