Cargar MSHFlexGrid

[PercitoGutierrez]

Hola amigos tengo un problema quiero cargar datos en un FlexGrid.
lo que hago es lo siguiente. he creado un procedure.
CREATE proc sp_Listar_Provincias
as
select * from Provincia
order by CodProvincia asc

GO
a este procedure lo llamo a un clase de la siguiente manera haber si me corrigen si algo estoy haciendo mal.
Public Function ListarTodos() As String
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

With cmd
.ActiveConnection = CadenadeConeccion
.CommandType = adCmdStoredProc
.CommandText = "sp_Listar_Provincias"
ListarTodos = .Execute
End With
Set cmd = Nothing
End Function
el problema es cuando quiero llamarlo desde el formulario
y enlazarlo al FlexGrid con el DataSource.
estoy recien en esto haber si me dan la mano les agradecere muy infinitamente.

[fcdfs]

Yo una vez tuve que hacer un programa llenando un MSHFlexGrid, y luego descubri el DataGrid que era mucho mas eficiente para cargarlo.

Aca te dejo el codigo que use para el MSHFlexGrid, espero que te sirva por lo menos para una idea:

fila = 0
gridnombres.Visible = True

gridnombres.Cols = 4
gridnombres.Row = 0
gridnombres.Col = 0
gridnombres.Text = "1º Nombre"
gridnombres.Col = 1
gridnombres.Text = "2º Nombre"
gridnombres.Col = 2
gridnombres.Text = "1º Apellido"
gridnombres.Col = 3
gridnombres.Text = "2º Apellido"
Do
fila = fila + 1
gridnombres.Rows = fila + 1
gridnombres.Row = Val(fila)
gridnombres.Col = 0
gridnombres.Text = rsAlumno.Fields(2).Value
gridnombres.Col = 1
If rsAlumno.Fields(3).ActualSize = 0 Then
gridnombres.Text = "-"
Else
gridnombres.Text = rsAlumno.Fields(3).Value
End If
gridnombres.Col = 2
gridnombres.Text = rsAlumno.Fields(4).Value
gridnombres.Col = 3
If rsAlumno.Fields(5).ActualSize = 0 Then
gridnombres.Text = "-"
Else
gridnombres.Text = rsAlumno.Fields(5).Value
End If

rsAlumno.MoveNext
If fila >= 2 Then
gridnombres.Cols = gridnombres.Col + 1
End If

Loop Until rsAlumno.EOF


rsAlumno.Close

rsAlumno: era el RecordSet que usaba
gridnombre: era la MSHFlexGrid


Y ya que estoy te dejo el del DataGrid que a mi me hubiese gustado saberlo antes ya que hice esto con 25 MSHFlexGrid y despues me entere de lo del DataGrid...

Buscar = txtBuscar

If rsPersona.State = 1 Then
rsPersona.Close
End If


If optNomb.Value = True Then
SQLBuscar = "SELECT codPers, primNomb, segNomb, primApe, segApe FROM Personas WHERE primNomb LIKE '" & Buscar & "%';"
rsPersona.Open SQLBuscar, dbPrincipal, adOpenKeyset, adLockOptimistic
Set dgUsuario.DataSource = rsPersona
End If

If optApe.Value = True Then
SQLBuscar = "SELECT codpers, primNomb, segNomb, primApe, segApe FROM Personas WHERE primApe LIKE '" & Buscar & "%';"
rsPersona.Open SQLBuscar, dbPrincipal, adOpenKeyset, adLockOptimistic
Set dgUsuario.DataSource = rsPersona
End If
End Sub

Este codigo era para buscar una persona por nombre o por apellido, buscaba solo sin botones usando el evento Change del TextBox

dgUsuario: era el DataGrid.

El % que se encuetra en la cosulta SQL es devido a que cuando tiene una variable no funciona con *.

Espero que te sirvan estos codigos