请给出详细的信息...

解决方案 »

  1.   

    表格控件,
    主要是DataGrid和MSHflexGrid
      

  2.   

    Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
        Dim Rs   As New ADODB.Recordset
        CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
        CN.Open
        Rs.CursorLocation = adUseClient
        Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
        Set MSHFlexGrid1.DataSource = Rs
      

  3.   

    Dim adoCnn As New ADODB.Connection Dim Rs As New ADODB.Recordset
     adoCnn.CursorLocation = adUseClient
     adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
     Rs.CursorLocation = adUseClient
     Rs.Open "select * from employees", adoCnn, adOpenDynamic, adLockBatchOptimistic
     Set DataGrid1.DataSource = Rs