Jump to content
Fórum Script Brasil

Rodrigo Medeiros

Membros
  • Content Count

    11
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Rodrigo Medeiros

  1. 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
  2. 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 a
  3. Obg deu certo já tava ficando encafifado com isso abs
  4. 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
  5. 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 = '" & c
  6. 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 " &
  7. 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, abrirme
  8. 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 fr
  9. 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 f
  10. 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 l
×
×
  • Create New...