brunohjoia

Okok.... Bom, quando eu disse q a versao do meu MDAC era a 2.8 o Graymalkin perguntou se era na máquina cliente. Pelo que eu sei, se eu tenho na minha maquina a versão 2.8 do MDAC, presume-se q o package & deployment wizard adicione ao pacote a versão 2.8 do MDAC, instalando-o automaticamente na máquina cliente junto com o resto do sistema não é? Enfim... eu acabei fazendo o download do Dcom98 e o aplicativo q configura o Dcom98(pois o proprio package & deployment dizia q esse Dcom seria necessário em maquinas com Win95 ou Win98)... Então, antes de instalar meu sistema no Win98, eu instalei o Dcom98 e o aplicativo q o configura, e só depois tentei instalar o meu sistema. O q aconteceu foi que aquele mesmo erro ("The file 'C:\W98\TEMP\msftqws.pdw\$(DLLSelfRegisterEx' could not be registered because it was not found") continua aparecendo após a instalação do sistema, o que força a remoção do q foi instalado. Então, para testar se o problema era realmente o Dcom, eu resolvi tentar instalar o pacote no proprio WinXP q eu uso. Mesmo assim, o erro persiste no WinXP. Com isso eu chego à conclusão óbvia de que o DCOM não é o problema.... Que arquivo é esse q está faltando ('C:\W98\TEMP\msftqws.pdw\$(DLLSelfRegisterEx')?

Olá! A minha versão do Mdac, acredito eu, q seja a 2.8, pois tentei instalar o Mdac 2.8 e ele disse q já tenho os recursos do 2.8. Já com relação aos Instaladores, eu só não uso outros (Inno por exemplo) porque eles exigem conhecimento em scripts... e eu não tenho esse conhecimento. Além disso, eu não sei se eles fazem como o pack & Deployment, q já me diz quais arquivos precisam ser instalados juntos com o EXE. Mesmo assim, vou tentar me informar sobre esses instaladores Obrigado

Dá sim! EU acabei conseguindo... é só excluir todos os registros das tabelas e depois ir em Ferramentas>>Utilitarios de Banco de Dados>> Compactar e Corrigir Banco de Dados Aí o contador da autonumeração é reiniciado Vlw galera

Olá! Eu desenvolvi um programa usando o Win XP. Estou com problemas na hora de instalar o meu programa em máquinas com Windows 98 ou inferior. Eu usei o proprio Pack & Deployment Wizard do VB para criar o Setup de instalação do meu sistema, e quando ele terminou de criar o Setup apareceu a seguinte mensagem: "You have included mdac_typ.exe in your installation package. If you will be installing this package on a Windows 95/98 system, it will require DCOM98 to install properly." Então quando eu vou instalar o meu sistema num Win 98, ele instala normalmente o data access components e copia os arquivos necessários, mas no final aparece a seguionte mensagem de erro, impedindo a instalação: "The file 'C:\W98\TEMP\msftqws.pdw\$(DLLSelfRegisterEx)' could not be registered because it was not found" Será que as duas mensagens que eu recebi têm algo a ver? Se sim, como eu faço para encontrar esses arquivos dos quais ele fala? Desde já Agradeço! Bruno

Olá! Eu tenho um campo (cod_funcionario) numa tabela que é do tipo autonumeração. Essa tabela já tem 500 registros, portanto, o ultimo registro do campo cod_funcionario está com o valor 500. Mas então eu excluí todos os registros dessa tabela, e quando vou começar a adicionar registros novamente, o campo cod_funcionario começa do 501, e não do 1, como eu gostaria que fosse. Não tem como fazer o Access "reiniciar" esse campo de autonumeração para que volte a começar do 1? Obrigado!

Já te mandei o e-mail! brigadaum!

Pra falar a verdade eu não sei se essa solução que você deu iria dar certo porque eu estou usando essa consulta para exibir dados em um relatorio do access... A minha intenção é mudar a consulta para que eu não precise construir varios relatorios diferentes, mas apenas um, que mostre os dados a partir desssa consulta. Mas se tiver como fazer um relatorio do access puxar os dados de um Recordset, então essa sua sugestão seria uma mao na roda! Se tiver, por favor me explique como fazer esse Recordset! Obrigado!

Não, o access não está aberto! Mesmo que eu faça o logoff da maquina e execute o programa depois, sem nem sequer abrir o access, ele acusa esse erro.... É estranho porque em outros forms eu consegui abrir o banco de dados através de código, embora o codigo uilizado tenha sido outro. No outro form eu utilizei o Objeto Access.Application e não o DAO.Database. O problema é q utilizando o Access.Application eu não consigo editar minhas consultas!!! O que será q está acontecendo? Você não tem nenhuma sugestão de código ae?

