Member Avatar for VINOD_2553

Hi i am working on a sotre inventry project.
I just want to fill grid from my ms accsess data base but
i can not understand what i can do
please help me in deeply
it is very urgent

  • 4 Contributors
  • 3 Replies
  • 161 Views
  • 3 Days Discussion Span
  • Latest Post Latest Post by AndreRet
Member Avatar for vb5prgrmr

Conver database to access97 and use the data form wizard, which you can find under Add-ins>Add-In Manager. I would suggest that you run the wizard for each type of form and with each type of data access and save this project for future reference.

Good Luck

Member Avatar for abu taher

plz see it. here the flexgrid will connect with data control by properties>data source.

data_grid.zip (10.33 KB)
Member Avatar for AndreRet

Firstly select MS Datagrid from components. Add the grid to your form and the use the following code -

Private WithEvents cnGrid As ADODB.Connection
Private WithEvents rsGrid As ADODB.Recordset

'In your command button etc. click event add the following

Set rsGrid = New ADODB.Recordset
rsGrid.Open "SELECT * FROM YourTableName ORDER BY YourFieldNameYouWantListedBy", cnGrid, adOpenStatic, adLockOptimistic

If rsGrid.BOF = True Then
    MsgBox "No report to view.", vbOKOnly + vbInformation, "No Report Available"
   
    Exit Sub
ElseIf rsGrid.EOF = True Then
    MsgBox "No report to view.", vbOKOnly + vbInformation, "No Report Available"
       
    Exit Sub
        Else
        
    Set YourDataGridName.DataSource = rsGrid
    
'Set the coloumn width and headings here....    
    rsGrid.Columns(0).Width = 1750
    rsGrid.Columns(1).Width = 3550
    rsGrid.Columns(2).Width = 2150
        
    rsGrid.Columns(0).Caption = "FirstHeadingName"
    rsGrid.Columns(1).Caption = "SeconfHeadingName"
    rsGrid.Columns(2).Caption = "ThirdHeadingName"
    
End If

I hope this solves your problem.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.