Postada em 13/10/2010 10:50 hs
Pesssoal, eu não estou conseguindo extrair o ID da tabela.
Não sei porque ele não retorna o ID embora preenche a listbox somente com o recordset Evento, mas preciso tbm do ID.
Set MyDb = DBEngine.Workspaces(0).OpenDatabase(App.Path & "Controles.mdb")
SQL = "SELECT * FROM [tbl_Datas]"
Set rs = MyDb.OpenRecordset(SQL)
If rs.RecordCount > 0 Then
MsgBox IdControle
rs.MoveMin
End If
Do Until rs.EOF
List2.AddItem rs!Evento & vbTab & IdControle
rs.MoveNext
Loop
Ele lê a tabela mostra todos os registros, mas o ID fica com valor nulo.
|
