Pesquisar na Comunidade

programador em vb6, crystal report 8.5, conhecimentos em sqlserver local: Centro - Rio de Janeiro Salario: 4.000,00 + vale refeicao e vale transporte manda curriculum com pretencao salarial para giobr@yahoo.com

Pessoal, tenho um form com uma picturebox que contem um gif de loading. Estou tentando fazer com que antes de executar um método ele exiba essa imagem de carregando e feche quando terminar. ele até funciona mas em determinado momento conforme o uso ele me retorna o erro: An unhandled exception of type 'System.Threading.ThreadAbortException' occurred in System.Drawing.dll Additional information: O thread estava sendo anulado. Public Class clsModoCarregando Dim FrmLoading As New Loading Dim trdelegate As New ThreadStart(AddressOf carregarFormLoading) Dim trd As New Thread(trdelegate) Private Sub carregarFormLoading() Try FrmLoading.ShowDialog() Catch ex As ThreadAbortException Thread.ResetAbort() End Try End Sub Public Sub ExibirLoad() If Not trd.IsAlive Then trd.Name = "threadCarregando" trd.IsBackground = True trd.Start() End If End Sub Public Sub FecharLoad() If trd.IsAlive Then trd.Abort() trd.Join() End If End Sub End Class 'evento do botao pesquisar do form Private Sub btnPesquisar_Click(sender As Object, e As EventArgs) Handles btnPesquisar.Click Dim ModoCarregando As New Ambiente.clsModoCarregando If lstConsulta.Items.Count > 0 Then ModoCarregando.ExibirLoad() dtgPesquisa.DataSource = insPesquisa.pesquisar(lstConsulta, dtNomesPesquisa.Rows(0)("Tabela")) dtgPesquisa.DataMember = dtNomesPesquisa.Rows(0)("Tabela") ModoCarregando.FecharLoad() Else If txtValorPesquisa.Text = String.Empty Then MsgBox("informe o valor a ser pesquisado.", vbInformation) txtValorPesquisa.Focus() Else MsgBox("Adicione a consulta antes de pesquisar.", vbInformation) btnAdicionar.Focus() End If End If End Sub

Boa noite a todos! Estou fazendo um programa de locação e queria saber como se faz para salvar diversos itens de um list view em apenas um campo de código, ex: campo código: 1 | campo filme: filme 1; filme 2, filme 3; etc

Boa noite. Estou começando a programar em VB6 e me deparei com um bug. Tenho na minha aplicação uma variável chamada "Arqtxt" que lê o valor de um Arquivo .txt e outra variável "XML" que recebe o valor de Arqtxt: Dim Arqtxt As TextStream Dim XML As String Set Arqtxt = fso.OpenTextFile(Arquivo) XML = Arqtxt.ReadAll VetCampos(9) = "XMLAS_CCE": VetConteudo(9) = Aspas(Trim(XML)) Após fazer a leitura do arquivo, a variável XML é estranhamente populada com caracteres especiais () no início como demonstrado abaixo: <?xml version="1.0" encoding="UTF-8"?> <procEventoNFe versao="1.00" xmlns="http://www.portalfiscal.inf.br/nfe"> <evento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"><infEvento Id=" ....... </procEventoNFe> Ao tentar gravar o valor no banco, ocorre o erro "String or binary data would be truncated." A coluna da tabela que armazena o valor da variável "XML" é "XMLAS_CCE" como demonstrado abaixo: Alguém sabe onde pode estar o problema?

Boa tarde a todos. Sou iniciante em programação e dentre minhas possibilidades encontrei um determinado erro que infelizmente não consegui a solução ainda! Estou desenvolvendo um programa simples para controle de registros de documentos Dentre as funções do programa em um determinado momento eu preciso gerar um relatorio dos documentos que estão em determinados locais chamados de PDD Cada PDD é uma coluna no access! o mesmo programa foi desenvolvido em excel e funciona perfeitamente. porem de momento surgiu tal necessidade! O comando abaixo mostra o que esta sendo feito e gerando o erro! Daria certo se eu trocasse o ( rs.Open "Select *from Base where pdd='X'", db, 3, 3) por rs.Open "Select *from Base where PDD_02='X' ", db, 3, 3 porem não é viavel tendo em vista que existem 60 pontos Sub PesquisaPDD() ListView2.ListItems.Clear Dim pdd As Variant pdd = Form1.cmbpdd.Text Call ConectaDB rs.Open "Select *from Base where pdd='X'", db, 3, 3 Do Until rs.EOF Set Item = ListView2.ListItems.Add(, , rs!Codigo) Item.SubItems(1) = "" & rs(2) Item.SubItems(2) = "" & rs(3) Item.SubItems(3) = "" & rs(4) Item.SubItems(4) = "" & rs(5) rs.MoveNext Loop Call FecharDB End Sub

