HighBass

No evento click de um botao coloquei o seguinte codigo: Set cnn = New ADODB.Connection Set RsAdo = New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\PetDog;Extended Properties=Paradox 5.x" RsAdo.Open "SELECT * FROM animal", cnn, adOpenStatic, adLockOptimistic so que deu o seguinte erro: "run-time error -2147467259 (80004005) a tabela externa não esta no formato esperado" o que faço?? me ajudem, estou desesperado atras de uma soluçao. já tentei usar o programa paradox converter, so que ele é shareware e so converte 50 registros, nesse BD eu tenho mais de 1000 registros, me ajudem, obrigado desde já

não entendi nada. Apenas preciso abrir esse BD no VB 6.0 e acessar os dados, como faço isso, me ajudem, não conheço nada de paradox, nem de delphi. Obrigado

Pessoal estou com uma encrenca aqui. Estou programando em VB e preciso converter uns arquivos (banco de dados) com a extensao *.DB Primeiro que não consigo abrir no excel, não consigo abrir no access. O que faço agora, sei que os dados estao nesse arquivo, pois o arquivo é grande. ME ajudem, preciso resolver isso o mais rapido possivel Obrigado. :ninja:

teste Shell "notepad", vbNormalFocus SendKeys "{F1}" e funcionou beleza, mas no meu programa não sei o que acontece.

Descobri uma coisa nova... Na penultima tela que da pra navegar com o TAB, tb a tecla F1 serve como atalho, porem o F1 não funciona com o sendkeys, consigo somente atraves do TAB e quando chega no foco dou enter. Na ultima tela é que ta dando dor de cabeça, porque não consigo nem navegar com a tecla TAB. O que acontece com o F1 que não funciona???

As unicas teclas que eu tenho para poder fazer alguma coisa no programa são as F1 ate F5, porem, o TAB não funciona para navegar entra as opçoes, somente posso fazer algo ou clicando ou pressionando as teclas F1 O sendkeys não faz nada, não da erro e tb não faz o que deveria fazer entendeu que é enviar a tecla F1 como se fosse um presisonamento de teclas

Olha so, desde o inicio é somente uma tela, não fica abrindo mais telas, então nesse caso, acredito que o foco esteja sempre no programa do inicio ao fim.

já tentei substituir o F1 por outra tecla, porem não faz nada, o problema é que quando o foco esta no programa é como se não existisse outra tecla de atalho a não ser os F1...F5 o codigo esta logo abaixo: Private Sub Timer1_Timer() Select Case I 'digita o usuario "adm" Case 0 SendKeys "adm" I = I + 1 'clica no botao OK Case 1 SendKeys "{ENTER}" I = I + 1 'como o foco já esta em F1, então pressiona Enter Case 2 SendKeys "{ENTER}" I = I + 1 'muda o foco para F1 com TAB e pressiona Enter Case 3 SendKeys "{TAB}" SendKeys "{ENTER}" I = I + 1 'envia o cpf/cnpj para a caixa de texto do programa e pressiona Enter Case 4 SendKeys CPF_CNPJ SendKeys "{ENTER}" I = I + 1 'ATE AQUI FEZ TUDO CERTINHO 'DAQUI PRA FRENTE não FUNCIONA MAIS 'aqui precisa abrir outra tela, porem não faz nada Case 5 SendKeys "{F1}" I = I + 1 Case 6 End End Select End Sub

O programa abre, e depois é enviado os sendkeys, estao funcionando, so que na ultima tela tem menus que so funciona se eu clicar com o mouse ou presisonar as teclas de atallho vai de F1..F5, nessa tela não da pra navegar com a tecla TAB. Nessa tela é que não vai o F1, para poder abrir a ultima tela entendeu. E ai eu já não sei como prosseguir, pois preciso abrir essa ultima tela e quem desenvolveu esse programa não tem como me ajudar. Nessa ultima tela o cursor para em um campo texto para digitar um numero (o que não é o meu caso), eu preciso prosseguir com F1, porem, como eu disse antes, não consigo tirar o foco do campo texto porque a tecla TAB não funciona nesta tela, apenas clicando com o mouse ou digitando o F1

como assim?? não entendi?? nas outras telas que tem menus, a tecla TAB funciona e assim eu consegui fazer com que funcionasse o sendkeys enviando a tecla TAB, porem nesta ultima tela do programa que o VB abre, não funciona a tecla TAB, por isso não consigo fazer o sendkeys funcionar, preciso nessa ultima tela simular o pressionamento da tecla F1, e é essa a pedra no meu sapato, se souber de algum codigo ou logica podem passar ok, obrigado.

A situaçao agora é outra. Tenho um programa que abre outro programa, e tem uma tela de menus em que não se da para mover pela tecla TAB, somente pelo mouse ou com as teclas F1..F5 Nessa tela tem um menu de opçoes onde preciso clicar nele com o mouse ou apertar a tecla F1 Porem, preciso enviar um sendkeys para o atalho que é com a tecla F1, e não consigo, não faz nada. alguém sabe me dizer o que fazer? obrigado mais uma vez.

Estou fazendo de um outro jeito, porem, agora estou com um outro problema. Estou abrindo pelo VB um outro aplicativo e nesse aplicativo tem uma tela de menu, onde a tecla F1 chama outra tela, estou usando sendkeys da seguinte forma: SendKeys "{F1}", False so que não esta acontecendo nada, alguém saberia me dizer onde esta o erro??? Eu tenho que jogar o foco para o VB novamente ou pode sempre permanecer no programa aberto?? No caso, somente a tecla F1 que não funciona, se eu colocar qualquer outra tecla funciona normalmente Obrigado.

Ola so, já tentei de tudo e não deu certo. Porem estou com outra ideia agora... Estou abrindo um arquivo .bat pelo VB, e nesse arquivo BAT tem um path de um arquivo executavel. Esse arquivo executavel tem uma tela de login onde eu preciso passar o usuario e a senha e clicar em um botao OK, cujo atalho é ALT+O. Gostaria de passar esse usuario e senha por programaçao para que assim quando eu executar esse programa e tb logo em seguida estar clicando no botao OK. Como faço isso atraves do sendkeys, pois eu não estou conseguindo. Obrigado.

Olha so: Tenho um programa com um icone na area de trabalho que tem as teclas de atalho "CTRL + ALT + A". So que eu preciso criar uma maneira de chamar esse programa dentro de um outro programa em VB, (ao qual eu estou desenvolvendo), já utilizei tb o comando shell, porem o programa não abre por bug dele mesmo, e não tenho o codigo desse programa. então pensei em utilizar as teclas de atalho do icone deste programa dentro do VB utilizando o sendkeys, porem não consigo abrir, simplesmente não acontece nada. Me ajudem pois não sei mais onde buscar ajuda. obrigado

ola, gostaria de uma ajuda. Tenho um programa na area de trabalho que tem as teclas de atalho CTRL+ALT+A Uso o VB 6 com windows XP E preciso que nessa rotina quando eu clicar no botao do formulario, esse programa se abra, utilizando as teclas de atalho, ou seja, CTRL+ALT+A já tentei com: SendKeys "^%(A)" e simplesmente não acontece nada, como posso fazer isso?? Obrigado.