LISTAR DADOS DIRETO DA BD
Oi pessoal !!!
tou com uma duvida q eh o seguinte:
como faço para numa list aparecer mts registos da minha bd ???
tenho de percorrer o recordset ou como faço ?
ajudem-me
cumprimentos pessoal
tou com uma duvida q eh o seguinte:
como faço para numa list aparecer mts registos da minha bd ???
tenho de percorrer o recordset ou como faço ?
ajudem-me
cumprimentos pessoal
USA SQL QUE FICA BEM FÃ ÂCIL, TÃ Â AE
SQL="SELECT dados FROM tabela"
SET listar=conexao.EXECUTE(SQL)
IF NOT LISTAR.EOF THEN
DO WHILE NOT LISTAR.EOF
LSTREGISTROS.ADDITEM LISTA("REGISTRO")
LISTA.MOVENEXT
LOOP
ELSE
MSGBOX "NÃO EXISTE NENHUM REGISTRO"
END IF
espero ter ajudado
SQL="SELECT dados FROM tabela"
SET listar=conexao.EXECUTE(SQL)
IF NOT LISTAR.EOF THEN
DO WHILE NOT LISTAR.EOF
LSTREGISTROS.ADDITEM LISTA("REGISTRO")
LISTA.MOVENEXT
LOOP
ELSE
MSGBOX "NÃO EXISTE NENHUM REGISTRO"
END IF
espero ter ajudado
Set con = New Connection
con.CursorLocation = adUseClient
con.Open DB
Dim x As New ADODB.Recordset
sql = "Select nome_disc,epoca,Data From Inscri_Exame"
Set LISTAR = conexao.Execute(sql) ---> aqui da erro (Run-time error '424'; Object Required)
If Not LISTAR.EOF Then
Do While Not LISTAR.EOF
lstnomes.AddItem x("nome")
x.MoveNext
Loop
Else
MsgBox "NÃO EXISTE NENHUM REGISTRO"
End If
q estara errado ???
obrigado
con.CursorLocation = adUseClient
con.Open DB
Dim x As New ADODB.Recordset
sql = "Select nome_disc,epoca,Data From Inscri_Exame"
Set LISTAR = conexao.Execute(sql) ---> aqui da erro (Run-time error '424'; Object Required)
If Not LISTAR.EOF Then
Do While Not LISTAR.EOF
lstnomes.AddItem x("nome")
x.MoveNext
Loop
Else
MsgBox "NÃO EXISTE NENHUM REGISTRO"
End If
q estara errado ???
obrigado
ninguem me pode ajudar ??
data.recorsource = "select * from tabela"
data.refresh
while not data.recordset.eof
list1.additen data.recordset.fields("campo")
data.recordset.movenext
wend
será que é isso?
pois so q eu quando faço" data." no codigo,
n aparece nenhum recordset disponivel
pq ?
cumps
n aparece nenhum recordset disponivel
pq ?
cumps
o q estara errado aqui ?? [S51]
obrigado ppl ja consegui resolver o problema 
ja poso encerrar o topico
ja poso encerrar o topico
Tópico encerrado , respostas não são mais permitidas