Sim, mas eu já tinha marcado essa referencia e mesmo assim não consigo encontrar na biblioteca nenhum metodo que me permita editar a consulta, apenas exibí-la... Eu também já tentei de outras formas, mas não consegui. Olha só o meu código: Dim MySQL As String Dim MyDB As Database Dim MyQuery As QueryDef Set MyDB = Workspaces(0).OpenDatabase(CurDir & "\BancaJornal1.mdb", True, False) MySQL = "SELECT * FROM Produtos WHERE Produtos.cod_fornecedor=" & frmFornecedores.txtCodigo Set MyQuery = MyDB.CreateQueryDef("ProdutosConsulta", MySQL) Quando eu executo a rotina o VB afirma q o banco de dados já está aberto de forma exclusiva pelo ADM do Sistema, e aí ele dá erro! O que está errado no meu codigo? O q está faltando? Me deem uma ajudinha ae galera!!!

Aew Galera!!! Ultimamente tenho tido muitas duvidas mesmo não é?... heheh Agora eu estou precisando montar uma consulta pelo VB. Na verdade já existe um arquivo .MDB no qual eu devo criar a consulta. Eu já aprendi a abrir o arquivo .MDB pelo VB, e agora eu quero criar uma nova consulta nesse arquivo usando apenas código no VB. E agora? Como é que eu crio essa consulta bendita consulta pelo VB? Eu também gostaria de poder editar a consulta posteriormente também! Alguém aí pode me ajudar? Obrigadou!!!!

Aew! To com um pequeno problema aki Como vocês bem devem saber, quando nós ligamos um DataGrid a um Adodc (o qual está ligado à um banco de dados do access), os nomes dos campos do DataGrid ficam identicos aos nomes dos campos da tabela no access. Mas eu queria deixar meu programa mais claro para o Usuário, e para isso, gostaria que os nomes dos campos no DataGrid fossem outros... Eu já tentei ir no Acces e preencher o atributo "Legenda" do campo com o nome que eu gostaria q aparecesse, mas no DataGrid não há mudança alguma... Alguém aí sabe como colocar outro nome de Campo no DataGrid?

Olá... eu uso o Norton Internet Security 2004 e recebo muitos avisos sobre tentativas de invasão com cavalos de tróia... só que agora a variedade dos cavalos de Troia usados é muito grande... Estou ficando preocupado, pois não tenho certeza se meu pc já foi invadido... só sei q apareceram algumas musicas no meu pc q não fui eu q baixei pelo Kazaa!!! muito estranho isso... Como os ataques são constantes e o ip do invasor sempre muda, eu acredito q sejam varios invasores, mas certa vez me disseram q pode ser apenas um invasor, usando diferentes terminais para tentar me invadir... Uma coisa importante é q, po coincidencia ou não, os ataques começaram depois q instalei o SP2 do WinXP. Agora eu tenho duas duvidas: 1- Como eu faço para saber se eu já fui invadido? 2- Como o Cara q tenta me invadir sempre encontra o meu Ip, uma vez q ele é dinamico? Agradeço a quem puder ajudar! Bruno Joia

Olá!!! alguém aí sabe como é que eu posso fazer desaparecer ou simplesmente desabilitar o 'X' (botão que fecha o form) da ControlBox de um MDIForm??? Eu sei fazer com forms normais, pois é só alterar a propriedade controlbox para false, mas o MDIForm não tem essa propriedade.... Agradeço quem puder Ajudar Bruno Joia

descobrio qual era o problema. na verdade o adodc exige que haja alguma label ou text ou qualquer outro objeto ligado a ele para q ele funcione. Bastou eu adicionar uma label invisivel no form e liga-la ao adodc que funcionou falou!

Sim, esta tudo certinho com a configuração do adodc. Por via das duvidas eu criei outro adodc, configurei tudinho e o testei, mas deu o mesmo problema. Então eu fiz outro teste: eu declarei option explicit no inicio, e depois coloquei uma linha de codigo "adodc30.recordset.movefirst", sendo que esse adodc30 não existe. O resultado é uma mensagem de erro dizendo que a variável não foi declarada.... Eu cheguei então à conclusão de que o VB está reconhecendo os novos adodc como variáveis, e não como objetos, e por isso ocorre o erro. Mas eu não sei o q fazer.... Alguém aí pode me ajudar???????

