• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

programadorvb6

[VB6] Como criar Base de Dados com password ?

5 mensagens neste tópico

Olá boa noite , estou com um prob. tenho já o código feito de como criar uma base de dados , ( Normal ) mas falta-me adicionar a quando da sua criação a password. , alguém tem 1 ideia de como fazê-lo via código

nota : banco de dados .MDB no formato 3.0

código :

Option Explicit

Option Base 1

Dim area As Workspace   'Define área de trabalho
Dim banco As Database   'Define área para o .MDB
Dim tabela As TableDef  'Define area para criar uma tabela
Dim campos(20) As Field  'Define área para criar os campos
Dim indice As Index     'Define área para criar um índice
Dim idxcampo As Field   'Define área do campo do índice
Dim tabcli As Recordset 'Usado para abrir a tabela

Dim esttab As TableDef
Dim estcampos(20) As Field
Dim tabest As Recordset

Dim relação As Relation
Dim relcampo As Field


Private Sub cmdCriaBanco_Click()
    
    On Error GoTo erro:
    
    Set area = DBEngine.Workspaces(0)
    
    'Cria a partir do mecanismo "DAO" uma área de trabalho
    
    Set banco = area.CreateDatabase(Text1.Text, dbLangGeneral, dbVersion30)
    
    'Cria o banco de dados .MDB no formato 3.0
    
    Set tabela = banco.CreateTableDef("COFRE")
    
    'Cria campos dentro da tabela COFRE
    Set campos(1) = tabela.CreateField("NOMEAP", dbText, 25)
    
    tabela.Fields.Append campos(1)
    
    'Efetiva a adição de campos dentro da tabela
    
    Set campos(2) = tabela.CreateField("ROTOR", dbText, 255)
    tabela.Fields.Append campos(2)
    
    Set campos(3) = tabela.CreateField("TIPO", dbText, 255)
    tabela.Fields.Append campos(3)
    
    Set campos(4) = tabela.CreateField("RESOLUCAOX", dbText, 255)
    tabela.Fields.Append campos(4)
    
    Set campos(5) = tabela.CreateField("RESOLUCAOY", dbText, 255)
    tabela.Fields.Append campos(5)
    
    Set campos(6) = tabela.CreateField("NOMEJANELA", dbText, 255)
    tabela.Fields.Append campos(6)
    
    Set campos(7) = tabela.CreateField("CORDX1", dbText, 255)
    tabela.Fields.Append campos(7)
    
    Set campos(8) = tabela.CreateField("CORDY1", dbText, 255)
    tabela.Fields.Append campos(8)
    
    Set campos(9) = tabela.CreateField("CORDX2", dbText, 255)
    tabela.Fields.Append campos(9)
    
    Set campos(10) = tabela.CreateField("CORDY2", dbText, 255)
    tabela.Fields.Append campos(10)
    
    Set campos(11) = tabela.CreateField("CORDX3", dbText, 255)
    tabela.Fields.Append campos(11)
    
    Set campos(12) = tabela.CreateField("CORDY3", dbText, 255)
    tabela.Fields.Append campos(12)
    
    Set campos(13) = tabela.CreateField("SERIAL", dbText, 255)
    tabela.Fields.Append campos(13)
    
    Set campos(14) = tabela.CreateField("ENTER", dbText, 255)
    tabela.Fields.Append campos(14)
    
    Set campos(15) = tabela.CreateField("LEITURA", dbText, 255)
    tabela.Fields.Append campos(15)
    
    Set campos(16) = tabela.CreateField("USER", dbText, 255)
    tabela.Fields.Append campos(16)
    
    Set campos(17) = tabela.CreateField("PASSWORD", dbText, 255)
    tabela.Fields.Append campos(17)
    
    Set campos(18) = tabela.CreateField("LINK", dbText, 255)
    tabela.Fields.Append campos(18)
    
    Set campos(19) = tabela.CreateField("OBS", dbText, 255)
    tabela.Fields.Append campos(19)
    
    Set campos(20) = tabela.CreateField("AUTORIZA", dbText, 255)
    tabela.Fields.Append campos(20)
    
    'Cria um índice para a tabela NOMEAP
    
    banco.TableDefs.Append tabela
    
    Set indice = tabela.CreateIndex("NOMEAP")
    
    'Cria um índice para a tabela Clientes
    
    indice.Primary = True 'Chave Primária
    indice.Unique = True  'Não aceita dados duplicados
    
    'Define atributos para o índice
    
    Set idxcampo = indice.CreateField("NOMEAP")
    
    'Cria o campo que será usado com índice
    
    indice.Fields.Append idxcampo
    tabela.Indexes.Append indice
    Exit Sub 'Finaliza a rotina
    
erro:
    If Err.Number = 3204 Then ' OR BASE.MEP
    MsgBox "BASE DE DADOS JÁ EXISTE"
    Exit Sub
End If
MsgBox Format(Err) & "-" & Error
' Resume saída

'saída:

End Sub

desde já agradeço a vossa colaboração

cump

programadorvb6

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

boas :P

experimenta algo do género 

banco.newPassword "", PasswordBanco

... não tenho a certeza se funciona  :hmm:

vi isso aqui: http://www.macoratti.net/senha_bd.htm...  não sei se era bem isto que pretendias... mas...  ;)

boa sorte com isso  :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora