Preenchendo Um Flexgrid

[WebOmni]

Ola Pessoal gostaria de saber como eu faço para preencher um flexgrid com os dados encontrados pela minha consulta no banco de dados MYSQL usando SQL,

Leio e leio tutorial e não consigo estou aprendendo vb tem 3 semanas

Aqui o código da minha consulta:

Private Sub Command1_Click()

'**** criando a conexão

Set cnn = CreateObject("ADODB.Connection")

'**** abrindo conexão

cnn.Open "DSN=myconexao"

'**** criando recordset

Set Rs = CreateObject("ADODB.RecordSet")

'**** efetuando conexão do recordset

Set Rs.ActiveConnection = cnn

Set Rs = cnn.Execute("Select nome, senha, endereço, cidade from funcionarios where login = 'paulo' ")

If Rs.EOF = True Then

MsgBox ("Usuário inválido ou Senha!!")

Else

'aqui seria o lugar para o código do preenchimento do flexgrid

'com loop para mostrar todos os registros encontrados

End If

End Sub

Agradeço pela atenção!!!

Li um tutorial na net estou tentando mas ta dando erro na linha

Set Flex.DataSource = Rs

Private Sub Command2_Click()

'**** criando a conexão

Set cnn = CreateObject("ADODB.Connection")

'**** abrindo conexão

cnn.Open "DSN=myconexao"

'**** criando recordset

Set Rs = CreateObject("ADODB.RecordSet")

'**** efetuando conexão do recordset

Set Rs.ActiveConnection = cnn

Set Rs = cnn.Execute("Select nome, senha, endereco, bairro from funcionarios where login = 'paulo' ")

If Rs.EOF = True Then

MsgBox ("Usuário inválido ou Senha!!")

Else

Set Flex.DataSource = Rs

End If

[Graymalkin]

Você está usando a FlexGrid ou a Hierarchical Flexgrid? Porque sendo ADO, para preencher desta maneira, você precisa usar a segunda. A primeira foi feita para ser utilizada com DAO.

Abraços,

Graymalkin

[WebOmni]

Estou usando um componente Msflexgrid, então não da para ser com ele ?

Há agradeço pela atenção Graymalkin !!

[Graymalkin]

Estou usando um componente Msflexgrid, então não da para ser com ele ?

Só se você for preencher manualmente, campo a campo de cada registro. Mas, veja na lista de componentes e você deverá encontrar a "Microsoft Hierarchical FlexGrid Control 6.0" (o nome dela fica MSHFlexgrid no form). A utilização é igual, porém ela aceita ADO.

Abraços,

Graymalkin

[WebOmni]

Então desta maneira teria que dar certo com Hierarchical Flexgrid

pois esta dando erro na linha

"Set Flex.DataSource = Rs"

e me da esta tela aqui

'**** criando a conexão

Set cnn = CreateObject("ADODB.Connection")

'**** abrindo conexão

cnn.Open "DSN=myconexao"

'**** criando recordset

Set Rs = CreateObject("ADODB.RecordSet")

'**** efetuando conexão do recordset

Set Rs.ActiveConnection = cnn

Set Rs = cnn.Execute("Select nome, senha, endereco, bairro from funcionarios where login = 'paulo' ")

If Rs.EOF = True Then

MsgBox ("Usuário inválido ou Senha!!")

Else

Set Flex.DataSource = Rs

End If

[Graymalkin]

Experimente colocar...

Rs.CursorLocation = 3

... logo depois de:

Set Rs.ActiveConnection = cnn

E veja se dá certo.

Ah, e outra coisa que reparei é que você parece estar usando ODBC e não OLEDB. A HFlexGrid foi feita para o OLEDB e não sei se dá certo do jeito que você está fazendo.

Abraços,

Graymalkin