DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Data grid control

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Oct 2009

Posts: 2

Reputation: VINOD_2553 is an unknown quantity at this point

Solved Threads: 0

VINOD_2553 VINOD_2553 is offline

Offline

Newbie Poster

Data grid control

Oct 28th, 2009

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

•

Join Date: Mar 2009

Posts: 837

Reputation: vb5prgrmr will become famous soon enough

Solved Threads: 153

vb5prgrmr

Offline

Practically a Posting Shark

Oct 28th, 2009

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

If anyone has helped you solve your problem, please mark your thread as solved.

Thanks

•

Join Date: Jul 2008

Posts: 472

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 24

abu taher

Offline

Posting Pro in Training

Oct 29th, 2009

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

Attached Files

data grid.zip (10.3 KB, 7 views)

I like sword. Attack or Defense.

•

Join Date: Jan 2008

Posts: 253

Reputation: AndreRet is an unknown quantity at this point

Solved Threads: 36

AndreRet

Offline

Posting Whiz in Training

Oct 31st, 2009

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

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
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
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