AJUDA COM BD MYSQL
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?
pra limpar o flowlayout panel e simples ehhehehehehehe gostaria de saber como faco pra adicionar os 20 seguintes e retorna os 20 anteriores?
upppppppppppppppppppppppppppppppppppppppp........................
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
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
vlw vo da uma olhada aqui e ja posto....
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
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
alguem?
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
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
caso resolvido graças ao frostynho aki... kkkkkkkkk
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