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

frownies

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

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

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

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

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

tz-chf

变量=字段

可以从记录集中取，可以是dlookup这种函数。

frownies

首先是谢谢您

在sql中：“select 字段 to 变量 from 表 where 条件” 在Access中如何实现啊？

因为此时还没有读记录，“变量=字段”，变量里有值吗？

“记录集”从哪里来呢？

dlookup只能读一个字段，同时读多个字段用多个dlookup吗？影响速度吗？

不好意思，菜鸟笨啊，能答复得详细一点吗？

tz-chf

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

变量=记录集(0)

大概这个意思

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编辑过]

frownies

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

skylark

To wu8313

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


可以的:

wu8313

谢谢 skylark 的指点。

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

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

cwbfx

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

cwbfx

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