62,039
社区成员
发帖
与我相关
我的任务
分享
RS.Open SQL1, db, 3, 2
SSS = RS.RecordCount ' SSS可以得到数据表的全部记录
ReDim DSX(1 TO SSS) '定义数组下标
Do While Not RS.EOF 'Do 循环
XX = XX + 1
DSX(XX) = RS("字段名") '将字段内容存储到数组
RS.MoveNext '移动指针
Loop '退出循环
RS.Close
Set RS = Nothing
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
Dim StrCnn As String
Dim StrSql As String
Dim Cnn As OleDbConnection
Dim Cmd As OleDbCommand
Dim Dr As OleDbDataReader
StrCnn = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" + Server.MapPath("\数据库.mdb")
StrSql = "select * from 数据表"
Cnn = New OleDbConnection(StrCnn)
Cnn.Open()
Cmd = New OleDbCommand(StrSql, Cnn)
Dr = Cmd.ExecuteReader() '至此可以读取数据表中根据条件(条件在StrSql 变量中没有体现出来)的一条记录中所有的字段值
我的意图是:
1、将数据表的所有记录数存储在一个变量中,例如存储在 SSS 这个变量中;
2、将所有记录的值存储在数组中,例如 DSX(XX) 等的数组中。
就这二个问题,的确我目前自己无法解决,希望得到高手的帮助。