Oi boa noite a todos me duvida e o seguinte,eu tenho uma rotina com esse grid ,e quando mando apagar uma linha , ele sempre apaga a ultima,não a selecionada. obrigado desde já valdir

Pessoal.. Tenho um problema que é o seguinte. Tenho 3 impressoras. 1 USB TÉRMICA, 1 LPT1 TERMICA e uma LPT1 matricial em um computador, tenho a USB e a LPT1 TERMICA ligadas e em outro PC tenho a LPT1 matricial. Em um determinado momento, meu programa envia impressão para as 3 impressoras, beleza. na função da USB eu utilizo o printer.print Nas LPT1 eu utilizo o OPEN Porém eu preciso sair do OPEN, pelo seguinte: 1- Preciso alterar algumas partes da impressão nas LPT1 como: aumentar fonte, colocar negrito.... 2- Quando eu imprimo uma imagem na USB com o printer.paintpicture, se eu mandar uma impressão nas LPT1, a USB para de imprimir imagem. Conseguem entender o que acontece ? Envio uma imagem para a USB com o printer..... depois envio um texto para a LPT1 com o OPEN, ai a USB não imprime imagem mais com o printer... alguém tem uma solução ou alguma idéia ???

Comunidade Gas/Father 3 - Skype Olá, Participe da Comunidade Gas/Father 3 no skype online. Comunidade criada para usuários ou pessoas que estão iniciando no mundo da programação ou que queiram conhecer mais a ferramenta de desenvolvimento de sistemas o Gas2007 & Father 3. Você encontrará exemplos práticos como Projetos feitos no VB6, Gas e Father. Rotinas, Dicas e muito mais.. Em breve a comunidade terá um Canal no Youtube com um acervo de vídeos referente ao Father. Para participar envie uma solicitação para o skype: fabricioalmeida.com.br E fale que você quer participar da Comunidade Gas/Father 3. Partiipe! Solicite a entrada enviando para: Skype: fabricioalmeida.com.br

