[RESOLVED] soo confused.

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

VB Code:

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?

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

VB Code:

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

it gives me an error.

Quote:

---

invalid row value

---

heres the code

VB 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

On which line?

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?

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