Donati

Uma outra solução seria gravar nessa base local em uma outra tabela a data da ultima atualização, ai quando voce for atualizar ao invés de apagar o banco de dados inteiro apague apenas a ou as tabelas com os dados e a tabela que voce guardou a data da ultima atualização, foce faz apenas um update da data existente para a nova data FUI Donati

Boa Tarde Pelo que entendi, basta buscar o registro que voce que e concatenar o nome do arquivo com a extensão e buscar na pasta em que esta salvo as fotos Ate mais FUi Donati

bom dia Graymalkin Valeu pela ajuda, com este exemplo já estou conseguindo ler o XML inteiro Ate mais Donati

gabriel O resultado já sai no formato HH:MM, não precisa realizar a função FORMAT(variavel,"HH:MM") T+

não gabriel Quando voce for descontar por exemplo 1 hora e 20 minutos, voce tera que descontar a hora e os minutos, por exemplo txtResultado.Text = TimeSerial(Hour(tempo) - descontarhora , Minute(tempo) - descontar, 0) Onde a variavel "descontarhora" tem o valor das horas que voce quer descontar e a variavel "descontar" tem o valor dos minutos que voce que descontar Ate mais Donati

Gabriel esqueci de colocar tambem, na linha txtResultado.Text = TimeSerial(Hour(tempo), Minute(tempo) - descontar) está faltando um virgula 0 no fina da linha. então a linha acima ficaria txtResultado.Text = TimeSerial(Hour(tempo), Minute(tempo) - descontar, 0) T+ mais Donati

bom dia bastar dar o comando Replace Por exemplo text1.text = replace(text1.text, " ", "") Com este comando voce ira retirar todos os espaço em banco do campo text1.text Ate mais Donati

Gabriel O que voce esta fazendo errado é que no campo mkeTempo2.Text voce tem que digitar o que tem que ser descontado no formato inteiro. por exemplo sse voce vai descontar 30 minutos basta digitar 30 e não 00:30 o erro na sua aplicação esta ai Ate mais Donati

