SQL Help in Excel

[vijay.vizzu]

Dear All,

Below code works fine for me,and it adds values to drop down one by one. The question can i display the values which are shown in drop down in a range or cell.

[pre]

rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Do While Not rs.EOF
'cmbRequest.AddItem rs.Fields(0)
With Worksheets("Template").Shapes("combo").ControlFormat
.AddItem rs.Fields(0)
End With
rs.MoveNext
Loop
Else
MsgBox "I was not able to find any unique Products.", vbCritical + vbOKOnly
Exit Sub
End If

[/pre]

 

[vijay.vizzu]

I think i solved this problem, by adding for loop inside the do while loop,

[pre]

rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Do While Not rs.EOF
For i = 1 To rs.RecordCount
Range("p" & i).Value = rs.Fields(0)
With Worksheets("Template").Shapes("combo").ControlFormat
.AddItem rs.Fields(0)
End With
rs.MoveNext
Next
Loop
Else
MsgBox "I was not able to find any unique Products.", vbCritical + vbOKOnly
Exit Sub
End If

[/pre]