记录集用什么来显示?

Question

用datagrid吧
set datagrid.datasource=oRs
datagrid.refresh

Answer 1

如果把所有的记录用代码去生成,那不是我要的命?程序运行一还了得?能不能用邦定的方法?比如:dbgrid1.datasourse=oRs  '这是不可能的,但,我不知是不是有这样的控件

Answer 2

我这样还不行啊:Dim oConn As New ADODB.Connection
Dim oRs As New ADODB.Recordset
Dim strConnStr As String
Dim strDBPath As String
Dim strSQL As String
Private Sub Form_Load()
    strDBPath = App.Path & IIf(Right(App.Path, 1) = "\", "products.mdb", "\products.mdb")
    strConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath
    strSQL = "select * from products"
    
    oConn.ConnectionString = strConnStr
    oConn.Open
    
    oRs.Open strSQL, oConn, adOpenStatic   
    MsgBox oRs.RecordCount '显示为19
    Set DataGrid1.DataSource = oRs
    DataGrid1.Refresh
End Sub

Answer 3

加以下代碼,我都成功了
oconn.CursorLocation = adUseClient