Usuário com melhor resposta
Contador de registros

Pergunta
-
Tenho a seguinte situação:CNPJ1 - NOME1CNPJ1 - NOME2CNPJ1 - NOME3CNPJ2 - NOME4CNPJ2 - NOME5CNPJ3 - NOME6Preciso colocar um contador de nomes por CNPJ. Exemplo:CNPJ1 - NOME1 - 1CNPJ1 - NOME2 - 2CNPJ1 - NOME3 - 3CNPJ2 - NOME4 - 1CNPJ2 - NOME5 - 2CNPJ3 - NOME6 - 1Se alguém souber como posso fazer isso no ACCESS, favor me dar uma dica.Um abraço.
Respostas
-
- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 17:35
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 17:35
Todas as Respostas
-
-
Ei Wesley,
puxa cara, estou procurando alguem que saiba fazer isso há duas semanas. Nao achei nada, nenhum artigo publicado, nada. Consigo realizar a contagem no SQL, mas nao no acess. Por favor, se puder, escreva um exemplo de código para tal consulta. Tipo, tenho uma tabela clientes e outra pedidos. Quero contar quantos registros de pedido há para o nome de determinado cliente.
POr favor, me dá uma dica ae.
Grato,
Paulo -
Vc tem que contar quantos pedidos
Ex.
select count(pedido.Id) as QuantidadePedidos, Clientes.Nome
From Pedido inner join Clientes on Pedido.Cod_cliente = Cliente.Cod
Group by Cliente.Cod
tente assim
Por favor
Passe os campos que vc tem nas duas tabelas
Wesley- Sugerido como Resposta jacobsamuel segunda-feira, 11 de janeiro de 2010 23:48
-
Ei Wesley,
desculpa a demora em responder, mas é que o bicho tá pegando no trabalho e obrigado por me responder.
Bem eu consegui realizar a contagem. Agora estou com um probleminha que nao consegui decifrar.
Nao estou conseguindo GRAVAR nem RETORNAR as fotos de um banco de dados.
Os exemplos que eu olhei somente retornam com a gravacao da conexao em SQL, porem quero realizar tal rotina usando banco de dados acess sem a gravacao da string de conexao, estou tentanto há um tempao e nao consegui entender o codigo e aproveita-lo.
POr favor me da uma força.
Grato.
paulo -
-
O código para salvar um novo registro está ae, porém nao cologuei o campo foto porque dá erro pelo fato de a foto nao ser String.
Private Sub SALVAR()
Dim cn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = cn
cmd.CommandType = CommandType.Text
Try
' Define a string de conexão
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MYWORK\banco.mdb"
' Abre a conexao.
cn.ConnectionString = cn.ConnectionString
cn.Open()
'Define as propriedades do objeto COmmand
cmd.Connection = cn
' Cria um DataReader
cmd.CommandText = "insert into RELATORIOS(NUMERO, DATA, NATUREZA)values('" & numero.Text & "', '" & data.Text & "', '" & natureza.Text & "')"
cmd.ExecuteNonQuery()
cn.Close()
MsgBox("RELATÓRIO GERADO COM SUCESSO!")
Catch ex As Exception
MsgBox(ex.Message())
End Try
End Sub
-
o código para salvar um novo registro está ae, sem o campo foto:
Private Sub SALVAR()
Dim cn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
cmd.Connection = cn
cmd.CommandType = CommandType.Text
Try
' Define a string de conexão
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MYWORK\banco.mdb"
' Abre a conexao.
cn.ConnectionString = cn.ConnectionString
cn.Open()
'Define as propriedades do objeto COmmand
cmd.Connection = cn
' Cria um DataReader
cmd.CommandText = "insert into RELATORIOS(NUMERO, DATA, NATUREZA)values('" & numero.Text & "', '" & data.Text & "', '" & natureza.Text & "')"
cmd.ExecuteNonQuery()
cn.Close()
MsgBox("RELATÓRIO GERADO COM SUCESSO!")
Catch ex As Exception
MsgBox(ex.Message())
End Try
End Sub
grato.
Paulo -
-
Paulo
as fotos vc pode grava-las em uma pasta
e no banco vc grava o caminho para a pasta e o nome dela
Dai vc vai recuperar o caminho e nome atraves de uma select
e vc tem que atribui-la para um objeto do seu formulario, ou fazer um hiperlink
Ok
Wesley -
-
Paulo
Crie uma pasta com as imagens
dai no registro vc vai guardar o nome dela e o caminho onde ela se encontra
Ex.
ID
Nome_Foto
Caminho
Quando for fazer a select vc vai ter o caminho dela
dai é só carrega-la em uma aplicação
caminho = "c:\Temp\"
Qual é aplicação que vc está usando?
Valeu
Wesley -
Wesley,
estou usando o VB 2005.
Eu entendi seu raciocinio, porem ainda uma dúvida.
Na instrução:
cmd.CommandText = "insert into INDIVIDUOS(NOME, APELIDO, FOTO)values('" & NOME.Text & "', '" & APELIDO.Text & "', '" & FOTO.Text & "')"
ela não aceita string para fotos. No caso, deveria eu fazer um específica para fotos?
Se sim, o que eu deveria mudar na instrução que passei lá em cima?
Grato.
Paulo -
-
Wesley,
alo, voce pode gravar fotos no teu banco de dados, nao precisas gravar o caminho. para tal tens de converter imagem em bytes. deve resolver o teu problema.
estou usando o VB 2005.
Eu entendi seu raciocinio, porem ainda uma dúvida.
Na instrução:
cmd.CommandText = "insert into INDIVIDUOS(NOME, APELIDO, FOTO)values('" & NOME.Text & "', '" & APELIDO.Text & "', '" & FOTO.Text & "')"
ela não aceita string para fotos. No caso, deveria eu fazer um específica para fotos?
Se sim, o que eu deveria mudar na instrução que passei lá em cima?
Grato.
Paulo
Just Be Humble Malange! -
-
Caros amigos,
Eu consegui. Obrigado pela ajuda.
Bem, como há quase nenhuma, ou nenhuma ajuda a respeito, vou colocar os passos que realizei para alquem que tenha a mesma dúvida:
1. Objetos usados:
a) textbox = nome
b) label = caminho
c) picturebox = picfoto
d) button = btnincluir
e) openfiledialog
2. Crie um banco de dados no acess 2003 = banco.mdb
3. Crie uma pasta para que as imagens sejam salvas nela
3. Carregue a foto ao clicar no btnincluir com a instrucao opendialog de modo que o caminho obtido com opendialog seja escrito no label = caminho. Essa instrução deve salvar as fotos na pasta imagens criada
4. Na instrução INSERT voce deve salvar no campo foto do banco de dados o caminho descrito na label = caminho
5. Para carregar a foto, na instrução 'carregadados' (que você obviamente criará) você carregará na label = caminho o campo foto (apenas o caminho gravado)
6. Para exibir a foto no picfoto, basta declarar picfoto.image = caminho.text
obviamente, sem os códigos alguém possa dúvidas. No caso, posta ae.
Wesley,
aproveitando e abusando mais uma vez de sua boa vontade, você nao teria um código ae para eu estudar impressão.
São dois tipo de impressao que quero realizar:
1. Um formulário contendo os dados exibidos em um form do vb2005
2. Uma tabela do banco de dados a partir do form do vb2005
Grato. -
-
Caro Wesley,
deixa-me te aborrecer so mais uma vez.
Descupe a pergunta ridicula, mas sou iniciante no VB. Uso o vb 2005, nele não há a opção adicionar crystal reports, ou um relatorio que seja. O pacote de instalação do vb 2005 nao vem com o crystal? como faço para baixá-lo? Ele é pago? Entrei no site na microsof mas nao consigo baixa-lo.
Grato.
paulo -
-
boa tarde, amigos!!!
estou fazendo em sql ,mas acredito que não terei problemas para alterar as conexoes de access para sql.
gostaria de saber se tem a possibilidade de mostrar o codigo de como conseguiu gravar o caminho da imagem no banco e no label a imagem, ou até mesmo me mandar um email com o anexo Project / codigo
grato.
-
- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 17:35
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 14 de junho de 2014 17:35