SQL VB:将查询行存储在DataArray中，但只保存第一行

Dim DataArray() As Variant

' 执行SQL查询语句，将结果存储在DataArray中
' 这里假设执行的是SELECT语句，并将结果存储在DataArray中
' 请根据具体的SQL语句和数据库连接方式进行修改
' 这里仅为示例代码
Dim strSQL As String
strSQL = "SELECT * FROM YourTable"
' 执行查询并将结果存储在DataArray中
' 这里假设使用的是ADODB连接对象和Recordset对象
' 请根据具体的数据库连接方式进行修改
' 这里仅为示例代码
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "YourConnectionString"
rs.Open strSQL, conn
DataArray = rs.GetRows
rs.Close
conn.Close

' 使用DataArray(0)来访问并操作第一行数据
' 这里假设第一列是ID列，第二列是Name列
' 请根据具体的列名和数据类型进行修改
' 这里仅为示例代码
Dim firstID As Integer
Dim firstName As String
firstID = DataArray(0, 0)
firstName = DataArray(1, 0)

' 可以根据需要对第一行数据进行进一步处理或存储
' 例如，可以将第一行数据存储到其他变量中，或将其插入到另一个表中等

' 注意：这里仅提供了一个基本的示例代码，实际应用中需要根据具体情况进行修改和完善。