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.

então, olha so, a funçao é assim: Sub Verifica_Linhas(NomeControleIf As String, ArrayText As Variant) Dim Texto As Control Dim teste As String For Each Texto In ArrayText If TypeOf Texto Is TextBox Then If Texto.Name = NomeControleIf Then etc,etc logo, eu tenho dois parametros, um diferente do outro, um é do tipo string que faz uma comparaçao no codigo e o outro é do tipo variant, ou seja, é um array de textboxs. Cada array é uma linha, ou seja, t1,t2,t3... ate 20, logo, t20 é a ultima linha. O que eu gostaria de fazer era chamar a funçao: ~ For I = 1 To 20 Call Verifica_Linhas("t" & I, t & I) Next I mas ou menos desse tipo, porem, nesse codigo acima, no segundo parametro eu to passando um string, mas tem que ser do tipo array, e isso eu não to conseguindo fazer.

aparece escrito 'array text' eu acho que já saquei o que acontece, é que o primeiro paramentro o 'T & I' é do tipo string, ate ai beleza. O problema é o segundo paramentro que tem que ser do tipo array. E se eu fizer isso: For I = 1 To 20 Call Verifica_Linhas("t" & I, t & I) Next I o segundo parametro fica como do tipo string e assim ele da erro dizendo que precisa do objeto array, entendeu. Mas eu não sei como faço para ir para a proxima array de textbox, porque se eu digitar t1 (sem aspas) funciona, porem não sei como fazer para ir para o t2,t3,t4... etc etc Acho que talvez seja isso, mas se alguém puder me ajudar a fazer isso, porque ainda não consegui resolver isso

fiz conforme a dica, mas agora ta dando erro na seguinte linha do procedimento: For Each Texto In t o erro é runtimer error 424 'object required', não entendi porque deu erro agora.... o meu codigo esta assim: Sub Verifica_Linhas(NomeControleIf As String, ArrayText As Variant) Dim Texto As Control Dim teste As String For Each Texto In ArrayText If TypeOf Texto Is TextBox Then If Texto.Name = NomeControleIf Then etc,etc chamando a funçao dessa forma, funciona beleza: Call Verifica_Linhas("t" & I, t1) tentando chamar o procedimento assim já da pau: Dim I As Integer I = 1 For I = 1 To 20 Call Verifica_Linhas("t" & I, t & I) Next I ai já não sei o que fazer.....

fiz conforme a dica, mas agora ta dando erro na seguinte linha do procedimento: For Each Texto In t o erro é runtimer error 424 'object required', não entendi porque deu erro agora....

funcionou, beleza. so que agora tenho outra duvida: esse esquema ele fez para o t1, porem preciso fazer do t1 ate o t20. to tentando isso: Dim I As Integer I = 1 For I = 1 To 20 Call Verifica_Linhas("t" & I) Next I mas ta dando erro run timer error 13 type mismatch no ", t & I)" como posso fazer com que eu consiga chamar o Verifica_Linhas para passar pelos 20 arrays de textbox??? obrigado

sim, mas veja bem, t1 é um array de objetos texts, ou seja, eu tenho t1(0), t1(1), t1(2),... Trata-se de passar um array por parametro, eu quero passar t1, t2, t3 e todos são vetores t1(0), t1(1), t1(2),... t2(0), t2(1), t2(2),... t3(0), t3(1), t3(2),... em: For Each Texto In t1 t1 é um array de textboxs.

observe esse codigo: Sub Testa_Linhas() Dim Texto As Control Dim teste As String For Each Texto In t1 nesse codigo eu faço uma pesquisa nos controles do formulario e condigo pegar apenas o vetor de texboxs cujo nome é "t1", e em seguida continuo com meu filtro pegando o index de cada um. Pois bem, eu gostaria que o t1 fosse passado como argumento para esse procedimento, pois assim eu poderia chamar esse procedimento para varios vetores de textsboxs (t1,t2,t3,...), como eu faço isso?? call Sub Testa_Linhas(t1) call Sub Testa_Linhas(t2) call Sub Testa_Linhas(t3)

não entendi É assim, no form existe 10 linhas, cada linha tem 30 textbox, ou seja cada, textbox é uma coluna certo. O que eu preciso é assim: o usuario não precisa necessariamente preencher as 10 linhas, pois cada linha seria um cadastro, ele podera ter a opçao de cadastrar apenas 8 ou 3 ou 5, dependendo da necessidade dele. E os texts que ficarem em branco não poderao ser cadastrados como sendo um registro

Ola pessoal, no meu formulario existem um array de textboxs e tenho o seguinte codigo para identificar qual controle é um textbox: For Each Texto In Controls If TypeOf Texto Is TextBox Then ' se for um controle do tipo TextBox If Texto.Name = Nome Then ' se o nome do TextBox for igual ao paramentro (coluna) If Texto.Index = TextoIndex Then 'verifica o index If Texto.Text = "" Then 'verifica se a propriedade texto é = "" Else End If TextoIndex = textindex + 1 End If End If End If Next Porem o problema é o seguinte: Com esse codigo eu pesquiso cada textbox para saber se o conteudo deles estao em branco, se estiver devera fazer outro procedimento (que não vem ao caso descrever aqui hehe), enfim, o problema: - por exemplo um array de textboxs: text1(0) text2(0) text3(0) text4(0) text1(1) text2(1) text3(1) text4(1) text1(2) text2(2) text3(2) text4(2) text1(3) text2(3) text3(3) text4(3) O codigo que eu especifiquei acima com o 'for each', começa a verificar pelo text4(3) e vai ate o text1(0), ou seja de baixo para cima. eu preciso fazer com que por exemplo, se o usuario digitar um campo na linha, essa linha sera considerada como uma linha de registro e tera que acusar falta de dados para a gravaçao na tabela, caso todos os campos da linha estejam em branco, significa que o usuario não quer gravar aquela linha e ai sera descartada. Porem se eu tiver dados apenas no textbox1 de (qualquer indice), o for já vai ter identificado como registro descartado e não continua a verificaçao, tem algum jeito de fazer esse for começar a verificaçao pelo text1(0) ao invés de começar pelo text4(3) ???? obrigado.

outra questao, eu tenho esses texts como se fosse um grid no form, com 10 linhas e 30 colunas, e eu preciso fazer um esquema com as seguintes condiçoes: - o usuario podera digitar algumas linhas de registro sem cadastrar as 10 linhas, (por exemplo 3 linhas de registro), deixando algumas linhas em branco e essas linhas em branco não poderao ser cadastradas, apenas as que o usuario digitou. - o usuario devera se mover entre as linhas e colunas atraves das setas - quando o usuario pressionar a tecla Enter, devera passar para a proxima coluna