往datagrid添加数据，能不能一行一行添加？

Question

应该如何加呢？谢谢谢谢

Answer 1

一行一行添加？怎么你不是一行一行添加 那是怎么样添加的！
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source="c:\dev.mdb"
db.Open
rs.CursorLocation = adUseClient '
rs.Open "userTable", db, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!Name = "xxxxxxx"
rs!Password = "ssssss"
rs.Update
MsgBox "yes"
End Sub

Answer 2

datagrid我不知道，msflexgrid是可以。

Answer 3

'引用ADO2.X
Private Sub Form_Load()
    Dim adoRecordset As ADODB.Recordset
    Set adoRecordset = New ADODB.Recordset
    Dim i As Integer
    For i = 0 To 2 '为Recordset三个字段,即为 DataGrid 添加三列
    adoRecordset.Fields.Append "第" & i & "列", adVariant, adFldMayBeNull, adFldIsNullable + adFldUpdatable
    Next i
    adoRecordset.Open
    For i = 0 To 3
    adoRecordset.AddNew '加四条记录,即为 DataGrid 添加四空行
    Next i
    Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
    adoRecordset.MoveFirst
End Sub