Início
rreennaan 24/11/2014, 14:41Boa Tarde Pessoal!
Tenho um back-end com uma consulta lá dentro chamada CNSFuncis.
Preciso de uma solução para executar esta consulta lá dentro do banco e me retornar os resultados para uma listbox.
Ao que parece, o código abaixo conecta e executa a consulta, porém, não consigo mostrar o recordset para listbox.
Tentei conforme abaixo mas não deu certo.
Tentei fazendo um loop, usando a propriedade List do listbox, porém me informa me dá uma mensagem de método não encontrado.
Tentei fazendo um loop, usando a propriedade Column, e também não funcionou..
Alguém pode me ajudar?
Grato!
----------------------------------------------------------------------------
Option Compare Database
Option Explicit
Dim cnn As ADODB.Connection
Dim strConn As String
Dim strSQL As String
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
Private Sub BOTAO_Click()
Call ExecutarStoredProc
End Sub
Sub conectar()
Set cnn = New ADODB.Connection
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data source=C:\Bd\ParcBD.mdb"
Let cnn.ConnectionString = strConn
cnn.Open strConn
End Sub
Sub ExecutarStoredProc()
Call conectar
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = cnn
.CommandText = "EXECUTE CNSFuncis" ' => nome da consulta salva do bdaccess
End With
Set rst = cmd.Execute
With Me.LISTA
.RowSourceType = "Table/Query"
.ColumnCount = rst.Fields.Count
========= Aqui não consigo jogar para a listbox
.Recordset = rst
.Requery
End With
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub
Tenho um back-end com uma consulta lá dentro chamada CNSFuncis.
Preciso de uma solução para executar esta consulta lá dentro do banco e me retornar os resultados para uma listbox.
Ao que parece, o código abaixo conecta e executa a consulta, porém, não consigo mostrar o recordset para listbox.
Tentei conforme abaixo mas não deu certo.
Tentei fazendo um loop, usando a propriedade List do listbox, porém me informa me dá uma mensagem de método não encontrado.
Tentei fazendo um loop, usando a propriedade Column, e também não funcionou..
Alguém pode me ajudar?
Grato!
----------------------------------------------------------------------------
Option Compare Database
Option Explicit
Dim cnn As ADODB.Connection
Dim strConn As String
Dim strSQL As String
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
Private Sub BOTAO_Click()
Call ExecutarStoredProc
End Sub
Sub conectar()
Set cnn = New ADODB.Connection
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data source=C:\Bd\ParcBD.mdb"
Let cnn.ConnectionString = strConn
cnn.Open strConn
End Sub
Sub ExecutarStoredProc()
Call conectar
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = cnn
.CommandText = "EXECUTE CNSFuncis" ' => nome da consulta salva do bdaccess
End With
Set rst = cmd.Execute
With Me.LISTA
.RowSourceType = "Table/Query"
.ColumnCount = rst.Fields.Count
========= Aqui não consigo jogar para a listbox
.Recordset = rst
.Requery
End With
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub
