Rodrigo Medeiros

PAra melhorar seu código eu sugiro utilize key press e crie um if da seguinte maneira se a primeira letra do txtbox for numero as proximas teclas pressionadas devem ser numeros, e so filtrar utilizando um key Asc = 0, já se for letra ele so aceita letras. outra opcao e utilizar on change significa que ao modificar o txt ele executa ai e so verificar se o primeiro caracter e numero ou letra abs

Amigos, estou com uma dúvida e espero que possam me ajudar Preciso criar uma rotina de restaurar um banco de dados. consegui fazer a rotina funcionar da seguinte maneira meu sistema tem uma funcao main() que entre outras coisas abr a conexão com o banco de dados, antes de abrir a conexao eu mandei abrir o frmbackup vbmodal com isso funcionou perfeito pois no meu comando restaurar dentro deste formulario eu tenho o comando conectar ao bd depois o restaurar porem preciso que com o programa em uso eu escolha a opcao restaurar ele feche o formulario principal, abr ao formulario de backup e ao clicar em restaurar ele feche a conexao e abra novamente tentei a opcao .close, mais mesmo assim ele diz que o banco de dados esta em uso. abaixo um trecho do código Private Sub restore() Dim comando As New ADODB.Command Dim strSQL As String Dim caminho As String cnnRESTBD.Close cnnRESTBD_conectar nome_bd = ReadINI("GERAL", "banco", App.path & "\Config.ini") strSQL = "restore database " & nome_bd & " from disk = '" & caminhoOrigem.Text & "' With Move '" & nome_bd & "_Data' to '" & caminhoDestino.Text & nome_bd & ".mdf', Move '" & nome_bd & "_Log' to '" & caminhoDestino.Text & nome_bd & ".ldf'" Call WriteINI("GERAL", "teste", strSQL, App.path & "\config.ini") With comando .ActiveConnection = cnnRESTBD .CommandType = adCmdText .CommandText = strSQL .Execute End With End Sub

Obg deu certo já tava ficando encafifado com isso abs

Amigos, boa tarde Meu Vb 6.0 deu um bug muito doido em um determinado formulario do meu sistema ele resolveu que eu não posso nem ediar nem mover meus objetos ex: eu consigo criar um label, mais depois não consigo aumentar o tamanho nem movel com o mouse, tenho que usar as propriedades do mesmo. alguém já viu algo parecido? nos outros formularios está ok

amigos, procurando na Net encontrei uma solução usando o comando backup do sql server consegui criar o arquivo.bak Private Sub backup_teste() Dim comando As New ADODB.Command Dim strSQL As String Dim caminho As String caminho = "C:\backup.bak" strSQL = "BACKUP DATABASE to disk = '" & caminho & "' WITH INIT" With comando .ActiveConnection = cnnRESTBD .CommandType = adCmdText .CommandText = strSQL .Execute End With End Sub minha pergunta, é possível restaurar o BD apartir deste arquivo com o comando Restore? algo assim strSQL = "restore DATABASE [sql] from disk = '" & caminho & "' WITH REPLACE"

use SendKeys "{HOME}+{END}"

Amigos, boa noite tenho um banco de dados em Sql server 2000 preciso fazer o backup em access para usuários LEIGOS, então criei algo assim: ao iniciar o programa se ele encontrar o pen drive abre o formulario e inicia o backup o backup e da seguinte forma apaga todos os dados do banco de dados em access e insere os outros dados a parte de apagar já fiz, ficou legal Private Sub apagar_destino() 'APAGA TODOS OS DADOS DAS TABELAS Dim cnnCom As New ADODB.Command For i = 0 To 17 With cnnCom .ActiveConnection = connection .CommandType = adCmdText .CommandText = "DELETE FROM " & tabelas(i) & ";" .Execute End With Next i ProgressBar1.Value = ProgressBar1.Value + 1 End Sub onde tabelas(i) e um array contendo todas as tabelas agora preciso inserir os dados tenho um RecordSet contendo todos os dados da tabelas(i), existe algum comando sql que insira todo o record set na tabela algo assim .CommandText = "INSERT INTO " & tabelas(i) & "values(" & rs & ")" lembrando que as tabelas são iguais

Amigos, bom dia Parte do problema resolvido, agora me deparei com outro Veja o código abaixo Private Sub Form_Load() 'verifica liberação do login atual var1 = "rslogin!" + passliberacao If var1 = 1 Then passwordbox = "ok" Unload Me End If End Sub Da maneira que o código esta, ele ira comprar se o valor da var1 é 1 e não e isso, existe uma variavel tipo Record Set que contem as permissões desse usuário, quero comparar no caso desta funcao se a variavel rslogin!gerencia = 1, veja que a palava gerencia deve variar pois tenho varias permissões para usuário, ex: gerencia, garcon, abrirmesa, fecharmesa, etc. como resolver? tentei o +, & etc

Eu jurava que não pausava, vo testar e falo obrigado, vivendo e aprendendo agora o código ficou bem limpo, quando preciso de senha e so executar e o formulario de password ficou bem limpo, se ele retornar a variavel OK continua e a pessoa apertar esc pra fechar ele da uma mensagem de acesso não concedido e simplesmente sai. obg a todos 'solicitar senha Admin '################################### '# rotina password Box # '################################### passliberacao = "gerencia" frmpasswordbox.Show 1, Me If passwordbox <> "ok" Then Exit Sub 'função que quer abrir frmconfigbanco.show '################################### '# Fim da rotina # '###################################

Vamos lá a ideia e gerar uma tela generica, que diminua o trabalho da programacao ex: a pessoa clica em abrir comanda, so que ela não possue senha, então aparece uma tela digite a senha que permita abrir a mesa, ai apos digitar o programa testa se a senha pode abrir a mesa, caso possa ele vai executar abrir_mesa ai agora eu tenho uam funcao transferir mesa, a mesma oisa acontece, aparece a tela e caso seja liberado executa transferir_mesa logo na minha tela de password vou precisar algo assim se "a funcao solicitada" = abrir_mesa faça abrir_mesa se "a funcao solicitada" = transferir_mesa faça transferir_mesa agora imagine que eu tenha varias funcoes chamando essa tela de password, eu teria que ter varios ifs toda vez que eu fosse criar uma funcao que necessitasse de senha outra solucao que eu não sei fazer e nem sei se o VB faz seria o seguinte evento clicar no botao abrir mesa verifica se a pessoa pode abrir, se não puder abre o formulario do password, da uma pausa no procedimento e fica aguardando a digitação da senha. Caso a senha passe ele recomeça o procedimento, caso não da um Exxit sub Seria algo assim 'se o login não poder abrir caixa if login_abrir caixa = n then frmpassword.show PAUSAR PROCEDIMENTO ai o procedimento clica do botao enviar senha se a senha existir e login_abrir caixa = n faça DESPAUSAR PROCEDIMENTO se não Exit Sub fim do se espero ter sido claro

Amigos, boa noite Acabo de me Cadastrar no forum, porem a tempos venho espiando por aqui. Estou com uma dificuldade e gostaria de compartilhar com vocês. Tenho um sistema em VB 6.0 com banco de dados em SQL server 2000 para o restaurante da família. Estou desenvolvendo uma função de reabertura de caixa, que necesida de senha para tal. por ser tratar de um restaurante onde as coisas acontecem dinamicamente tenho esta dificuldade: Cadastro um usuário com atribuições de caixa, e derrepente ele precisa executar uma funcao que seria do cargo de gerente, para tal como não é viavel deslogar e logar o gerente quero que apareça uma tela pedindo a senha. Inicialmente fiz com InputBox, porem descobri que a mesma não possui Mascara com ****** como solução criei um pequeno formulário de senha contendo um TXTBOX e um Botão apenas. A lógica da programação e mais ou menos a seguinte '#rotina password Box passliberacao = "gerencia" passfuncao_local = "frmprincipal" passfuncao_comando = "reabrir_caixa" frmpasswordbox.Show 1, frmprincipal Exit Sub Estas variaveis acima passam a informação para o Formulario o que eu preciso liberar, formulario que preciso liberar e o comando que quero executar no formulario passwordbox tenho o seguinte comando 'chama a função solicitada aprovação CallByName passfuncao_local, passfuncao_comando, VbMethod Unload Me o problema e que a variavel passfuncao_local não é um objeto, apenas contem o nome do mesmo. Poderia criar um IF passfuncao = frmprincipal then CallByName frmprincipal , passfuncao_comando, VbMethod mas estou tentando deixar esse formulario o mais generico possivel, como se fosse uma inputbox com mascara. Espero que tenham intendido e aguardo comentarios