Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 960

Oct 28th, 2009

Data grid control

Expand Post »

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

Similar Threads

VB.Net 2008 errors with ADO Data control and Data Grid in VB.NET
data grid view in ASP.NET
Showing an empty field in data grid for data entry in Visual Basic 4 / 5 / 6
Retrieve date from Calendar control inside a data grid in ASP
data grid in Visual Basic 4 / 5 / 6

VINOD_2553

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

10 posts
since Oct 2009

Permalink

Oct 28th, 2009

Re: Data grid control

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

vb5prgrmr

Reputation Points: 156

Solved Threads: 296

Posting Virtuoso

Offline

1,670 posts
since Mar 2009

Permalink

Oct 29th, 2009

Re: Data grid control

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

Attached Files

data grid.zip (10.3 KB, 24 views)

abu taher

Reputation Points: 14

Solved Threads: 78

Practically a Posting Shark

Offline

835 posts
since Jul 2008

Permalink

Oct 31st, 2009

Re: Data grid control

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

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

I hope this solves your problem.

AndreRet

Reputation Points: 329

Solved Threads: 347

Senior Poster

Offline

3,700 posts
since Jan 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Checking if not a number help

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: creating lottery interface

DaniWeb Message

Cancel Changes

User Name
Password