[RESOLVED] soo confused.

[masfenix]

I am trying to display data from access base.
this is what i have so far.

Dim MyConn As ADODB.Connection
Dim MyRecSet As ADODB.Recordset
Dim strName As String
Dim strAddress As String
Dim strPhone As String
 
 
Private Sub Form_Load()
 
 
MyRecSet.CursorLocation = adUseClient
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/" & "database.mdb;"
 
MyConn.Open
 
Set MyRecSet = MyConn.Execute("SELECT * FROM Patients")
 
End Sub

i want the stuff to display in flexgrid or datagrid.

how do i go about doing that?

[brucevde]

A quick method to simply dump the contents of a recordset into a FlexGrid.

With Me.MSFlexGrid1
    'set the total # rows and columns from the recordset
    'assumes RecordCount is > 0
    .Rows = MyRecSet.RecordCount + .FixedRows
    .Cols = MyRecSet.Fields.Count + .FixedCols
    
    'select all "data" cells (not including any "Fixed" cells)
    .Row = .FixedRows
    .Col = .FixedCols
    .RowSel = .Rows - 1
    .ColSel = .Cols - 1
    
    'move the entire recordset into the grid
    'ensure no fields contain a CRLF 
    'this will not work if the data of a field contains a Tab
    .Clip = Replace(MyRecSet.GetString, vbNewLine, " ")
End With

[masfenix]

it gives me an error.

invalid row value

heres the code

Private Sub Form_Load()
 
 
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/" & "database.mdb;"
MyConn.Open
 
Set MyRecSet = MyConn.Execute("SELECT * FROM Patients")
 
With Form1.MSFlexGrid1
    'set the total # rows and columns from the recordset
    'assumes RecordCount is > 0
    .Rows = MyRecSet.RecordCount + .FixedRows
    .Cols = MyRecSet.Fields.Count + .FixedCols
    
    'select all "data" cells (not including any "Fixed" cells)
    .Row = .FixedRows
    .Col = .FixedCols
    .RowSel = .Rows - 1
    .ColSel = .Cols - 1
    
    'move the entire recordset into the grid
    'ensure no fields contain a CRLF
    'this will not work if the data of a field contains a Tab
    .Clip = Replace(MyRecSet.GetString, vbNewLine, " ")
End With
End Sub

[MartinLiss]

On which line?

[masfenix]

nvmd i figured that out,

but is there a way that if user clicks on a grid, they can edit the value? and the value is automatically changed in the database?

[MartinLiss]

Please pull down the Thread Tools menu and click the Mark Thread Resolved button and then start a new thread for your new question.