Bom Dia! Primeiramente venho aqui agradecer à todos do Fórum ScriptBrasil que mesmo que involuntariamente, muito me ajudam. Obrigado!!! Gostaria também de antecipar minhas desculpas caso o Tópico não esteja de acordo com as regras do fórum. Deixo também algumas observações, tais como: Obs.: Estou criando este tópico em meu trabalho, pois estou sem internet em casa ( mudei a pouco tempo e não consegui ainda transferir a instalação). Assim sendo, fica difícil postar erros etc... de maneira 100% clara e, por isso, tentarei ser claro em minhas perguntas e não me ater muito aos códigos. OBS.: Configurações de PC: I5 -2° geração, 8 GB de memória, SO - Win 7 - 64; Bem, vamos aos fatos! Sou iniciante em Visual Basic 6.0, ingressei no mesmo trabalhando com Banco de Dados Access, onde não obtive quaisquer problemas, claro, com um BD muito pequeno, algo entorno de 2000 registros. No Access sempre utilizei conexões comuns ( pelo menos para mim ) tipo." Public BD as Database "; " Public TB as Recordset "; sempre atendeu muito bem ao que eu pretendia, retornando dados de pesquisa mais rápido que um 'piscar de olhos'. Com o passar do tempo, fui lendo, lendo e relendo, assim me deparei com o Firebird, que apesar das muitas reclamações que vi sobre dados corrompidos, me despertou curiosidade, dessa maneira baixei e instalei sua versão 2.0.4, juntamente do IBExpert Personal Edition e instalei também o Firebrid ODBC Drive para win 7 64 bits. Iniciei meus testes e estudos. Achei o IBExpert muito agradável, o ISQL do Firebird de fácil manipulação etc... tudo muito lindo, Fiz a transferência dos mesmos dados Acess para o Banco do Firebird, foi ai que começou aparecer alguns problemas. 1° O Banco de dados é muito pequeno ( pouco menos de 2000 registros ), no Access as consultas retornavam resultados em "menos de um piscar de olhos" ( como já disse acima ), nem dava para perceber a "olho nu" , tal sua velocidade. Com o Firebird, eu pensei que seria os mesmos resultados ( em velocidade ) ou até melhores, no entanto ele demora entre 3 e 4 segundos para me retornar a pesquisa, isto com o Banco já aberto. Ao meu ver, muito lento. Não sei se tem muito haver com a velocidade o fato de eu ter colocado o Page_Size em torno de 8000 ( não lembro o valor exato.) 2° Quando abria o BD com o Access era só eu indicar onde estava o BD, tipo: "C;\Banco\MeuBanco.MDB", ou usando o AppPath, de toda forma, não importando o local, sempre conseguia fazer abertura e conexão com o mesmo. Já com o Firebird, utilizando Drive ODBC e conexão ADODB, me retornou um problema. veja: Se o BD estiver na seguinte pasta "C:\Program Files\Firebird\Firebird_ODBC" consigo a conexão sem problemas. No entanto, se eu mudar o local do BD, mesmo que lá no VB6 eu altere a pasta como por exemplo "C:\SomenteUmTeste\BancoTeste\MEUBANCO.FDB", ainda assim ele me retorna o erro abaixo: Run-time error '-2147217843 (80040e4d)': [ODBC Firebird Drive]File Database is not found 3° Quando eu abria o BD com o Access, se não estiver enganado, eu fazia como descrito abaixo: Private sub Form_load() Dim Banco as Database Dim TB as Recordset Set Banco = OpenDatabase("caminhadoBancodeDados", false, false) ' se não estiver enganado novamente, essa é uma conexão DAO Set TB = Banco.OpenRecordset("NomedaTabela") End Sub 4° Já utilizando ADODB eu tentei o seguinte ( dá certo na pasta que já expliquei anteriormente ): Private Sub Form_Load() Dim Banco as New ADODB.Connection Dim TB as New ADODB.Recordset Banco.ConnectionString "DRIVER = Firebrid\InterBase® Driver; UID=SYSDBA; PWD=masterkey; DBNAME=MeuBanco.FDB" Banco.Open etc.. etc... Se não estiver novamente enganado é esse código ai que eu escrevi lá em casa e com o BD lá na pasta do Firebird_ODBC funciona, mais se eu retiro de lá e especifico o local tipo: " ...... DBNAME=C:\Teste_BD\Banco\MeuBanco.FDB", ai já não funciona. Agora vem as perguntas: 1° É normal essa demora em me retornar os resultados buscados no Banco de dados? Sei que meu PC não é apropriado para servir de Servidor, mas a aplicação é pequena, e o BD é minúsculo. Contudo, ainda utilizo instruções SQL para a busca ( eu li que é um tipo de instrução bastante rápida ). 2° Caso a resposta da primeira pergunta seja: "Não, não é normal!", como posso melhorar? a Page_Size está muito alta? Baixa? Qual seria o recomendado para a minha maquina e meu BD? 3° O Drive ODBC é bom para conexões com o Firebird através do VB6?? 4° Tem algum drive melhor ( preferência grátis, afinal, estou em fase de estudo e aprendizagem ) ? Algum que vocês recomendam? 5° Esse negocio dele não reconhecer o BD quando eu o retiro do caminho " C:\Program Files\Firebird\Firebird_ODBC " tem solução? será que eu estou errando no código? 6° O que é melhor e porque.? Declarar a variável já com o New ADODB.Connection ou criar o ADODB.Connection e posteriormente mandar um New? Existe diferença? 7º Vocês tem algum Curso online ( preferência com vídeo-aulas ), pode ser PAGO que me recomendam? Não algo do tipo " ouvi dizer que esse curso é bom " e sim algo que vocês fizeram e acharam realmente bom, bem explicativo etc...? Bom gente, é isso ai, peço desculpas novamente caso o texto tenha ficado demasiadamente grande e aproveito para agradecer mais uma vez. Vocês me ajudam muito. Muito Obrigado!!! Ninguém??? :-(

