Data Grid: Carregar Via Código

[Andersonjb]

Bem, pessoal, prometo que essa é a ultima, huaauh. Bom, estou tentando carregar uma simples consulta (mas simples meeeesmo) em uma Data Grid. Olhem o código:

Abrindo a conexão:

Public conexao As New ADODB.Connection
conexao.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bd1.mdb;")

Preenchendo a Data Grid:

Dim preenche As New ADODB.Recordset
Dim seleciona As String
seleciona = "SELECT Nome, Endereço, Bairro FROM Funcionários;"
Set preenche = conexao.Execute(seleciona)
Me.DataGrid1.DataSource = conexao
Me.DataGrid1.DataMember = preenche

E o erro:

Method or Data Member not found

Como assim não existe? Tem alguma coisa errada no meu código ou estou errando na atribuição das propriedades da Data Grid?

[Graymalkin]

Na verdade deveria ser:

Me.DataGrid1.DataSource = preenche

Abraços,

Graymalkin

[Andersonjb]

Não foi, Gray... O engraçado é que, usando um Data Enviroment para conectar ao banco de dados e preenchendo o Data Source na caixa de propriedades com o Data Enviroment, os dados aparecem, só em código que não vai.

Alguma opnião?

[Graymalkin]

Não foi, Gray... O engraçado é que, usando um Data Enviroment para conectar ao banco de dados e preenchendo o Data Source na caixa de propriedades com o Data Enviroment, os dados aparecem, só em código que não vai.

Alguma opnião?

Eu sempre fiz via código (nunca usei o DE), e sempre funcionou. Você tem certeza de que você está atribuindo o recordset (preenche) à propriedade DataSource da DataGrid? Porque no seu primeiro código você estava atribuindo a conexão à esta propriedade (o que não é o certo).

Abraços,

Graymalkin

[Andersonjb]

Tenho, olha o código modificado:

Dim preenche As New ADODB.Recordset
Dim seleciona As String
seleciona = "SELECT Nome, Endereço, Bairro FROM Funcionários;"
Set preenche = conexao.Execute(seleciona)
Me.DataGrid1.DataSource = preenche

[Graymalkin]

Mas, dá algum erro ou algo do tipo?

Abraços,

Graymalkin

[kuroi]

então graymalkin, a gente resolveu isso por MSN, faltou o Set na linha:

Set Me.DataGrid1.DataSource = preenche

[Graymalkin]

então graymalkin, a gente resolveu isso por MSN, faltou o Set na linha:

Set Me.DataGrid1.DataSource = preenche

Realmente esqueci do Set, e olha que eu falei dele recentemente (acho que foi via MP). Mas, beleza então! ;)

Abraços,

Graymalkin

[Andersonjb]

Valeew, Gente! To descendo o reio aqui no VB 6 no trampo, obrigado pela ajuda!