Segue abaixo um dos XMLs que terei que ler. − <ans:mensagemTISS> − <ans:cabecalho> − <ans:identificacaoTransacao> <ans:tipoTransacao>ENVIO_LOTE_GUIAS</ans:tipoTransacao> <ans:sequencialTransacao>25</ans:sequencialTransacao> <ans:dataRegistroTransacao>2007-03-15</ans:dataRegistroTransacao> <ans:horaRegistroTransacao>19:41:00</ans:horaRegistroTransacao> </ans:identificacaoTransacao> − <ans:origem> − <ans:codigoPrestadorNaOperadora> <ans:CNPJ>87827689002405</ans:CNPJ> </ans:codigoPrestadorNaOperadora> </ans:origem> − <ans:destino> <ans:registroANS>002020</ans:registroANS> </ans:destino> <ans:versaoPadrao>2.01.01</ans:versaoPadrao> </ans:cabecalho> − <ans:prestadorParaOperadora> − <ans:loteGuias> <ans:numeroLote>1</ans:numeroLote> − <ans:guias> − <ans:guiaFaturamento> − <ans:guiaResumoInternacao> − <ans:identificacaoGuiaInternacao> <ans:registroANS>02020</ans:registroANS> <ans:dataEmissaoGuia>2007-03-13</ans:dataEmissaoGuia> <ans:numeroGuiaPrestador>78963</ans:numeroGuiaPrestador> <ans:numeroGuiaOperadora>78963</ans:numeroGuiaOperadora> </ans:identificacaoGuiaInternacao> <ans:numeroGuiaSolicitacao>89656</ans:numeroGuiaSolicitacao> − <ans:dadosBeneficiario> <ans:numeroCarteira>32112654112</ans:numeroCarteira> <ans:nomeBeneficiario>PACIENTE INTERNO TISS INTERNACAO</ans:nomeBeneficiario> <ans:nomePlano>BASICO</ans:nomePlano> <ans:validadeCarteira>2007-12-31</ans:validadeCarteira> <ans:numeroCNS>632562344444444</ans:numeroCNS> </ans:dadosBeneficiario> − <ans:identificacaoExecutante> − <ans:identificacao> <ans:CNPJ>87827689002405</ans:CNPJ> </ans:identificacao> <ans:nomeContratado>UNIMED NORDESTE-RS-SOC.COOP.SERVICOS MEDICOS LTDA.</ans:nomeContratado> <ans:numeroCNES>4444444</ans:numeroCNES> </ans:identificacaoExecutante> <ans:caraterInternacao>E</ans:caraterInternacao> <ans:acomodacao>13</ans:acomodacao> <ans:dataHoraInternacao>2007-03-13T01:46:00</ans:dataHoraInternacao> <ans:tipoInternacao>1</ans:tipoInternacao> <ans:regimeInternacao>1</ans:regimeInternacao> − <ans:internacaoObstetrica> <ans:emGestacao>0</ans:emGestacao> <ans:aborto>0</ans:aborto> <ans:transtornoMaternoRelGravidez>0</ans:transtornoMaternoRelGravidez> <ans:complicacaoPeriodoPuerperio>0</ans:complicacaoPeriodoPuerperio> <ans:atendimentoRNSalaParto>0</ans:atendimentoRNSalaParto> <ans:complicacaoNeonatal>0</ans:complicacaoNeonatal> <ans:baixoPeso>0</ans:baixoPeso> <ans:partoCesareo>0</ans:partoCesareo> <ans:partoNormal>0</ans:partoNormal> <ans:declaracoesNascidosVivos/> <ans:obitoMulher>1</ans:obitoMulher> </ans:internacaoObstetrica> <ans:obitoNeonatal/> − <ans:diagnosticosSaidaInternacao> − <ans:diagnosticoPrincipal> <ans:nomeTabela>CID-10</ans:nomeTabela> <ans:codigoDiagnostico>B01</ans:codigoDiagnostico> <ans:descricaoDiagnostico>VARICELA [CATAPORA]</ans:descricaoDiagnostico> </ans:diagnosticoPrincipal> </ans:diagnosticosSaidaInternacao> − <ans:procedimentosRealizados> − <ans:procedimentoEquipe> − <ans:equipe> − <ans:membroEquipe> − <ans:codigoProfissional> <ans:cpf>58217010404</ans:cpf> </ans:codigoProfissional> − <ans:identificacaoProfissional> <ans:nomeExecutante>ANDERSON ANDRADE</ans:nomeExecutante> − <ans:conselhoProfissional> <ans:siglaConselho>CRM</ans:siglaConselho> <ans:numeroConselho>4545</ans:numeroConselho> <ans:ufConselho>PE</ans:ufConselho> </ans:conselhoProfissional> </ans:identificacaoProfissional> <ans:cpf>58217010404</ans:cpf> <ans:posicaoProfissional>0</ans:posicaoProfissional> </ans:membroEquipe> − <ans:membroEquipe> − <ans:codigoProfissional> <ans:cpf>00420824049</ans:cpf> </ans:codigoProfissional> − <ans:identificacaoProfissional> <ans:nomeExecutante>RUBENS S RAMOS</ans:nomeExecutante> − <ans:conselhoProfissional> <ans:siglaConselho>CRM</ans:siglaConselho> <ans:numeroConselho>81</ans:numeroConselho> <ans:ufConselho>RS</ans:ufConselho> </ans:conselhoProfissional> </ans:identificacaoProfissional> <ans:cpf>00420824049</ans:cpf> <ans:posicaoProfissional>1</ans:posicaoProfissional> </ans:membroEquipe> − <ans:membroEquipe> − <ans:codigoProfissional> <ans:cpf>00352608072</ans:cpf> </ans:codigoProfissional> − <ans:identificacaoProfissional> <ans:nomeExecutante>JOSE C BELARDINELLI</ans:nomeExecutante> − <ans:conselhoProfissional> <ans:siglaConselho>CRM</ans:siglaConselho> <ans:numeroConselho>213</ans:numeroConselho> <ans:ufConselho>RS</ans:ufConselho> </ans:conselhoProfissional> </ans:identificacaoProfissional> <ans:cpf>00352608072</ans:cpf> <ans:posicaoProfissional>6</ans:posicaoProfissional> </ans:membroEquipe> </ans:equipe> − <ans:procedimentosExamesRealizados> − <ans:procedimentoRealizado> <ans:horaInicio>14:06:00</ans:horaInicio> <ans:horaFim>15:06:00</ans:horaFim> − <ans:procedimento> <ans:tipoTabela>02</ans:tipoTabela> <ans:codigo>45080194</ans:codigo> <ans:descricao>CESARIANA</ans:descricao> </ans:procedimento> <ans:quantidadeRealizada>300</ans:quantidadeRealizada> <ans:reducaoAcrescimo>100</ans:reducaoAcrescimo> <ans:valor>723.33</ans:valor> <ans:valorTotal>723.33</ans:valorTotal> <ans:data>2007-03-13</ans:data> </ans:procedimentoRealizado> </ans:procedimentosExamesRealizados> </ans:procedimentoEquipe> </ans:procedimentosRealizados> − <ans:OPMUtilizadas> − <ans:identificacaoOPM> − <ans:OPM> <ans:tipoTabela>02</ans:tipoTabela> <ans:codigo>400000001</ans:codigo> <ans:descricao>PROTESE TOTAL JOELHO</ans:descricao> </ans:OPM> <ans:quantidade>2</ans:quantidade> <ans:valorUnitario>0.01</ans:valorUnitario> <ans:valorTotal>0.02</ans:valorTotal> </ans:identificacaoOPM> − <ans:identificacaoOPM> − <ans:OPM> <ans:tipoTabela>02</ans:tipoTabela> <ans:codigo>40000002</ans:codigo> <ans:descricao>FILME PARA RAIO X TAMANHO 20 X 25</ans:descricao> </ans:OPM> <ans:quantidade>2</ans:quantidade> <ans:valorUnitario>33.45</ans:valorUnitario> <ans:valorTotal>66.9</ans:valorTotal> </ans:identificacaoOPM> <ans:valorTotalOPM>66.92</ans:valorTotalOPM> </ans:OPMUtilizadas> <ans:tipoFaturamento>P</ans:tipoFaturamento> − <ans:valorTotal> <ans:servicosExecutados>723.33</ans:servicosExecutados> <ans:diarias>0</ans:diarias> <ans:taxas>0</ans:taxas> <ans:materiais>0</ans:materiais> <ans:medicamentos>0</ans:medicamentos> <ans:gases>0</ans:gases> <ans:totalGeral>723.33</ans:totalGeral> </ans:valorTotal> </ans:guiaResumoInternacao> </ans:guiaFaturamento> </ans:guias> </ans:loteGuias> </ans:prestadorParaOperadora> − <ans:epilogo> <ans:hash>05BAEBBFE04EFD1C8C80CC1CA95ADAAA</ans:hash> </ans:epilogo> </ans:mensagemTISS>[/codebox]

