Exibir consulta seleção em MsgBox?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Exibir consulta seleção em MsgBox?

justicar

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 04/06/2008 12:46 hs

Olá amigos,

eu sei que é plenamente possível exibir o resultado único de uma consulta com total em uma MsgBox, a minha dúvida é:

Como fazer que sejam exibidos os vários resultados de uma consulta seleção ( sem totais ) em uma única MsgBox?

Se alguém souber que não seja possível fazer isso, por favor me diga e se souber outros meios que não esse, através de objetos temporários, também serve, pois preciso disso com urgência!

Meu Banco é Access e tô usando o editor de vb dele.

abraço a todos.

Treze
não registrado

ENUNCIADA !

Postada em 04/06/2008 12:55 hs

declare uma string e insira na msgbox veja um exemplo

Private Sub Command1_Click()

dim Lista as string

for f=1 to 20

lista=lista & chr(13) + chr(10) & "item " & format(f,"00")

next f

msgbox lista

End Sub

faça um teste e veja se é isto que deseja

justicar
não registrado

Postada em 04/06/2008 19:05 hs

cara perfeito.

ï¿½ justamente isso, mas ele tï¿½ me mostrando a contagem de 1 a 20 e eu quero fazer isso com os registros filtrados do banco.

abraï¿½o.

Treze
não registrado

Postada em 04/06/2008 19:25 hs

eu coloquei de 01 a 20 para teste bom você deverá fazer sua adptação, por exemplo como você faz a consulta de um banco posta pra mim que faço aadptação pra você

exemplo básico

dim Lista as string

SQL="SELECT * FROM tabela WHERE idade=10"

rs.execute sql

Do While Not rs.EOF

lista=lista & chr(13) + chr(10) & "item " & rs.filed("nome")

rs.MoveNext

Loop

Msgbox lista

no exemplo postado acima será feita a pesquisa em uma tabela onde a idade é igual a 10 anos

exibindo um resultado igual a este

Marcelo

Justificar

João

Pedro

Etc

espero tenha fcado mais fácil a compreensão

justicar
não registrado

Postada em 04/06/2008 22:55 hs

amigo,

ficou assim

Private Sub Comando60_Click()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim lista As String
Dim data1, data2 As String
Dim Titulo, Padrao

Set db = CurrentDb()

Titulo = "Filtrando por Datas"
Padrao = "Insira data aqui, entre /.  Exemplo xx/xx/xx"
data1 = InputBox("Informe data inicial", Titulo, Padrao, 3000, 3000)
data2 = InputBox("Informe data final", Titulo, Padrao, 3000, 3000)

SQL = "SELECT * FROM ordem" _
    & " WHERE data_os" _
    & " BETWEEN #" & Format((DateAdd("d", -1, data1)), "mm/dd/yyyy") & "#" _
    & " AND #" & Format((DateAdd("d", 1, data2)), "mm/dd/yyyy") & "#;"

rs.Execute SQL

Do While Not rs.EOF
lista = lista & Chr(13) + Chr(10) & "item " & rs.filed("registro_os")

rs.MoveNext

Loop

msgbox lista

End Sub

tá dando erro no rs.execute e no rs.filed, esses comandos não aparecem para mim quando eu dou o ponto depois do rs (.execute e .filed). eu to usando o editor vb do access.

abraço e obrigado pela força.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR