急急！！！！！

Question

　　　　　
　　　　怎样把用ＳＱＬ语句从数据库中查出的一组数值赋给ＶＢ中的变量（或者说是数组），该怎么做？再把着组数用曲线图画出来，该怎么做？
　　　　谢谢！！！！

Answer 1

把记录集的数据赋给数组可以用GetRows方法

Answer 2

'需要引用ADO(工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）)
Private Sub Command1_Click()
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    Dim i%, j%, arrData As Variant, strTmp As String
    cn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=ljx"
        
    rs.Open "select * from t1", cn, 1, 1
    
    arrData = rs.GetRows  '把数值赋给二维数组
    For i = LBound(arrData, 2) To UBound(arrData, 2)
        strTmp = ""
        For j = LBound(arrData, 1) To UBound(arrData, 1)
            strTmp = strTmp & vbTab & arrData(j, i)
        Next
        Debug.Print strTmp  '打印数组的数据
    Next
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = NothingEnd Sub