BOm Dia Galera Estou iniciando um projeto em VB com XML, gostaria de saber se alguém tem algum exemplo de codigo fonte usando o XMLDOM???? Eu achei no site do Marcorrati um exemplo, porem é muito simples (já me ajudou bastante) porem o XML que vou ler é bastante complexo então precisava de um fonte de exemplo lendo um XML mais complexo para me basear Ate Mais Donati

fala ai Ao meu ver o erro esta nesta parte Dim BancoDeDados As Database Dim TBCliente As Recordset Dim TBProdutos As Recordset Dim TBPedidos As Recordset Aqui esta faltando referenciar o recordSet ao ADO, o seu codigo ficaria assim Dim BancoDeDados As Database Dim TBCliente as ADODB.Recordset Dim TBProdutos as ADODB.Recordset Dim TBPedidos as ADODB.Recordset Espero ter ajudado T+ FUI!!!!!!!!!!!!!!!!!!

boa tarde A unica forma de validar um cep é pelo seu tamanho, ou seja 5 caracteres o hifen e depois mais 3 caracteres (00000-000). porem voce pode recorrer a algum site da internet para que o usuario faça uma busca pelo seu endereço quando ele não sabe ou não se lembra do CEP de seu residencia. Neste caso basta colocar um botao para realizar essa busca, neste evento chame o internet explorer ou bowser padrão direcinando para algum site de busca de CEP Ate mais

