转vb，有一基础问题请大家帮助！

Question

ado连好了数据库student，数据库中有字段ID和NAME，定义一个记录集Recordset_1,要如何获取记录集中name的值呢？用哪个语句？我定义了一个字符串name_1,想获取记录集中name字段的值。请大家赐教！

Answer 1

name_1 = Recordset_1("NAME").Value

Answer 2

name_1 = Recordset_1("NAME")

Answer 3

cn.open ……
rs.open "select  * from student  ",cn,1,3
do while not rs.eof 
name_1=rs!name
debug.pring name_1
rs.movenext
loop 
set rs=nothing

Answer 4

最好字段名称不要叫Name,改个名称,会冲突!

Answer 5

name_1 = Recordset_1("NAME").Value
or
name_1 = Recordset_1("NAME")
or
name_1 = Recordset_1！NAME

Answer 6

Name可能是关键字，最好改用别的字段名

Answer 7

谢谢大家了，
我的recordset不知道怎么open，郁闷，跟我说说呗？

Answer 8

...
objAdoConn.Open strConn
objAdoRecS.Open strSQL, objAdoConn 
...

Answer 9

name_1 = Recordset_1("NAME").Value
or
name_1 = Recordset_1("NAME")
or
name_1 = Recordset_1！NAME除了这三个还有
name_1 = Recordset_1.Fields("NAME")
name_1 = Recordset_1.Fields("NAME").value
当然还可以用序数如果你的name字段在记录集中处在第2个字段可以把"NAME"都换成1

Answer 10

cn.Open ……
rs.Open "select  NAME(你的字段名) from student  ", cn, 1, 3
    Do While Not rs.EOF
        debug.pring rs(0)
        rs.MoveNext
    Loop
rs.colse
Set rs = Nothing

Answer 11

打开数据后
name_1 = Recordset_1(2)    '2 为第二个字段

Answer 12

Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
 
    Cnn.CursorLocation = adUseClient
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;User ID=admin;Password=;Jet OLEDB:Database Password=密码"  
    Rst.Open "SELECT * FROM 表名", Cnn, adOpenForwardOnly, adLockReadOnly, adCmdText '打开表中所有内容 
   Set DataGrid1.DataSource = Rst  '使用DataGrid控件把数据读入该控件
'name_1只能表中某条数据的值，不能是整个字段的值。所以要加条件打开某条数据然后再付值把
Rst.Open "Select * from 表名 Where Name='" & 变量 & "'" ,cnn, adOpenForwardOnly, adLockReadOnly
name_1 = Recordset_1(2)    '2 为第二个字段

Answer 13

我就支持下大家的工作，水了sorry

Answer 14

'定义
dim name_1() as String 
Dim iRecordnum As Integer   
dim i as Integer     
--------------------------
    
    ReDim name_1(0)      
    
    cn.Open ……
    rs.Open "select  NAME(你的字段名) from student  ", cn, 1, 3
    iRecordnum = rs.RecordCount    for i=1 to  iRecordnum
        ReDim name_1(i)
        name_1(i)=rs.Fields("NAME")
        rs.MoveNext
    next i    Set rs = Nothing
    Set cn = Nothing数据保存在name_1数组中，下标从１开始