Postada em 12/04/2006 14:52 hs
Tenho um codigo onde eu me conecto via ODBC em uma base qualquer, listo as tabelas numa Listbox e quando eu clico nessa listbox eu mostro os dados que estam lah. O meu problema esta sendo que depende da ODBC ele me lista apenas os dados da primeira tabela que eu clico e se eu selecionar outra tabela ele simplesmente nao faz nada, como por exemplo numa base Sybase.
Segue abaixo o codigo que fica no evento CLICK da listbox - ele eh que carrega os dados uma DBGRID.
Private Sub List1_Click()
lbTabela = List1.Text
MSRDC1.Refresh
'Mostra os dados na aba Visualizar dados
If dbQuery <> "" Then
txQuery = dbQuery
Else
txQuery = "select * from " & List1.Text
End If
txQuery = "select * from " & List1.Text
MSRDC1.DataSourceName = lbNomeODBC
MSRDC1.Password = dbPassw
MSRDC1.UserName = dbUser
MSRDC1.Sql = txQuery
Set MSRDC1.Resultset = cnODBC.OpenResultset(lbTabela, rdOpenKeyset, rdConcurReadOnly, rdAsyncEnable + rdExecDirect)
Do While MSRDC1.Resultset.StillExecuting
DoEvents
Loop
End Sub
Desde valeu
|
