Danleonhart

@ Anderson Fernandes: Deu pra se ter uma noção de como funciona o script sim ! só um detalhe que pode gerar dúvidas para outros que possam acessar este tópico... na linha : a numeração que vem após a string de conexão (" 1, 3 ") é o mesmo que "adOpenKeyset, adLockOptimistic" ? Pois se for por "ordem" não seria : "adOpenDynamic, adLockPessimistic" Na verdade isso é só pra detalhe mesmo... pois no meu caso, não foi nem necessário incluir...porém apontei " adOpenKeyset, adLockReadOnly " pois estou utilizando este tipo desde o início... Mais uma vez Obrigado ! B)

@ Anderson Fernandes: Cara, funcionou perfeitamente ! Será que teria como você colocar comentários de como funciona este script ?! assim não só eu mais outros usuários não irão apenas "copiar" & "colar", mas iremos entender como roda o script, e até aplicar em futuras aplicações ! Obrigado mais uma vez pela rápida e correta resposta ! Tudo de bom para você ! :rolleyes:

Pessoal, seguinte: Tenho um ComboBox onde ele puxa dados de uma tabela do Access...essa tabela tem duas colunas: "Artigo & Gramatura", uma é ligada ao Combo (Artigo), e a outra apenas armazena as informações... Estou tentando sem sucesso configurar para que quando selecionado determinado artigo no Combo (que é ligado a coluna "Artigo") uma Label seja preenchida com o valor respectivamente correspondente a ele... Tipo: Se selecionado: ALANIS no combo, seja apresentado na Label o valor: 0,354 Se selecionado ATLANTA, apresente "0,312" no Label... uso conexão ADO para comunucação Banco x Aplicativo. Só para lembrar, este DataGrid não aparece na execursão do Aplicativo...só o coloquei para exemplificar melhor o que desejo... Grato a todos !

Vou olhar sim ! até parece que não procuro, mas as vezes passo despercebido... :blush: Obrigado mais uma vez ! :)

OK Kuroi ! Vou dá uma olhada ! :D

:angry: Aqui tá osso hein pessoal... ninguém compartilha mais conhecimento nem nada ... Bem, para quem tiver problema idêntico a esse, o que ocorreu foi que no PC não havia as bibliotecas necessária para executar o aplicativo ( MSDATGRD.OCX era um deles...), o que fiz foi utilizar o "Package & Deployment Wizard" que vem no "Tools" lá em Iniciar > Programas > Microsoft Visual Studio > Microsoft Visual Studio 6.0 Tools... Ele confecciona um "Instalador" do aplicativo, e tem opção de colocar as bibliotecas necessária para executar o programa...o porém é que ele coloca todas as "DLL's & OCX's", deixando o Instalador um pouco pesado (só de bibliotecas foram 10MB), e também não gera um só arquivo, gera 4 ( a pasta Support pode ser deletada), diferente do Inno Setup que põe tudo em apenas um arquivo, mas não registra as DLL's automaticamente. Bem foi isso que fiz e deu certo. :rolleyes: "Obrigado a todos pela ajuda !" <_<

Pessoal o que pode ser isso ? Criei um executável do meu projeto VB-6, junto com ele um BD do Access até aí tudo bem... em meu PC ele roda filé, tudo beleza...porém quando coloquei em outra máquina (teste) ele apresentou o seguinte erro: Então coloquei o arquivo "MSDATGRD.OCX" e registrei também...porém agora apresentou este pró: Detalhes: * Utilizo DataGrid neste aplicativo; * O PC que utilizei para teste é recém-instalado, somente o sistema (sem Office e outros). * Coloquei o Aplicativo e o BD na mesma pasta, o "OCX" na pasta do sistema (C:\WINDOWS\System32\). Na espera pessoal...

Obrigado mais uma vez Macêdo... Já resolví este problema... agora surgiu outro na minha forma de procurar e excluir usuario encontrado... dá uma olhadinha aê: http://scriptbrasil.com.br/forum/index.php...t=0#entry610469 Grato atodos ! :rolleyes:

Pessoal.. ajudinha em DataGrid... Tenho uma forma de pesquisa no BD (Access) pelo "ID", onde ID = Codigo (neste caso no RecordSet)... como faço para configurar para se encontrar o ID no banco, deletar TODA a linha, tipo: ID Nome Telefone 15 Julio 4008-3000 A "procura" é somente pelo "ID", se encontrar e escolher "sim" (pois trata-se de uma InputBox), deletar tudo, ou seja: 15 (ID), Julio (Nome) e 4008-3000 (Telefone) a unica linha que me falta é justamente ligar a busca com deletar toda a linha. Utilizo DataGrid para visualizar as informações do BD... tem a opção de exclusão pelo proprio DataGrid, porém destivei pois estou usando "Somente leitura" (rsdados.Open SQLbd, conexao, adOpenKeyset, adLockReadOnly) "ADD" Tou tentando fazer tipo uma busca no DataGrid também... criar um botão de busca tipo para encontrar o Codigo, e se encontrado, dá opção de deletar toda linha... é viavel também. Porém não estou conseguindo configurar para fazer busca no DataGrid...tentei FindItem, sem sucesso... Mas é esperado, pois comecei a usar DataGrid agora :blush: Dicas e opiniões são bem vindas ! Grato

@Macedo: Se você puder ser mais especifico ficarei grato cara...tou lutando pra conseguir visualizar os dados do BD em um DataGrid e não estou conseguindo... Na tabela tem Nome, Data de Nascimento, Telefone... tentei esse seu metodo e não apareceu nada dentro dos campos... :unsure:

@ Macêdo... Antes de tudo queria agradecer pela resposta via "MP"...como o tópico era muito antigo, resolví não postar lá... vou colocar aqui o assunto, pois alguém pode querer saber também: Quero dizer que funcionou perfeitamente... e que resolví mudar de "MSFlexGrid" para a "DataGrid" em razão desta última apresentar a barra superior que pode ser renomeada com o nome do que compõe a coluna. Foto: Agora vou testar este script de conexão que você citou... obrigado mais uma vez.

@ Anderson... Cara, não se irrita tá...mas tem como você me explicar passo a passo estes scripts ?! tanto o Modulo quanto o Botão ?! Gosto de aprender bem detalhado, pois faz pouco menos de 2 meses que comecei a fuçar em programação (apesar de muitos falarem que VB-6 não é programação :P ) pela informação que me passar, vou tentar converter os valores finais em "minutos"... Obrigado por tudo ! Acompanhando...

Valeu Anderson mais uma vez ! Isso eu já fiz... mas continua do mesmo jeito...tou tentando agora ocultar ou desabilitar o botão de "fechar" (X), é mais pratico... nas propriedades mostram apenas os de maximizar e minimizar...tou tentando pelo código...

Olá pessoal ! Utilizo este Modulo para conexão ADO com Tabela em banco de dados do Access... Public con As ADODB.Connection Public rs As Recordset Public Function abb() Set con = New ADODB.Connection con.Open "provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\bd1.mdb;jetoldb:database" End Function Public Function fcb() con.Close End Function Estou tentando mostrar os valores da tabela em um DataGrid, porém, o tutorial que encontrei aqui no "FSB" é redirecionando uma "List" para o DataGrid... Tem como rolar um passso a passo aí pessoal de como se faz para mostrar todos os valores da tabela do Access no DataGrid ?! A tabela tem 5 colunas (Nome, Sobrenome, Endereco, Email, Telefone)... Obrigado pessoal !

Ok ! deu certinho agora ! Sabe como posso fazer para na tela de "login" (meu projeto tem uma...) ela se auto-configurar para tomar conta de toda a tela... de acordo com a resolução que tenha o micro ? tipo: se tou em PC onde a resolução seja de 1024x768, a tela de login tome conta de toda tela, sem ficar fora de padrão... o mesmo para um micro com res. de 800x600, ou 1280x960... e assim por diante... sei que tem, pois tinha um projeto assim...só que perdí e não o encontrei mais... :blush:

@Kuroi... A intenção é de que quando chegar em 23:00 ele zere...mas dê a diferença...tipo: 23:40 as 00:10 = 00:30... a opção do Anderson Fernandes funciona, porém preciso setar "data"... e para neu Form só vai ficar à mostra as caixas de Mask e o TextBox com o resultado... Serve tambem se ficar desta forma: 23:10 as 01:10 = "120" pois será um tipo de relatorio em que a diferença será anotada em minutos...mas do jeito que for apresentada serve! Obrigado !

Cara testei este código, ele atende bem ao que tou fazendo no meu projeto... o único pro que aconteceu agora foi ao "Minimizar"... Fique minimizando e aumentando constantemente que você vai ver... mas é por aí... a ideia é essa mesmo ! Obrigado pela sugestão !

Obrigado pelas dicas pessoal ! Mas ainda não foi dessa vez... sabe aqueles aplicativos que se alto redimensiona quando clicamos no "Maximizar" ?! é isso que quero fazer...estou achando que o VB-6 não dá esse tipo de opção... e se der, está muito escondido... Também não conseguí deixar de maneira que o Form reconheça a resolução que o PC está usando quando iniciado... tipo: se usar em um PC com 1024x768 a tela tem de se alto-redimensionar...mesmo válido para se for iniciado em um PC com resolução de 800x600... esta é mais outra coisa que desejo fazer, mas até o momento não obtive sucesso...mesmo assim agradeço as opniões de todos... e estou aberto a novas sugestões !

Pessoal vejam esse video e me expliquem como posso corrigir este erro... Video. Trata-se de horas & Minutos...assim está o script do Botão Private Sub cmd_calc_Click() t3.Text = Format(TimeValue(mk2.Text) - TimeValue(mk1.Text), "hh:mm") End Sub Há 2 MaskEdBox e 1 TextBox Lí diversos assuntos sobre TimeSerial & TimeValue mas sem um exemplo prático ficar dificil entender afundos... Grato a todos !

É isso Kuroi ! Independente de maximizado ou em tamanho normal, que o conteúdo do Form fique centralizado :D É essa a palavra que procurava ! @Kuroi... tens MSN ???

Pô, valeu Web a Jato ! Muito massa ! pra quem tá iniciando é bom ter exemplos a copiar ! Nota 100 !

@Kuroi... Essa dica ajudou bastante... agora tou tentando configurar para que o conteúdo do form fique inalteravel quando maximizado... em estado normal: Depois de maximizado: Quero deixar proporcional tipo "Bloco de notas" do Windows... este lado sem utilização fica um pouco estranho...

OK Kuroi...tentei de tudo aqui e não consegui resolver... caso eu descubra alguma maneira postarei aqui para todo o pessoal. :) :)

@Kuroi... Me desculpa a ignorância, mas você poderia me dá um exemplo de como funciona este comando ? acho que ele vai servir para o meu propósito no projeto...porém não sei direito como usá-lo... se você posta um exemplo (ou mais se quiser e puder) ficarei agradecido. ^_^

Olá a todos... :mellow: Só para lembrar, aos mais antigos e experientes: A maioria das pessoas que buscam informações nesse ótimo site, não conhecem afundos de linguagem, se assim não fosse, não estariamos aqui em busca de ajuda dos mais experientes... então pesso, que ao explicarem, não apenas falem de uma tal função, mas dêem um exemplo para assim têrmos uma idéia do que se está falando... Ótima dica Wilson Júnor ! Será útil para muitos iniciantes! Obrigado ! ;)