菜鸟请教高人：如何将记录读到变量中啊？

frownies

菜鸟请教高人：如何将记录读到变量中啊？

如何读一个字段到变量中？

如何读多个字段到变量中？

如何读一个字段的各条记录到变量数组中？

菜鸟笨啊，望高人指点哦，急啊，在线等待哦

cwbfx

关于二维数组用什么语句将字段个数计算出来？


怎样将表中数据赋给一个二维数组？


现在急啊！！！！！请高手帮帮忙啊！！！！


下面是我的程序，请高手帮帮忙修改修改,我的表格是

















       年份


种类





1990





1991








鲤鱼





1200吨





1300吨








鲫鱼





1500吨


<TD windowtext 0.5pt solid; PADDING-RIGHT: 5.4pt; BORDER-TOP: #c0c0c0; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; BORDER-LEFT: #c0c0c0; WIDTH: 107.25pt; PADDING-TOP: 0cm; BORDER-BOTTOM:

cwbfx

其实我碰到的问题和frownies的差不多，我的问题是如何用数组调用数据表中的数据，请高人帮帮忙，不胜感激！！！！

cwbfx

我现在是很想弄懂上面的程序，因为我正在写论文

cwbfx

上面的程序我还是看的不太懂

wu8313

谢谢 skylark 的指点。

使用一个表给数组赋值是可以的了。

多维数组的赋值看来应该也差不多的，多几个循环应该是可以的。

skylark

To wu8313

使用ado的方法，虽然取到了记录，可是 怎么 赋给数组却没有成功。我的这个例子，你在完善看看是否可以完成


可以的:

frownies

谢谢高人哦，我好好学习一下。

wu8313

使用ado的方法，虽然取到了记录，可是 怎么 赋给数组却没有成功。我的这个例子，你在完善看看是否可以完成。

Option Compare Database
Option Base 1
Dim myarray() As String  '定义动态数组
Sub try()

''使用ado打开和本地 "类别"表 的连接

Dim rst As New ADODB.Recordset

rst.Open "类别", CurrentProject.Connection, adOpenKeyset, adLockOptimistic  '打开表

'-------------------------------------------------------------------------
Dim m As Integer
Dim i As Integer '使用i在数组中循环

m = DCount("[类别id]", "类别")  '取得数组的最大下标值
ReDim myarray(m) As String      '定义该数组可以使用的最大下标值

For i = 1 To m
    While Not rst.EOF
    myarray(i) = rst("类别名称").Value
    Debug.Print myarray(i) '输出数组中的各个元素
    rst.MoveNext
    Wend
Next i
rst.Close

'验证数组是否被真正赋值
'If myarray(2) = "" Then MsgBox "myarray 这个数组并没有被赋值" + Chr(13) + "ado取得记录只是在内存中,没有交给数组"

Debug.Print myarray(4) & "----------"
Debug.Print myarray(5) & "----------"
Debug.Print myarray(6) & "----------"
Debug.Print myarray(7) & "----------"


End Sub




我想，如果是二维或者多维数组的话，您就需要表中的两列或者多列写入数组。

[此贴子已经被作者于2006-3-18 21:12:59编辑过]

tz-chf

记录集=select 字段 from 表 where 条件

变量=记录集(0)

大概这个意思