hello,i have a database.mdb and i want all the fields of the database to be showed in the datagrid.i have an adodb connection and i do not want to use a flexgrid.how can i do this?

Private Sub Form_Load()
    Dim sDate As Date
    Dim eDate As Date    
    sDate = #6/15/2009 6:00:00 PM#
    eDate = #6/15/2009 8:00:00 PM#  
    createDummyBase sDate, eDate, 20, "P1--01"      
End Sub

all the code is in the createDummyBase.
the connection,the recordsets and the database are in the createDummyBase.
the datagrid is in the form load.

Public Sub createDummyBase(ByVal sDate As Date, ByVal eDate As Date, ByVal period As Integer, ByVal nodeId As String)
    Dim cn As adodb.Connection 'opc
    Dim rs As adodb.Recordset
    Dim sqlstr As String
    Dim dbFilename As String
    Dim orig_path, new_path As String
    Dim RunDate As Date
    Dim delDate As Date
    Dim DataGrid As DataGrid
    Dim rs1 As adodb.Recordset
    dbFilename = "Report_" & Format(Now, "MM_YY") & ".mdb"
    If Dir(App.Path & "\data\Report_" & Format(Now, "MM_YY") & ".mdb") <> "" Then
        orig_path = App.Path & "\data\Report_mm_yy.mdb"
        new_path = App.Path & "\data\Report_" & Format(Now, "MM_YY") & ".mdb"
        FileCopy orig_path, new_path
    End If
    Set cn = New adodb.Connection
    cn.ConnectionString = BuildConnectionString(dbFilename)
    Set rs = New adodb.Recordset
    rs.LockType = adLockOptimistic
    Set rs.ActiveConnection = cn
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    rs.Open "Report", cn
    RunDate = sDate
            rs!RecDate = RunDate
            rs!nodeId = nodeId
            rs!BatteryVoltage = findLastValue(RunDate, "BatteryVoltage", nodeId)
            rs!i1 = findLastValue(RunDate, "I1", nodeId)
            rs!i2 = findLastValue(RunDate, "I2", nodeId)
            rs!I3 = findLastValue(RunDate, "I3", nodeId)
            rs!MotorRun = findLastValue(RunDate, "MotorRun", nodeId)
            rs!PowerFactor = findLastValue(RunDate, "PowerFactor", nodeId)
            rs!WaterLevelOK = findLastValue(RunDate, "WaterLevelOK", nodeId)
        RunDate = RunDate + TimeSerial(0, period, 0)       

    Loop Until RunDate > eDate + TimeSerial(0, 0, 1) 
End Sub

the report is the table of the database which has been created.
the fields of the report i want to show them in the datagrid after their creation. any ideas ?please help.. thx

This article has been dead for over six months. Start a new discussion instead.