Cara quando você criou o banco de dados que tipo de campo foi criado para guardar esses valores "S" e "N")????? FUI!!!!!!!!!!

Opa beleza!!!! aparentemente o problema é simples, pois quando você usa like no Access tem que usar o simbolo "*", porem no SQL server voce tem que usar o simbolo % veja como ficaria o seu codigo Dim Sql As String Sql = "SELECT Apelido, Nome, FoneFixo, FoneCel, email FROM Agenda WHERE " Sql = Sql & "Apelido LIKE '" & TxtPesq.Text & "%' or Nome LIKE '" & TxtPesq.Text & "%' " Sql = Sql & "or FoneFixo LIKE '" & TxtPesq.Text & "%' or FoneCel LIKE '" & TxtPesq.Text & "%' " Sql = Sql & "or email LIKE '" & TxtPesq.Text & "%'" AdoAge.RecordSource = Sql AdoAge.Refresh[/codebox] Espero ter te ajudado FUI!!!!!!!!!!!!!

Bom faz tempo que eu não uso DAO tambem mas acho que o codigo tem que ser assim: rs = DtUser.Database.OpenRecordset("SELECT * FROM tabela WHERE Nome='" & nome.Text & "'") If rs.EOF = false And rs.BOF= false Then MsgBox "Usuário já existente", vbInformation, "Aviso" DtUser.Recordset.CancelUpdate Else DtUser.Recordset.Update End If[/codebox] faz alguns teste ai!!!!!! t+ FUI!!!!!!!!!!!!!!!!!

bom dia erik basta colocar no evento click do botao o caminho para o cmd.exe por exemplo Private Sub Command1_Click() Shell "C:\WINDOWS\system32\cmd.exe" End Sub Ate mais FUI!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

e ai beleza!!!!!! Segue abaixo um exemplo usando um grid proprietario (SPREAD), mas a funcionalidade é bem parecida com o grid Private Sub sprProcessos_DblClick(ByVal Col As Long, ByVal Row As Long) Dim strNumProcesso As String Dim strAnoProcesso As String Dim strNmeAutorProcesso As String Dim strVara As String Dim intPosicao As Integer sprProcessos.Row = sprProcessos.ActiveRow sprProcessos.Col = 1 If Trim(sprProcessos.Text) = "" Then Exit Sub End If sprProcessos.Col = 1 intPosicao = InStr(sprProcessos.Text, "/") strNumProcesso = Trim(Mid(sprProcessos.Text, 1, intPosicao - 1)) strAnoProcesso = Trim(Mid(sprProcessos.Text, intPosicao + 1, Len(sprProcessos.Text))) sprProcessos.Col = 2 strNmeAutorProcesso = Trim(sprProcessos.Text) sprProcessos.Col = 3 strVara = Trim(sprProcessos.Text)[/codebox] Espero ter te ajudado ate mais FUI!!!!!!!!!!!!!!!!!!

fala ai quando voce coloca exit sub, o sistema simplesmente para de executar aquela sub e retorna ao ponto de onde ela foi chamada. fui!!!!!!!!!!!!!

Bruno, isto esta acontecendo devido voce não colocar um exit sub abaixo da linha; dtuser.recordset.cancelupdate veja como ficaria o seu codigo Var = "Nome='" & nome.Text & "'" DtUser.Recordset.FindFirst (Var) If Var <> 0 Then MsgBox "Usuário já existente", vbInformation, "Aviso" DtUser.Recordset.CancelUpdate exit sub End If DtUser.Recordset.Update pois se voce não colocar o exit sub o sistema vai continuar executando a rotina e tambem ira executar a linha DtUser.Recordset.Update Espero ter te ajudado em alguma coisa fui!!!!!!!!!!!!