Aew pessoal, é o seguinte. Eu tenho um formulário de vendas e um botão de "realizar venda". Esse botão deve atualizar as tabelas de produto, de finanças e de vendas de acordo com os produtos que serão vendidos, os quais estão numa flexgrid(fgrProdutos). Eu já tinha adicionado um adodc3, o qual continha os dados da tabela de Produtos da loja. Era através desse adodc que o botão atualizava a tabela de produtos, e funcionava perfeitamente. Então eu adicionei um adodc1 para atualizar a tabela de finanças, e no botão de realizar venda, coloquei o seguinte codigo: Private Sub cmdBaixar_Click() If fgrProdutos.Rows > 2 Then 'Esta parte apenas subtrai do estoque a quantidade de unidades vendidas de cada produto For aux = 1 To fgrProdutos.Rows - 2 fgrProdutos.Row = aux Adodc3.Recordset.Find ("cod_produto=") & Val(fgrProdutos.TextMatrix(aux, 0)), , , 1 Adodc3.Recordset!estoq_produto = Val(Adodc3.Recordset!estoq_produto) - Val(fgrProdutos.TextMatrix(aux, 3)) Adodc3.Recordset.Update Next Adodc3.Recordset.MoveFirst 'Esta parte atualiza a tabela de finanças For aux = 1 To fgrProdutos.Rows - 2 fgrProdutos.Row = aux Adodc3.Recordset.Find ("cod_produto=") & Val(fgrProdutos.TextMatrix(aux, 0)), , , 1 Adodc1.Recordset.Find ("dia=") & VBA.Date, , , 1 Adodc1.Recordset!vendas_dia = Adodc1.Recordset!vendas_dia + 1 Adodc1.Recordset!lucro_dia = Adodc1.Recordset!lucro_dia + CCur(Adodc3.Recordset!lucro_produto * Val(fgrProdutos.TextMatrix(aux, 3))) Adodc1.Recordset!saldo_dia = Adodc1.Recordset!saldo_dia + CCur(Adodc3.Recordset!preco_produto * Val(fgrProdutos.TextMatrix(aux, 3))) Adodc1.Recordset!caixa_final = Adodc1.Recordset!caixa_final + CCur(Adodc3.Recordset!preco_produto * Val(fgrProdutos.TextMatrix(aux, 3))) Adodc1.Recordset.Update Next Adodc1.Recordset.MoveFirst 'Limpa a lista de produtos fgrProdutos.Clear With fgrProdutos .Rows = 2 .TextMatrix(0, 0) = "#" .TextMatrix(0, 1) = "Produto" .TextMatrix(0, 2) = "Preço (R$)" .TextMatrix(0, 3) = "Quantidade" .TextMatrix(0, 4) = "Estoque" .ColWidth(1) = 2200 .ColWidth(0) = 900 .ColWidth(4) = 850 End With lblTotProdutos.Caption = Empty lblTotPagar.Caption = Empty End If End Sub *fgrProdutos é uma flexGrid, onde estarão os itens que serão vendidos. O problema é que quando o botão vai executar qualquer ação com o Adodc1, aparece a seguinte mensagem de erro: "Run-Time Error '91' , Object Variable or With Block Variable not set." O que significa esse erro? Como posso fazer funcionar????

pode deixar... já resolvi meu problema

Eu já tentei fazer isso que vocês sugeriram, mas o código ficaria um pouco extenso... Mas tudo bem.... se é a unica solução.... Vlw!

Cara, existe um evento em alguns controles que se chama keydown. Com ele você pode executar uma ação quando o usuário apertar uma tecla, sem precisar saber o ASCII da mesma. Se você quiser inibir a tecla CTRL, por exemplo, faça o seguinte: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) if keycode = vbKeyControl then msgbox "Tecla desativada" End if End Sub Para você encontrar o nome das outras teclas, entre no Object Explorer do VB e consulte KeyCodeConstants falou!

Olá pessoal. Até então eu só usava o data control no meu acesso aos bancos de dados, e quando dava algum erro, o numero do erro era simples, do tipo "13" ou "1114". Mas com o adodc os numeros dos erros são complexos, do tipo "1653656568 (86896)". Por causa disso eu não consigo tratar alguns erros no adodc. NO caso, o problema acontece quando um usuário tenta adidionar à base de dados um NOVO registro, e esse cria um valor duplicado, o qual não é não autorizado, por ser a chave primária. Com o data seria simples tratar esse erro, pois era só colocar assim: On error Goto trataerro trataerro: if err="numero" then msgbox "Erro" end if Mas como o numero do erro no adodc é complicado, não é possível fazer dessa maneira. Alguém aí conhece outro modo de tratar um erro com o adodc?

Aew!!!! Funcionou!!! Mais uma vez, como sempre, você resolveu meu problema cara!!!!!!! É impressionante!! Quanto a busca, eu nem conhecia essa função que você usa ("DateValue()"). Por enquanto eu não enfrentei nehum problema quanto à busca, e deu tudo certo com essa função que eu uso... Levando em consideração que meu VB6 está atualizado com o SP6. Mas se der algum erro, pelo menos eu já sei o que pode ser!!! Vlw!

