Jump to content

aluizs

Members
  • Content count

    48
  • Joined

  • Last visited

Community Reputation

0 Comum

About aluizs

  1. Olá, alguém poderia me indicar um site onde encontro como criar uma conexão ODBC em tempo de execução usando o visual studio 2012. Obrigado.
  2. Olá alguém poderia me auxiliar com um código ou tutorial de como checar a existência de um banco de dados mysql e como cria-lo caso não exista durante a inicialização de um sistema desenvolvido no visual studio 12. (windows application). Obrigado.
  3. Olá, Uso o vs 2012 e uso o código abaixo para recuperar as imagens do bando de dados e exibir em um controle. Entretanto os o sistema ficou muito lento para recuperar as imagens. Gostaria de saber se há algum outro código que eu consiga fazer isto mais rápido. RECUPERAR A IMAGEM - xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Using conx As MySqlConnection = connectMsql() sql = "select * from imagens where idpaciente like '" & paccod & "' order by id_cod desc" Try Dim cmd As MySqlCommand = New MySqlCommand(sql, conx) Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd) Dim dt As DataTable = New DataTable da.Fill(dt) If dt.Rows.Count > 0 Then xcontar = dt.Rows.Count - 1 Dim bits As Byte() = CType(dt.Rows(0).Item("foto"), Byte()) Dim memorybits As New MemoryStream(bits, True) memorybits.Write(bits, 0, bits.Length) Dim bitmap As New Bitmap(memorybits) PictureBox1.Image = bitmap.FromStream(memorybits) PictureBox1.Tag = dt.Rows(0).Item("id_cod") ToolTip1.SetToolTip(PictureBox1, dt.Rows(0).Item("descricao")) Else xcontar = 0 End If Catch ex As Exception MsgBox(ex.Message) setmousefim() Finally End Try End Using SALVAR A IMAGEM - xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Dim con As MySqlConnection = New MySqlConnection(sql2) Dim cmd As MySqlCommand Dim fs As FileStream Dim br As BinaryReader Try If TextBox1.Text.Length > 0 Then Dim NomeArquivoFoto As String = nomeArquivoImagem Dim DadosImagem() As Byte Dim newdate = Mid(MaskedTextBox1.Text, 7, 4) & "-" & Mid(MaskedTextBox1.Text, 4, 2) & "-" & Mid(MaskedTextBox1.Text, 1, 2) fs = New FileStream(NomeArquivoFoto, FileMode.Open, FileAccess.Read) br = New BinaryReader(fs) DadosImagem = br.ReadBytes(CType(fs.Length, Integer)) br.Close() fs.Close() 'Dim CmdSql As String = "INSERT INTO alunos(nome, email, imagem) VALUES(@Nome, @Email, @Imagem)" sql = "INSERT INTO imagens (idpaciente, foto, datainsercao, descricao) VALUES (@idpaciente, @foto, @datainsercao, @descricao)" cmd = New MySqlCommand(sql, con) cmd.Parameters.Add("@idpaciente", MySqlDbType.VarChar, 11) cmd.Parameters.Add("@foto", MySqlDbType.Blob) cmd.Parameters.Add("@datainsercao", MySqlDbType.Date) cmd.Parameters.Add("@descricao", MySqlDbType.VarChar, 255) cmd.Parameters("@idpaciente").Value = TextBox1.Text cmd.Parameters("@foto").Value = DadosImagem cmd.Parameters("@datainsercao").Value = newdate cmd.Parameters("@descricao").Value = TextBox3.Text con.Open() Dim linhasAfetadas As Integer = cmd.ExecuteNonQuery() If (linhasAfetadas > 0) Then MessageBox.Show("A imagem foi salva com sucesso !", "Salvar Imagem", MessageBoxButtons.OK, MessageBoxIcon.Information) frmconsulta.callfoto() End If Else MessageBox.Show("Dados incompletos !", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error) End If Catch ex As Exception MsgBox(ex.ToString()) Finally If con.State = ConnectionState.Open Then con.Close() End If End Try Obrigado.
  4. aluizs

    REcuperar imagem do banco de dados mysql

    Ok. Obrigado,
  5. Olá, Uso o vs 2012 e uso o código abaixo para recuperar as imagens do bando de dados e exibir em um controle. Entretanto os o sistema ficou muito lento para recuperar as imagens. Gostaria de saber se há algum outro código que eu consiga fazer isto mais rápido. RECUPERAR A IMAGEM - xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Using conx As MySqlConnection = connectMsql() sql = "select * from imagens where idpaciente like '" & paccod & "' order by id_cod desc" Try Dim cmd As MySqlCommand = New MySqlCommand(sql, conx) Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd) Dim dt As DataTable = New DataTable da.Fill(dt) If dt.Rows.Count > 0 Then xcontar = dt.Rows.Count - 1 Dim bits As Byte() = CType(dt.Rows(0).Item("foto"), Byte()) Dim memorybits As New MemoryStream(bits, True) memorybits.Write(bits, 0, bits.Length) Dim bitmap As New Bitmap(memorybits) PictureBox1.Image = bitmap.FromStream(memorybits) PictureBox1.Tag = dt.Rows(0).Item("id_cod") ToolTip1.SetToolTip(PictureBox1, dt.Rows(0).Item("descricao")) Else xcontar = 0 End If Catch ex As Exception MsgBox(ex.Message) setmousefim() Finally End Try End Using SALVAR A IMAGEM - xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Dim con As MySqlConnection = New MySqlConnection(sql2) Dim cmd As MySqlCommand Dim fs As FileStream Dim br As BinaryReader Try If TextBox1.Text.Length > 0 Then Dim NomeArquivoFoto As String = nomeArquivoImagem Dim DadosImagem() As Byte Dim newdate = Mid(MaskedTextBox1.Text, 7, 4) & "-" & Mid(MaskedTextBox1.Text, 4, 2) & "-" & Mid(MaskedTextBox1.Text, 1, 2) fs = New FileStream(NomeArquivoFoto, FileMode.Open, FileAccess.Read) br = New BinaryReader(fs) DadosImagem = br.ReadBytes(CType(fs.Length, Integer)) br.Close() fs.Close() 'Dim CmdSql As String = "INSERT INTO alunos(nome, email, imagem) VALUES(@Nome, @Email, @Imagem)" sql = "INSERT INTO imagens (idpaciente, foto, datainsercao, descricao) VALUES (@idpaciente, @foto, @datainsercao, @descricao)" cmd = New MySqlCommand(sql, con) cmd.Parameters.Add("@idpaciente", MySqlDbType.VarChar, 11) cmd.Parameters.Add("@foto", MySqlDbType.Blob) cmd.Parameters.Add("@datainsercao", MySqlDbType.Date) cmd.Parameters.Add("@descricao", MySqlDbType.VarChar, 255) cmd.Parameters("@idpaciente").Value = TextBox1.Text cmd.Parameters("@foto").Value = DadosImagem cmd.Parameters("@datainsercao").Value = newdate cmd.Parameters("@descricao").Value = TextBox3.Text con.Open() Dim linhasAfetadas As Integer = cmd.ExecuteNonQuery() If (linhasAfetadas > 0) Then MessageBox.Show("A imagem foi salva com sucesso !", "Salvar Imagem", MessageBoxButtons.OK, MessageBoxIcon.Information) frmconsulta.callfoto() End If Else MessageBox.Show("Dados incompletos !", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error) End If Catch ex As Exception MsgBox(ex.ToString()) Finally If con.State = ConnectionState.Open Then con.Close() End If End Try Obrigado.
  6. Obrigado, já resolvi o problema.
  7. Olá, alguém poderia me ajudar. tenho um projeto onde o formulário mdi tem um tamanho x por exemplo 1750x744 e o formulário cadastro tem tem 1650 x 700 no modo designer. Entretanto ao entrar em modo de execução o formulário cadastro aumenta juntamente com os controles, extrapolando os limites do mdi. Já procurei em todas as configurações e não encontrei o problema. Saberiam me dizer o que está acontecendo, já tentei trocar o formulário, criando um novo e transferindo os controles mas não resolveu o problema. Obrigado pela atenção. André Luis
  8. aluizs

    como fazer backup bd mysql vs 2012

    Quero fazer um backup em arquivo. Obrigado.
  9. Olá, Estou enfrentando dois problemas com o Crystal Report 2013 integrado ao VS 2012. 1º - criei um relatório e depois de um tempo inseri mais dois campos do banco de dados e um de texto, só que os três campos não aparecem no relatório em tempo de execução. no modo preview eles aparecem. tenho a impressão que o relatório não está atualizando, pois o mesmo tem uma imagem de fundo e eu já retirei esta imagem e mandei rodar a aplicação e em seguida gerei o relatório a e figura continuou aparecendo. 2º - criei um relatório e agora quero ordenar por um campo data, mas não consigo localizar o local onde fazer esta ordenação, consigo ver a query só que não tem como alterar. se alguém puder me auxiliar ficarei muito grato. Obrigado antecipadamente pela atenção dispensada. André
  10. aluizs

    como fazer backup bd mysql vs 2012

    Olá, estou tentando fazer o backup do banco de dados mysql através do visual studio 2012, entretanto estou enfrentando alguns problemas. uso o mysql server 5.7 com connector 6.9.9, encontrei uma dll "mysqlbackup" só que quando tento usar ela pede a versão do mysql.data 6.8.3. Alguem poderia me auxiliar em uma rotina para fazer o backup e restauração do bd. Obrigado, André
  11. Olá estou utilizando a seguinte instrução Sql. sql = "update teste " _ & " set FLEX = '" & Val(TextBox23.Text) & "', FLEXresult = '" & TextBox22.Text & "' " _ & " where pt = '" & ListView5.SelectedItems(0).SubItems(3).Text & "' and data like '" & newdate & "' " onde o valor no textbox23 é 34.5, só que quando a instrução é decodificada ela fica assim. update teste set FLEX = '34,5', FLEXresult = 'OK' where pt = '1235E' and data like '2016-09-06' " troca o ponto por virgula e desta forma não consigo inserir os dados no banco. Recebo a mensagem que o valor decimal está incorreto para o campo. quando insiro manualmente com ponto da certo, pois o campo "numérico" não aceita virgula. como faço para que o ponto não seja transformado em virgula. obrigado.
  12. Olá, como faço para salvar uma imagem do banco de dados mysql para uma pasta. estou criando um sistema que de clinica médica onde o médico pode querer enviar uma radiografia para outro médico ou para o próprio paciente, sendo assim preciso de uma maneira de recuperar a imagem, salvando-a em uma pasta. se alguém puder me auxiliar fico muito grato.
  13. aluizs

    agenda para clinicas médicas

    Jorge, muito obrigado pela atenção. A plataforma é windows.
  14. aluizs

    agenda para clinicas médicas

    Olá, alguém poderia me indicar um componente agenda para ser utilizado no visual studio 2015, achei alguns exemplos, como o dayview e o calendar, entretanto não consigo descobrir como faço para inserir os dados na agenda, tanto via banco de dados como por campos para o caso de um novo agendamento. Se pudessem me auxiliar com o componente e com exemplos, ficaria muito grato, pois os que tenho, não consegui entender os exemplos e realizar estas tarefas. http://www.codeproject.com/Articles/12201/Calendar-DayView-Control&usg=ALkJrhjDPfjPRVEhAcJpCwRv7IYOdKLDcw as instruções estão em C, e eu não sei como converter para o VB 2015. Vale informar que estou começando agora trabalhar com esta plataforma, pois eu tenho conhecimentos intermediários em VB 6. Fico grato antecipadamente pela atenção e ajuda. Obrigado.
  15. KhaosDoctor, o que acontece é que eu populo um listview em tempo de execução, usando um imagelist, o programa lista as imagens de um banco de dados dos pacientes de uma clinica ortopética. acontece que quando eu seleciono o primeiro paciente e vou ver as imagens elas estão aparecendo como Smallicons no listview, só que quando eu troco o paciente e vou visualizar as imagens, as imagens do novo paciente aparecem com tamanho de sua resolução normal (800x600 por exemplo) no listview. Uso os códigos acima para popular e limpar tanto o imagelist quanto o listview, Gostaria de saber o que está acontecendo e o que preciso fazer para que as imagens do segundo paciente apareçam como smallicon. Obrigado.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.