|
|
 Nova Mensagem |
|
|
|
Gostaria de saber como posso fazer para colocar uma imagem no picturebox via access,
alguem pode me ajudar?
[Responder] [Get Link]
|
|
|
|
|
Muito obrigado a todos mas eu já consegui!(:
está aqui o codigo fonte:
Imports System.IO
Imports System.Data.OleDb
Public Class frmGravaImagem
Dim banco As New DBConexao
Private Sub bntEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntEnviar.Click
End Sub
Private Sub bntBusca_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntBusca.Click
buscaBanco()
MostraFoto()
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
OpenFileDialog1.ShowDialog()
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
txtimg.Text = OpenFileDialog1.FileName
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntEnviar.Click
Dim arqImg As FileStream
Dim rImg As StreamReader
If Len(txtimg.Text) <> 0 Then
arqImg = New FileStream(txtimg.Text, FileMode.Open, FileAccess.Read, FileShare.Read)
rImg = New StreamReader(arqImg)
Else
MsgBox("Informe um nome para a imagem que deseja incluir na tabela.", MsgBoxStyle.Critical, "Erro")
Exit Sub
End If
Dim Sql As String = "INSERT INTO imgs(Imagem,nome) VALUES (?,?)"
Dim conexao As New OleDbConnection(My.Settings.Conexao.ToString)
Dim comando As New OleDbCommand(Sql, conexao)
Try
'declaramos um vetor de bytes para armazenar o conteúdo da imagem a ser salva
Dim arqByteArray(arqImg.Length - 1) As Byte
arqImg.Read(arqByteArray, 0, arqImg.Length)
'inclui os parâmetros
comando.Parameters.Add("@Imagem", OleDbType.Binary, arqImg.Length).Value = arqByteArray
comando.Parameters.Add("@Tamanho", OleDbType.VarChar, 255).Value = arqImg.Length
'abre a conexao , executa o comando e fecha a conexao
conexao.Open()
comando.ExecuteNonQuery()
conexao.Close()
MsgBox("Imagem incluida com sucesso !", MsgBoxStyle.Information, "OK")
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Erro")
End Try
End Sub
Private dsClientes As New DataSet
Private Sub MostraFoto()
'tenha certeza de que a tabela contem registros
If dsClientes.Tables(0).Rows.Count > 0 Then
'verifique se o campo Picture do registro atual não é NULL
'Dimensiona uma varivael Byte array (bytePicData) e armazena o valor no campo Foto
Dim bytePicData() As Byte = _
dsClientes.Tables(0).Rows(0)(1)
'Um MemoryStream é um obejto System.IO (como um FileStream). Movendo os valores de
' do byte array bytePicData para MemoryStream, podemos usar o metodo FromStream do objeto Image Intrinsico
' para converter e copiar a figura diretamente para a propriedade Image do controle picFoto
Dim PicMemStream As New System.IO.MemoryStream(bytePicData)
PictureBox1.Image = Image.FromStream(PicMemStream)
Else 'Se o campo Foto for Null, define a propriedade Image de picFoto para Nothing
' para remover qualquer imagem exibida antes
PictureBox1.Image = Nothing
End If
End Sub
Public Sub buscaBanco()
dsClientes = banco.RetornaDataSet("select * from imgs")
End Sub
End Class
Abraço a todos
Rodrigo Peixoto
[Responder] [Get Link]
|
|
|
|
|
Caro Mauricio:
Estou utilziando o Crystal 2008 DEV na criação de um site, quando utilizo ele com windows forms é simples de utilizar o CrystalViewer.
O problema é que não estou conseguindo fazer o mesmo procedimento com uam pagian asp.net exemplo:
- criei um relatório no CR2008 (Relatorio.rpt) Este relatório imprime uma tabela do SQL Server 2005
- Aqui começa o problema, como eu direciono este relatório para um CrystalViewer em uma pagian asp.net, ou seja como fazer o mesmo procedimento que eu faço com um windows forms?
Como comentei acima em windows forms eu sei, o problema é na pagina aspx.
- Cria uma tela normal com um botão.
Um abraço
Luiz Acauan
[Responder] [Get Link]
|
|
|
|
|
Para fazer isso vc tem que arrastar para o seu formulário um "ContextMenuStrip" que estpa dentro do ToolBox e em seguida clique no objeto que vc deseja a funcionalidade do botão direito do mouse, nas propriedades("Properties") na opcão "ContextMenuStrip" vc encontra o nome do seu "ContextMenuStrip" que caso ainda não tenha sido renomeado deverá ter o nome de "ContextMenuStrip1"
Espero que isso ajude
abs,
Rodrigo Peixoto
[Responder] [Get Link]
|
|
|
|
|
Galera eu to com um problema...me ajudem por favor...
eu preciso que uma variavel assuma o valor do comprimento da tela e outra assuma a altura da tela ,ou seja ,tenho que obter a resolução do monitor ,soh que naum sei este comando em vb.net eu so sei em vb 6
Por favor me ajudem,mt obrigado
[Responder] [Get Link]
|
|
|
|
|
Ola
meu problema eh o seguinte: tenho uma planilha em excel e quero abri-la dentro do form. Porém, nao quero abri-la so para ler. Preciso editar nessa planilha tambem.
alguem poderia me ajudar??
obrigado
[Responder] [Get Link]
|
|
|
|
|
Voce deve obter os dados de sua planilha em excel via conexao ODBC.
Então voce joga os dados lidos para um dataset e coloca o dataset no datasource de um grid e daí pra frente acho que voce ja sabe como fazer.
[Responder] [Get Link]
|
|
|
|
|
Oi Raphael,
Pelo que vi você está fazendo quase tudo certo, apenas o SelectedValue é que não precisa ser setado neste ponto. Acho que talvez o ideal seja trocar a opção "DropDownStyle" do combo para DropDownList, ai o usuário terá de selecionar alguma coisa.
Depois que o usuário selecionar um valor, tu pode ler o ID correnpondente na propriedade SelectedValue.
Espero ter te ajudado.
Maurício Ritter
MCTS(Biztalk Server), MCSE, MCDBA, MCAD, MCSD, MCT
[Responder] [Get Link]
|
|
|
|
|
Ola Maurício, obrigado pela sua ajuda!
Fiz como sugerido porem o problema ainda persiste.....
Ele não esta aceitando salvar no BD com a opção em forma de texto (gênero), somente se for o ID (numérico), não sei mais o que fazer 
Poderia postar um link aqui para download de um exemplo do meu projeto para vc ver o que pode ser?
Muito obrigado mesmo
Raphael
[Responder] [Get Link]
|
|
|
|
|
Pode postar aqui o trecho de código que você está usando para gravar no DB.
Maurício Ritter
MCTS(Biztalk Server), MCSE, MCDBA, MCAD, MCSD, MCT
[Responder] [Get Link]
|
|
|
|
|
Raphael,
Tenta remover, nas propriedades do combo, item DataBinding, tem um databinding associado a propriedade Text. Remove isso que eu acho que resolve.
Maurício Ritter
MCTS(Biztalk Server), MCSE, MCDBA, MCAD, MCSD, MCT
[Responder] [Get Link]
|
|
|
|
|
Ola Maurício, obrigado pela sua ajuda!
Fiz como sugerido porem o problema ainda persiste.....
Ele não esta aceitando salvar no BD com a opção em forma de texto (gênero), somente se for o ID (numérico), não sei mais o que fazer
Poderia postar um link aqui para download de um exemplo do meu projeto para vc ver o que pode ser?
Muito obrigado mesmo
Raphael
[Responder] [Get Link]
|
|
|
|
|
Faça o seguinte:
1) Remova (via design) o DataBinding que está no campo Text da ComboBox (deixe None)
2) Exclua a linha --> GeneroComboBox.SelectedValue = "ID"
3) E o mais importante, no lugar desta linha, adicione -->
GeneroComboBox.DataBindings.Add("SelectedValue", Me.AcervoDataSet.Filme, "Genero")
ps.: com relação ao Style mencionado anteriormente, não é necessário. Porém se você quiser usá-lo, altere-o na propriedade DropDownStyle no design.
Faça um teste e veja se funciona, ok?
[Responder] [Get Link]
|
|
|
|
|
Ola, estou usando VB .Net 2005 com Sql Server 2005,
estou tentando puxar uns dados do Banco de dados e trazer no form, ou seja,
vamos supor que eu tenha mais de uma informações no banco de dados,
ao trazer no form ele deixa como checkbox,
para ser bem claro vamos supor que esteja montando perguntas multipla escolha,
com listar quantas perguntas poderia ter (ja cadastrada no banco), colocando ele como checkbox, para posteriormente responde-las e salva-las as respostas em outra tabela no banco.
[Responder] [Get Link]
|
|
|
|
|
Fiz um aplicação com uma resolução 1280 e agora quando instalo num computador com uma resolução 1024 algumas coisa que tenho no formulário desaparecem, como resolver isto?
[Responder] [Get Link]
|
|
|
|
|
Fiz um aplicação com uma resolução 1280 e agora quando instalo num computador com uma resolução 1024 algumas coisa que tenho no formulário desaparecem, como resolver isto?
[Responder] [Get Link]
|
|
|
|
|
|
|
|
|
Bom dia, seguinte.. tenho um prog em vb.net, e gostaria de chamar ele passando paramentro por exemplo "teste", queria que logo quando eu chamar o prog me abra uma msgbox com esse paramentro mostrando dentro do msgbox, como fazer isso.
Obrigado
Aurelio
[Responder] [Get Link]
|
|
|
|
|
Mauricio,
pesquisando melhor a aplicação, descobri a o problema não ocorre por causa de varios usuarios acessarem ao mesmo tempo, e sim pq, apos transferir dados para a planilha no Excel, q fica salva no proprio servidor, a sessão do usuario nao eh fechada, assim, a medida q mais usuarios abrem novas sessões, chega a um limite q o servidor falha. Teria como encerrar a sessão, sem encerrar a aplicação, de um usuario apos ele transferir os dados para o Excel e salvar essa planilha?
[Responder] [Get Link]
|
|
|
|
|
Olá Mauricio,
Para voce encerrar a sessão basta voce executar o comando Session.Abandon, porém, isto causaria a queda da sessão do usuario. Esta sua aplicação é em ASP ? Se for, na pagina voce pode usar um artificio javascript no metodo onunload na tag BODY.
Por exemplo:
<body onUnload="javascript: fecharSessao();">
Esta função irá chamar uma pagina asp que executa o Session.Abandon
Assim voce vai encerrar a sessão quando o usuário sair do browser.
Entendeu ?
[Responder] [Get Link]
|
|
|
|
|
Mauricio, é o seguinte.
Tenho uma aplicação asp que cria uma instancia do Excel de um componente COM no servidor.
Accontece que dependendo no numeros de usuarios (mais que 10 usuarios) acessando essa mesma instacia da erro
e trava todo o sistema. Gostaria de saber se existe uma possibilidade do aumento de nros de usuarios acessando
essa mesma instancia ao mesmo tempo?
[Responder] [Get Link]
|
|
|
|
|
Mauricio, é o seguinte.
Tenho uma aplicação asp que cria uma instancia do Excel de um componente COM no servidor.
Accontece que dependendo no numeros de usuarios (mais que 10 usuarios) acessando essa mesma instacia da erro
e trava todo o sistema. Gostaria de saber se existe uma possibilidade do aumento de nros de usuarios acessando
essa mesma instancia ao mesmo tempo?
[Responder] [Get Link]
|
|
|
|
|
A principio não vejo problemas, desde que tu controle o acesso concorrente a este objeto. Esta aplicação é VB 6 ? No VB6 é um pouco chato fazer isso... no VB.NET é mais fácil.
Maurício Ritter
MCTS(Biztalk Server), MCSE, MCDBA, MCAD, MCSD, MCT
[Responder] [Get Link]
|
|
|
|
|
Sim essa aplicação eh no VB6. Como eu faço esse controle de acesso?
Grato,
Rodrigo Nascentes
[Responder] [Get Link]
|
|
|
|
|
Olá Maurício,
Tenho um servidor de aplicações (2003 server) executando um mesmo aplicativo (.exe VB.Net) várias vezes porém por usuários distintos.
Há alguma forma de compartilhar os recursos já carregados pela primeira aplicação iniciada, visto que as demais são exatamente iguais, otimizando assim os recursos alocados no servidor?
[Responder] [Get Link]
|
|
| Próximas >> Últimas |
|
|
