Jump to content

aluizs

Members
  • Content count

    48
  • Joined

  • Last visited

Everything posted by 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. 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é
  10. 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é
  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. Ola, estou trabalhando em um visualizador de imagens e utilizo um listview para lista-las e este listview é populado pelas imagens de um imagelist que é populado em tempo de execução com imagens de um banco de dados. até ai tudo bem. o problema é o seguinte, quando mudo de um grupo de imagens de um paciente para outro as imagens no listview que no primeiro paciente eram small com legenda, passam a ser grandes sem legenda. o problema não é o tamanho da imagem de um paciente ou outro, pois quando inicio com um paciente diferente o tamanho é normal(pequena) e o seguinte a imagem fica grande e vice-versa. uso os seguintes códigos para linkar o listview com o imagelist lear Set ListView4.SmallIcons = Me.ImageList1 Set ListView4.Icons = Me.ImageList1 para popular o listview uso Set listafotos = ListView4.ListItems.Add(picxx, , tbfotos!Datainsercao, ImageList1.ListImages(picxx).Index) listafotos.SubItems(1) = tbfotos!descricao e para poder atribuir novo grupo de imagens os codigos abaixo para limpar o listview e o imagelist. ListView4.SmallIcons = Nothing ListView4.Icons = Nothing ImageList1.ListImages.Clear como posso resolver este problema? obrigado pela atenção.
  16. 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.
  17. Olá, estou trabalhando em um código asp com banco de dados mysql mas estou enfrentando alguns problemas com o código abaixo, um deles é a mensagem Microsoft OLE DB Provider for ODBC Drivers error '80040e21' que aparece quando tento abrir o segundo recordset. Em um banco de dados tenho as tabelas jogos, jogos adulto, colocm e colocf. onde em jogos e jogosadulto são colocados os jogos e colocm e colocf a classificação masculina e feminina respectivamente. desta forma fiz um select para buscar os jogos de uma determinada categoria e a cada registro, uso as equipes e categoria para buscar a classificação. acontece que ao tentar abrir o recordset da classificação dá o erro acima. com faço para resolver isto. segue abaixo o código que utilizo. as vezes ele acusa a falta de um LOOP na linha destacada em azul quando eu modifico o rstempcol.open sqlcol, conntempcol1, 3, 3 para rstempcol.open sqlcol, conntempcol, 3, 3 <% strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=xxxxxxx; DATABASE=tabela; " &_ " Uid=xxxxxx;Pwd=xxxxxx" strConexao1 = "Driver={MySQL ODBC 3.51 Driver};SERVER=xxxxxxx; DATABASE=tabela; " &_ " Uid=xxxxxx;Pwd=xxxxxx" set conntempcol = server.CreateObject("ADODB.Connection") set conntempcol1 = server.CreateObject("ADODB.Connection") conntempcol.open strConexao conntempcol1.open strConexao1 TIPO = REQUEST.QUERYSTRING("var") if request.querystring("ponto") = 1 then strQuery = ("(SELECT * FROM jogos WHERE categoria LIKE '" & TIPO & "') UNION (SELECT * FROM jogosadulto WHERE categoria LIKE '" & TIPO & "') order by turno, data, hora") strQuery1 = "SELECT count(data) as total1 FROM jogos WHERE categoria LIKE '" & TIPO & "' " elseif request.querystring("ponto") = 2 then strQuery = ("(SELECT * FROM jogos WHERE equipe1 LIKE '" & TIPO & "' OR equipe2 LIKE '" & TIPO & "') UNION (select * from jogosadulto where equipe1 LIKE '" & TIPO & "' OR equipe2 LIKE '" & TIPO & "') order by turno, data, hora") strQuery1 = "SELECT count(data) as total1 FROM jogos WHERE equipe1 LIKE '" & TIPO & "' OR equipe2 LIKE '" & TIPO & "' " elseif request.querystring("ponto") = 3 then if request.querystring("t1") <> empty then d1 = mid(request.querystring("t1"),1,2) m1 = mid(request.querystring("t1"),4,2) y1 = mid(request.querystring("t1"),7,4) datai = y1 & "-" & m1 & "-" & d1 'dataf = request.querystring("t2") d1 = MID(request.querystring("T2"),1,2) m1 = MID(request.querystring("T2"),4,2) y1 = MID(request.querystring("T2"),7,4) dataf = y1 & "-" & m1 & "-" & d1 if isdate(datai) = true then strQuery = "select * from jogos where data between '" & datai & "' and '" & dataf & "' union select * from jogosadulto where data between '" & datai & "' and '" & dataf & "' order by turno, data, hora" strQuery1 = "select count(data) as total1 from jogos where data between '" & datai & "' and '" & dataf & "'" end if end if end if %> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"> <tr> <td width="6%" align="center" bgcolor="#FFFFFF"> <font face="Verdana" style="font-size: 11pt" color="#FF6600"> <b>Data</b></font></td> <td width="7%" align="center" bgcolor="#FFFFFF"> <font face="Verdana" style="font-size: 11pt" color="#FF6600"> <b>Hora</b></font></td> <td width="11%" align="center" bgcolor="#FFFFFF" valign="top"> <font face="Verdana" style="font-size: 11pt" color="#FF6600"> <b>Local</b></font></td> <td colspan="5" align="center" bgcolor="#FFFFFF"> <center> <font face="Verdana" style="font-size: 11pt" color="#FF6600"> <b>JOGO</b></font></CENTER> </td> <td width="13%" align="center" bgcolor="#FFFFFF"> <font face="Verdana" style="font-size: 11pt" color="#FF6600"> <b>CATEGORIA</b></font></td> </tr> <% set tabela1 = Server.CreateObject("ADODB.RecordSet") tabela1.Open strQuery1, strConexao1, 3, 3 ' totalgeral = cint(tabela1.fields("total1")) response.write(strQuery1 & " - " & totalgeral) 'response.end set tabela = Server.CreateObject("ADODB.RecordSet") tabela.Open strQuery, strConexao, 3, 3 if totalgeral > 0 THEN njogo1 = totalgeral do while not TABELA.EOF if tabela.fields("turno") = 2 and passou = 0 then passou = 1 flag = 0 response.write("<tr>") response.write("<td align='center' bgcolor='#FFFFFF' colspan='9' height='27'>") response.write("<b>") response.write("<font style='font-size: 11pt' color='#FF6600' face='Verdana'>2º TURNO</font></b></td>") response.write("</tr>") end if if flag=0 then flag=1 color="#E0E0E0" else flag=0 color="#FFC891" end if if lcase(tabela.fields("sexo")) = "masculino" and spm = false then sqlcol = "select * from colocm where categoria like " & tabela.fields("categoria") & " order by index" elseif lcase(tabela.fields("sexo")) = "feminino" and spm = false then sqlcol = "select * from colocf where categoria like " & tabela.fields("categoria") & " order by index" end if response.write(sqlcol & " classifica") set rstempcol = Server.CreateObject("ADODB.RecordSet") response.write(sqlcol & " classifica") rstempcol.open sqlcol, conntempcol1, 3, 3 'XXXX o erro está dando aqui XXXXX response.write(sqlcol & " classifica") col1 = empty col2 = empty do while not rstempcol.eof if rstempcol.fields("equipe") = tabela.fields("equipe1") then col1 = rstempcol("position") end if if rstempcol.fields("equipe") = tabela.fields("equipe2") then col2 = rstempcol.fields("position") end if rstempcol.movenext loop set rstempcol = nothing %> <tr> <td width="6%" align="center" valign="middle" nowrap="nowrap" bgcolor=""> <b> <font color="#FF6600" face="Verdana"> <span style="font-size: 10pt"><%=tabela.fields("data")%></span></font></b><font color="#FF6600" face="Verdana"><span style="font-size: 11pt"> </span></font></td> <td width="7%" align="center" valign="middle" nowrap="nowrap" bgcolor=""> <b> <font color="#FF6600" face="Verdana"> <span style="font-size: 10pt"><%=tabela.fields("hora")%></span></font></b><font color="#FF6600" face="Verdana"><span style="font-size: 11pt"> </span></font></td> <td width="11%" valign="middle" nowrap="nowrap" bgcolor=""> <div align="left"><b> <font color="#FF6600" face="Verdana"> <span style="font-size: 10pt"><%=tabela.fields("local")%></span></font></b><font color="#FF6600" face="Verdana"><span style="font-size: 11pt"> </span></font></div> </td> <td width="19%" valign="middle" nowrap="nowrap" bgcolor=""> <div align="left"><b> <font color="#FFFFFF" face="Verdana"> <a title="<%=col1%>º" href="javascript:montatab('<%=tabela.fields("equipe1")%>',2)"> <font color="#FF6600" style="font-size: 11pt"><%=tabela.fields("equipe1")%></font></a></font></b></div> </td> <td width="7%" align="center" valign="middle" nowrap="nowrap" bgcolor=""> <font color="#FF6600" face="Verdana" style="font-size: 10pt"> <b><%=tabela.fields("pequipe1")%></b> </font></td> <td width="3%" align="center" valign="middle" nowrap="nowrap" bgcolor="" class="style2"> <div align="center"> <strong> <font color="#FF6600" face="Verdana" style="font-size: 11pt">X</font></strong></div> </td> <td width="7%" align="center" valign="middle" nowrap="nowrap" bgcolor=""> <font color="#FF6600" face="Verdana" style="font-size: 10pt"> <b><%=tabela.fields("pequipe2")%></b> </font></td> <td width="19%" valign="middle" nowrap="nowrap" bgcolor=""> <right><b> <font color="#FFFFFF" face="Verdana"> <a title="<%=col2%>º" href="javascript:montatab('<%=tabela.fields("equipe2")%>',2)"> <font color="#FF6600" style="font-size: 11pt"><%=tabela.fields("equipe2")%></font></a></font></b></right></td> <td width="13%" align="center" valign="middle" nowrap="nowrap" bgcolor=""> <center><b> <font color="#FFFFFF" face="Verdana"> <a href="javascript:montatab('<%=tabela.fields("categoria")%>',1)"> <font color="#FF6600" size="1"><%=tabela.fields("categoria")%></font></a></font></b></CENTER> </td> </tr> <% tabela.movenext loop end if conntempcol.close set conntempcol = nothing set tabela = nothing 'set rstempcol = nothing passou = 0 %> Obrigado, André
  18. Ola, estou tentando abrir uma imagem usando o visualizador de imagens do windows através do visual basic 6 usando o seguinte código Shell ("C:\Windows\System32\shimgvw.dll & " " & "D:\clinica\fotosin\preview\foto.jpg"), vbMaximizedFocus só que dá erro 5 (invalide procedure call or argument). alguém poderia me ajudar a resolver este problema Obrigado, André
×

Important Information

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