create header for datagrid and add data from array to datagrid in VB 6

Question

0.00/5 (No votes)

See more:

I am studying about VB 6.
I have a datagrid in my application and I want to create header for this datagrid and then add data from a array to this datagrid.

Can anybody help me please!
thanks
:doh:

Posted 15-Dec-10 21:09pm

ngthtra

Updated 15-Dec-10 22:11pm

Dalek Dave

v2

Add a Solution

Comments

Dalek Dave 16-Dec-10 4:11am

Edited for Grammar and Spelling.

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Prerak Patel · Answer 1 · 2010-12-16T04:09:00

Solution 2

If your DataGrid is designed to have a single column bound to Field001.
Or you just add the fields in the code below, and populate as per your need.

VB

Sub addArrayToGrid(grid As DataGrid, arr() As String)
    Dim rs As ADODB.Recordset
    'Make a recordset
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    'add your fields
    rs.Fields.Append "Field001", adVarChar, 100
    'Open recordset with no database
    rs.Open , Nothing
    'add your records manually (you do this from array)
    For i = 0 To UBound(arr)
        rs.AddNew
        rs.Fields("Field001").Value = arr(i)
    Next
    'bind to grid
    Set grid.DataSource = rs
End Sub

Posted 16-Dec-10 4:09am

Prerak Patel

Comments

ngthtra 16-Dec-10 23:06pm

thanks prerakpatel very much. your code is very good but If my datagrid have o lot of fields and read data form a file which have may line, and data of each line I will add to datagrid.
so how would this code edited ?

thaks about you help!

ngthtra 16-Dec-10 23:58pm

when I used your code, there are error happen, application show error line"Dim rs As ADODB.Recordset" with message "user-defined type not defined".So how to call your code to perform and fix bug?

Prerak Patel 17-Dec-10 2:15am

You need to add reference to ADODB

ngthtra 17-Dec-10 3:57am

with datagrid is there any property to set aglign center for the fields?

Prerak Patel 17-Dec-10 5:39am

If your problem is solved, mark it as answer.
BTW, datagrid1.Columns(0).Alignment=dbgCenter

ngthtra 20-Dec-10 21:46pm

thanks very much! I resolved it.

**Dalek Dave** · Answer 2 · 2010-12-15T22:13:00

Solution 1

The main problem you are having is in the opening line of your question.

Do not study VB6, nobody supports it.
It is an unloved child and it will not lead to a distinguished career in development.

Put down the dinosaur books and learn VB.Net.

Seriously!

Posted 15-Dec-10 22:13pm

Dalek Dave

Comments

ngthtra 16-Dec-10 5:59am

thanks about your advice but my teacher ask me write a application in VB 6.
I am new programer.
I hope that you will help me!
thaks very much

ngthtra · Answer 3 · 2010-12-16T17:08:00

Solution 3

thanks prerakpatel very much. your code is very good but If my datagrid have o lot of fields and read data form a file which have may line, and data of each line I will add to datagrid.(add for row)
so how would this code edited ?

thaks about you help!

Posted 16-Dec-10 17:08pm

ngthtra

Updated 16-Dec-10 17:52pm

v2

Comments

Prerak Patel 17-Dec-10 2:23am

Don't post comment as an answer.