Boa tarde pessoal. Meu primeiro post vem com uma dúvida que creio que é simples para alguns. Estou construindo uma tela que permite que o usuário selecione onde será salvo o seu arquivo, e eu darei o nome para o arquivo. O problema é que o código que estou utilizando não verifica mapeamentos de rede, e não consigo utilizar endereço padrão para que se necessário o usuário nem selecione o endereço. Preciso de um help urgente! Abs. CODE: Option Explicit Private Enum BIF_OPTIONS_ENUM BIF_RETURNONLYFSDIRS = &H1& BIF_DONTGOBELOWDOMAIN = &H2& BIF_RETURNFSANCESTORS = &H8& BIF_EDITBOX = &H10& BIF_VALIDATE = &H11& BIF_NEWDIALOGSTYLE = &H40& BIF_BROWSEINCLUDEURLS = &H80& BIF_USENEWUI = BIF_EDITBOX Or BIF_NEWDIALOGSTYLE BIF_UAHINT = &H100& BIF_NONEWFOLDERBUTTON = &H200& BIF_NOTRANSLATETARGETS = &H400& BIF_BROWSEFORCOMPUTER = &H1000& BIF_BROWSEFORPRINTER = &H2000& BIF_BROWSEINCLUDEFILES = &H4000& BIF_SHAREABLE = &H8000& End Enum Private Sub cmdArquivoGNRE_Click() On Error GoTo DeuErro Dim Folder As Object With CreateObject("Shell.Application") Set Folder = .BrowseForFolder(hWnd, "Pick a folder", BIF_RETURNONLYFSDIRS _ Or BIF_SHAREABLE _ Or BIF_NEWDIALOGSTYLE _ Or BIF_NONEWFOLDERBUTTON) End With If Folder Is Nothing Then txtArquivoGNRE.Text = "" Else txtArquivoGNRE.Text = Folder.Self.path End If Exit Sub DeuErro: End Sub

Solução em biometria facial para desenvolvedor delphi7 ,Vb.Net e Access VBA Khronos Tecnologia - Software/Aplicativo e consultoria em desenvolvimento biométrico Saiba mais em http://geovanny-oliveira16.wix.com/khronostecnologia Skype:Giovanny0113

Olá. Detalhe: esse mesmo erro ocorre num de nossos clientes, porém o office é o 2010 e a tela de configuração não é o caso. Meu problema é que ao tentar exportar um relatório através do VB6 para o excel 2013 uma tela do office, de download, aparece para baixar umas configurações. Isso faz com que ao voltar para a tela de exportação aparece a seguinte mensagem: "This action cannot be completed because the other application is busy. Choose 'Switch To' to activate the busy application and correct the problem." O fato é que este processo de configuração não é feito uma primeira vez, mas sempre... alguém conhece a razão disso. Nas outras versões do excel não ocorre nenhum contra tempo. pelo menos até a 2010 que é outra versão que temos para testar. att' Alexandre

Bom dia Galera estou me matando com um erro no meu form de vendas nessa linha: rsVenda.Open "Vendas", frmPrincipal.cnBiblioteca, adOpenKeyset, adLockOptimistic, adCmdTable. Diz que o objeto é obrigatório. erro 424

Bom dia Galera estou me matando com um erro no meu form de vendas nessa linha: rsVenda.Open "Vendas", frmPrincipal.cnBiblioteca, adOpenKeyset, adLockOptimistic, adCmdTable

Boa Pessoal Sou novo na codificação... :unsure: Estou muito aflito, já procurei por toda parte e não consigo encontrar codificações facil de entender para os Botões Incluir, Alterar, etc... Gostaria uma codificação Base (Para iniciantes) facil de entender no meu caso. Estou precisando de cods para os botões assinalados a "Vermelho" sff :( Agradecia :blush: