AJUDA COM BD MYSQL

KURTGU 05/09/2011 15:34:20
#383418
Pessoal em uma aplicacao minha tenho um sistema que puxar algumas fotos de um bd mysql mais por ser muitas fotos gostaria de criar um sistema de paginas, como funcionaria a cada click no botao avancar ele tira os 20 itens e adiciono os proximos 20 itens e no botao voltar a mesma coisa gostaria de saber como e possivel, o fernando vULGO KrazyBeat me ajudou criando o sistema em abas mais o layout nao ficou legal tentei portar para outro jeito e nao conseguir gostaria de saber se alguem sabe como fazer isso?

KURTGU 05/09/2011 15:55:28
#383426
pra limpar o flowlayout panel e simples ehhehehehehehe gostaria de saber como faco pra adicionar os 20 seguintes e retorna os 20 anteriores?
KURTGU 05/09/2011 16:33:25
#383439
upppppppppppppppppppppppppppppppppppppppp........................
RXGOMES 05/09/2011 16:34:12
#383440
Isso acho que vai te ajuda

Select * from Tabela Limit 120,40

onde 120 é o registro inicial e o 40 é a quantidade de registro a ser exibida

para a próxima página fica assim

Select * from Tabela Limit 140,40
KURTGU 05/09/2011 16:39:25
#383441
vlw vo da uma olhada aqui e ja posto....
KURTGU 05/09/2011 16:45:14
#383444
opa isso ajudou blz so uma pergunta cara to chamando minhas fotos dessa forma abaixo como poderia fazer isso tipo ele fazer um count total e adicionar conforme a quantidade, tipo por que se nao irei ter que fazer varuas sub tipo pra ir aumentando???? nao entendi como poderia montar uma sub pra ir passando por paginas teria como voce me da uma forca ou explicar...?

Public Sub Listar_todososjogospc()
Connectarpc()
mycomando = New MySql.Data.MySqlClient.MySqlCommand([Ô]Select * from fotos order by foto Limit 120,20[Ô], myconexao)
mydata = mycomando.ExecuteReader()
If mydata.HasRows = True Then
While mydata.Read
Dim IMAGEM As New kpciture
Form1.FlowLayoutPanel1.Controls.Add(IMAGEM)
IMAGEM.PictureBox1.ImageLocation = mydata.Item([Ô]foto[Ô])
Form1.Label1.Text = Form1.FlowLayoutPanel1.Controls.Count
End While
End If
Desconnectarpc()
End Sub
KURTGU 05/09/2011 23:42:42
#383487
alguem?
RXGOMES 06/09/2011 13:53:09
#383539
Bom alógica é mais ou menos assim

1º Armazenar em uma variável a quantidade de fotos gravadas
2ª Depois você acha a rotina que vc postou passando um parâmetro numérico.

Public Sub Listar_todososjogospc(FotoInicial as int16)
Connectarpc()
mycomando = New MySql.Data.MySqlClient.MySqlCommand([Ô]Select * from fotos order by foto Limit [Ô] & fotoInicial & [Ô],20[Ô], myconexao)
mydata = mycomando.ExecuteReader()
If mydata.HasRows = True Then
While mydata.Read
Dim IMAGEM As New kpciture
Form1.FlowLayoutPanel1.Controls.Add(IMAGEM)
IMAGEM.PictureBox1.ImageLocation = mydata.Item([Ô]foto[Ô])
Form1.Label1.Text = Form1.FlowLayoutPanel1.Controls.Count
End While
End If
Desconnectarpc()
End Sub

Também deve ter uma variável estática para passar o valor para o parâmetro da função.

dim shared FotoIni as int16

private sub avançar()
Listar_todososjogospc(FotoIni)
FotoIni += 20

end sub

private sub avançar()
if FotoIni > quantidade_de_foto then
Listar_todososjogospc(FotoIni)
FotoIni += 20
end if

end sub

private sub recuar()
if FotoIni >= 0 then
Listar_todososjogospc(FotoIni)
FotoIni -= 20
else
FotoIni = 0
Listar_todososjogospc(FotoIni)
end if

end sub
FROSTYNHO 06/09/2011 16:28:28
#383586
Resposta escolhida
caso resolvido graças ao frostynho aki... kkkkkkkkk
KURTGU 06/09/2011 16:37:31
#383587
vlw fernando ficou bom pra caramba pra quem quiser ai ta o projeto pra dowload o cara ai de cima que fez.....ele e meio gay mais e meu amigo......

Tópico encerrado , respostas não são mais permitidas