ASP用SQL的rs.recordcount定义动态数组

最新推荐文章于 2021-03-03 18:04:04 发布
最新推荐文章于 2021-03-03 18:04:04 发布
阅读量518 收藏
点赞数
分类专栏： ASP 文章标签： sql asp
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/wvtjplh/article/details/3815207
版权

 rs.open sql,conn,1,1
if not rs.eof then
  Dim  myarray()
  Redim  myarray(rs.recordcount-1,1)

  for i=0 to rs.recordcount-1
    total=rs("total")&""
    if len(total)=0 then total=0
    myarray(i,0)=total
    myarray(i,1)=rs("tt")&""
    rs.movenext
  next
  rs.close:  set rs=nothing
  call CloseConn()
else
  '...............................
  response.end
end if

wvtjplh
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
ASP对数据库执行函数,利用数组处理.
zhuoweimeng的专栏
10-23 332
插入记录=========================function SqlInsert(ITableName,IFileldb,IDataBase) For i = Lbound(IFileldb) to Ubound(IFileldb)  If i    If IFileldb(i+1)     IFileldbS = IFileldbS & IFileldb(i) & ","  
mysql recordcount 1_Mysql-自用技巧
weixin_30311179的博客
02-04 182
Mysql查询某个字段(有时候想找某个字段在哪里，但是不知道表名等信息)SELECTTABLE_SCHEMA,TABLE_NAMEFROMinformation_schema.`COLUMNS`WHERECOLUMN_NAME= '要找的表名'理解Left Join, Inner JoinTableAaid adate1a12a23a3TableBbid bdate1b12b24 b4两...
SQL语句及Recordset记录集对象详解
weixin_30555515的博客
08-18 367
1.ASP与Access数据库连接： <%@language=VBscript%> <% dimconn,mdbfile mdbfile=server.mappath("数据库名称.mdb") setconn=server.createobject("adodb.connection") conn.open"driver={microsoftaccess...
Access数据库中查询数组类型字段的ASP代码SQL语法
爱上被爱
11-18 1652
 今天在修改以前开发的一个网站的时候遇到一个问题，因为功能的需要，以前的一个数字类型字段改变为文本字段，因为这个字段需要包含多个类别的ID，以前这个字段只对应一个ID的。 网站是ASP VB语言的，数据库使用的是Access 修改数据类型之后前台的查询代码就不能使用诸如xID=1这种条件了。由于现在该字段变为文本类型，其值为数组格式,如：1,2,3,4,5 之前的sql
mysql recordcount_Filter 和 RecordCount 属性示例 (VB)
weixin_35853254的博客
01-19 324
Filter 和 RecordCount 属性示例 (VB)Filter and RecordCount properties example (VB)09/18/2015本文内容适用于：Access 2013、Office 2013Applies to: Access 2013, Office 2013本示例打开 Pubs 数据库 Publishers(发行商)表上的一个 Recordset。T...
asp与accesssql数据库连接.pdf
07-14
在本文中，我们将探讨 ASP 与 Access 数据库连接的方法、ASP 与 SQL 数据库连接的方法、SQL 常用命令的使用方法、记录集对象的方法等相关知识点。 ASP 与 Access 数据库连接 在 ASP 中，连接 Access 数据库需要...
asp下sql和access数据库随机取10条记录的代码newid()
01-20
select top 10 * from [table] order by newid() ACCESS: 代码如下:‘以利用rs.move嘛 ‘如随机取10条 n = 10 ‘先要判断总记录数是否少于10，若小于10，则有多少取多少 if n>10 rs.recordCount ...
asp最常用的分页函数
01-01
代码如下: rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write “&rsquo;center&rsquo;>还没找到文章” else totalPut=rs.recordcount maxperpage=18 if currentpage currentpage=1>totalput then if ...
asp 横排显示数据
01-02
sql=”select * from serr where order by id asc” set rs=server.createobject(“adodb.recordset”) rs.open sql,conn,1,1 %><style type=”text/css”> <!– body,td,th { font-size: 12px; } –> &lt...
asp简单生成静态的方法(模板标签替换)
01-20
CreateHtml所有文章生成，好用资源大 第一种方法： 代码如下: ‘开始HTML生成...Record From KQIQI_CY Order By KQIQI_ID Desc” Rs.Open Sql,Conn,1,3 Datanum=Rs.Recordcount For i= 1 To Datanum Title=Replace(Rep
asp编写用数组操作数据库记录的函数
firstaking的专栏
12-15 1678
rs_field(),字段名数组，0编号数组为关键字字段rs_type(),字段类型数组 1、整型 2、字符串 3、真值 4、日期时间str_field(),返回记录数组strsql,数据库查询语句str_error，错误提示 ****************************************获得记录sub get_record(rs_colnum,rs_fie
mysql recordcount_[已解决]为什么RecordCount的值为-1??
weixin_35897479的博客
01-19 746
用VBA连接access数据库时，我的代码如下，但是却没有显示出来任何值。[仓库]表不是空的。测试出来的myrs.RecordCount的值为-1，为什么呢？？Sub test()Dim mycon As New ADODB.ConnectionDim myrs As New ADODB.RecordsetDim mystr As String, mysql As Stringmystr = "P...
TSQLQuery.RecordCount不能使用的错误
luxuewei5214的专栏
07-23 348
可能由于DBX的数据是单向的，所以有些限制吧，帮助里是这么说的：Reading RecordCount will generate an exception if the dataset can't determine the number of records. Do not read RecordCount if ??? The dataset represents stored proce...
ado连接sql server怎么使用recordcount？
10-24 587
void Get_Vid() {    ::CoInitialize(NULL);  _ConnectionPtr myconn("ADODB.Connection");  myconn.CreateInstance("ADODB.Connection");  _bstr_t strConnect="Provider=SQLOLEDB;Server=(local);DataBase=m
asp mysql rs.recordcount_关于recordcount等-1的问题
weixin_42157556的博客
03-03 482
1\mssql--asp的rs.recordcount值为负1只有以ADO方式调用数据库才有recordcount这一说，用存储过程需要用select count(*) from table_name自行统计这个说的不对， 存储过程也可以用 ado 来打开，比如：rs.open "exec SomeProc", conn, 1, 3我处理解决的方法是rs.open sql,conn,1,1解决此问...
ASP读取数据库中数据到数组的类
管子（zero）的杂乱空间
06-10 1691
DbPath = "test.mdb"’数据库位置 ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(DbPath) Set Conn = Server.CreateObject("ADODB.Connection") Conn.open ConnStr Class Cl
Private Sub acess() Dim strcnn As String Dim i As Integer Dim SP As String '测有无“D” strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=e:\调试程序\数据库29.mdb;" Set cnn = New ADODB.Connection Set rs = New ADODB.Recordset cnn.CursorLocation = adUseClient cnn.Open strcnn '**************************************************** Set rs.ActiveConnection = cnn rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset strquery = "select * from Parameter" rs.Open strquery If rs.RecordCount > 0 Then n = 1 Do While rs.EOF = False '********************判断每个数是否为阿拉伯数********* SP = "" For i = 1 To Len(Trim(rs.Fields(1))) Select Case Mid((Trim(rs.Fields(1))), i, 1) Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9" SP = SP & Mid((Trim(rs.Fields(1))), i, 1) End Select Next If Mid((Trim(rs.Fields(1))), Len(Trim(rs.Fields(1))), 1) = "D" Then Combo1.AddItem (SP & "D") Else Combo1.AddItem SP n = n + 1 rs.MoveNext Loop End If rs.Close
最新发布
06-06
这段代码的作用是从一个名为“数据库29.mdb”的数据库文件中读取“Parameter”表中的数据，并将表中每一行的第1个字段（rs.Fields(1)）中的数字提取出来，然后将这些数字添加到名为Combo1的组合框控件中。如果这个数字后面跟着一个大写字母“D”，则将“D”一起添加到组合框中。最后关闭记录集（rs.Close）。同时，这段代码还对数字的提取进行了一些处理，排除了其中的非数字字符。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值