INFORMACOES NO COMBOLIST

USUARIO.EXCLUIDOS 29/03/2004 07:05:47
#17396

ou usa o DISTINCT

Select DISTINCT Nome from Tabela

Abraços,

USUARIO.EXCLUIDOS 30/03/2004 11:08:02
#17582 Resposta escolhida

Dim conn as adodb.connection
Dim rs as adodb.recordset

set conn=new adodb.connection
conn.open "StringDeConexao"

set rs=new adodb.recordset
rs.CursorLocation=adUseClient
rs.open "SELECT DISTINCT Nome FROM Clientes ORDER BY Nome",Conn,adOpenDynamic, adLockOptimistic

rs.movefirst

do while not rs.eof

combo1.additem rs("Nome")

rs.movenext
loop

rs.close
conn.close

set conn=nothing



Abraços,