VB程序员博客

      strSQl = "select * from students"
     
      Dim rst_student2 As New ADODB.Recordset
      rst_student2.Open strSQl, cnn, adOpenKeyset, adLockOptimistic     
      If rst_student2.RecordCount > 0 Then
            accout_array.ReDim 0, rst_student2.RecordCount - 1, 0, 4
            TDBGrid1.Close True
            i = 0
            rst_student2.MoveFirst
            Do While Not rst_student2.EOF
              accout_array(i, 0) = rst_student2!stuId
              accout_array(i, 1) = rst_student2!stuName
              accout_array(i, 2) = rst_student2!sex
              accout_array(i, 3) = rst_student2!phone
              accout_array(i, 4) = rst_student2!address
              i = i + 1
              rst_student2.MoveNext
            Loop
        TDBGrid1.Array = accout_array
        TDBGrid1.ReBind
        TDBGrid1.Refresh

  在窗体上TDBGrid1显示不了数据。