display data to datagrid

[WhiteShore]

hey there..
i want to display my data that only has the same "gender" to the datagrid.

    Dim rs6 As New ADODB.Recordset
 
    With rs6
        .ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dbname & ";Persist Security Info=False"
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .CursorType = adOpenStatic
        .Source = "SELECT * FROM Data WHERE Gender = '" & comboGender.Text & "'"
        .Open
 
        dgData.Columns(0).Value = .Fields(0).Value
        dgData.Columns(1).Value = .Fields(1).Value

for my code it only show 1 record, though there's 10 records in database.
what code that i miss?
thanks in advance.. =)

[QVeen72]

hI,

Check This :

 
    Dim rs6 As New ADODB.Recordset    
    With rs6
        .ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dbname & ";Persist Security Info=False"
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .CursorType = adOpenStatic
        .Source = "SELECT * FROM Data WHERE Gender = '" & comboGender.Text & "'"
        .Open        
        Set dgData.DataSource = rs6
        dgData.Refresh
     End With
 

Regards
Veena

[WhiteShore]

To Mr/Ms. Veena,
thanks for the code,
it works..
but what about if i want to hide other's column?
that's why i using this code before

dgData.Columns(0).Value = .Fields(0).Value
dgData.Columns(1).Value = .Fields(1).Value

Thanks...

[QVeen72]

Hi,

To Hide 3rd Column:(Index Starts From 0)

dgData.Columns(2).Width=0
 

Regards
Ms. Veena

[WhiteShore]

To Ms.Veena,
forgive me if i still ask the same question
if i want to display only column 0 and 1,
because for column 3 i will add the data myself
so i cant Set dgData.DataSource = rs6 because it displayed whole data

sorry for keeping asking the same question..
thanks in advance..

[QVeen72]

To Ms.Veena,
forgive me if i still ask the same question
if i want to display only column 0 and 1,
because for column 3 i will add the data myself
so i cant Set dgData.DataSource = rs6 because it displayed whole data

Hi,
Either of these commands will Hide the Third Column :

dgData.Columns(2).Visible = False
Or
dgData.Columns(2).Width = 0

And you can very well use :
Set dgData.DataSource = rs6
As Recordset Object has the Column Data,
Onlything here is Physically, the Column is Hidden, (But Underlying Column in datagrid is Intact)

ColumnWidth / Visible has to be done after the "Set" command..

Regards
Veena