Sandra, eu acho que usar o Data Control e o MsFlexGrid não é a melhor opção no seu caso. Ficaria muito, mas muito mais simples se você usasse um Adodc e um DataGrid, respectivamente (procure-os no menu Project>>Components). Após adicionar esses controles no seu formulário, basta que você configure o adodc1 para que ele "pegue" os dados da tabela de seu banco de dados. Depois disso basta definir a propriedade DataSource do Datagrid como adodc1. Pronto! Com isso você já resolveu seu problema! Depois, para você realizar a busca, você deve alterar a propriedade RecordSource do Adodc de acordo com a sua necessidade de busca(Você só conseguirá se conhecer a linguagem SQL e souber mecher com o adodc). Se você não conhecer SQL, eu sugiro que você corra atrás para aprender... Não é muito dificil aprender SQL. Qualquer coisa é só postar aqui!!! Espero ter ajudado Bruno Joia

Olá pessoal... To com um problema aparentemente simples que já está torrando minha paciencia... é o seguinte: Eu tenho na minha base de dados do access 2000 uma tabela com um campo chave primária chamado "dia" do tipo Data/Hora (formato:Data Abreviada), e no meu form um Calendar Control. Toda vez que o usuário carregar o formulário, este verifica se a data atual do sistema já está em algum dos registros dessa tabela. Caso não esteja, ele adiciona a data automaticamente na tabela. Para isso uso o seguinte código: Private Sub Form_Load() Adodc2.Recordset.Find ("dia=" & Date), , , 1 If Adodc2.Recordset.EOF Then Adodc2.Recordset.AddNew lblDia.Caption = Date Adodc2.Recordset.Update Adodc2.Recordset.MoveLast End If Calendar1.Today End Sub Até aí tudo bem, pois funcionou certinho. O problema é que eu também quero que, quando o usuário clique numa determinada data do Calendar Control, este me leve até o lugar onde está registrada a data no banco de dados, caso ela já esteja no banco de dados, é claro. Então eu tentei usar o seguinte código: Private Sub Calendar1_Click() Adodc2.Recordset.Find ("dia=" & Calendar1.Value), , , 1 If Adodc2.Recordset.EOF Then mgsbox "não existe" End If End Sub Mas quando, para efeito de teste, eu clico numa determinada data do Calendar que ainda não está no banco de dados, ao invés de aparecer a msgbox, ele altera o registro atual, mudando assim, a sua data e, quando o registro já existe ele acusa um erro, pois não podem existir registros duplicados na base de dados... Alguém aí pode me dizer o que está acontecendo e como posso resolver isso???

Ok!!! Obrigado pela ajuda pessoal... mas eu queria saber se esses avisos do meu Norton Internet Security significam que meu PC foi invadido ou não... estou em dúvida!!!! Além disso, o q é engraçado é que eu não encontro nenhuma porta 12345 ou 20034 aberta ao usar o comando netstat no prompt de comando... Eu já executei um antispyware e o stinger da mcafee e nada de encontrar o trojan... obs: Vale lembrar que, por coincidencia ou não, esses ataques começaram após eu ter instalado o SP2 do Windows XP Home. Pode ser que esse não seja o motivo, já que eu tb entri em um site de cracks e serial numbers.... talvez o problema seja este também.... Alguém aí sabe me dizer se eu realmente fui invadido? Ah, e se eu instalar esses softwares que me recomendaram não vai dar conflito com meu NIS?

Aew galera... Acontece que de uns dias para cá (desde 25/10/2004) o meu pc tem sofrido diversos ataques de cavalo de Tróia NetBus e TransScout. Eu uso o Norton Internet Security 2003, e eu estava dando uma olhada nos registros de ataque que recebí percebí que esses ataques vêm de várias partes do mundo. Eu queria saber se os crackers mantém contatos do tipo "Pcs que podemos atacar..."?, porque de repente todos eles resolveram me atacar de uma vez. Outra coisa que eu percebí é que sempre que eu recebo um ataque de cavalo de tróia, na parte de firewall do visualizador de registros do NIS aparecem 3 mensagens referentes ao ataque. A primeira diz assim: 1-Ataque de Cavalo de Tróia detectado no endereço 211.108.120.233 pela regra "Bloqueio padrão do cavalo de Tróia NetBus". Acesso bloqueado por 30 minutos. A segunda: 2- Regra "Bloqueio padrão do cavalo de Tróia NetBus" bloqueada (211.108.120.233,NetBus(12345)) Conexão TCP de entrada Endereço, serviço local é (CASA(200.158.15.143),NetBus(12345)) Endereço, serviço remoto é (211.108.120.233,3670) O nome do processo é "N/A" e a terceira: 3- Regra Bloqueio padrão do cavalo de Tróia NetBus correspondente Endereço remoto (211.108.120.233,3670) Eu queria saber exatamente o que significam estas duas ultimas mensagens... Por acaso significa que o invasor conseguiu invadir??? E quais a providencias que devo tomar para evitar novos ataques? Obrigado!