Dim da As New System.Data.OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim adoRs As New ADODB.Recordset
Dim SQLStr As String
SQLStr = "select 企业名称,年度 from info order by 建立时间 DESC"
adoRs.Open(SQLStr, cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic) '记录集
da.Fill(ds, adoRs, "us")
C1FlexGridClassic1.DataSource = ds.Tables("us") |