USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Criar Tabela no Access
xe
MOGI MIRIM
SP - BRASIL
Postada em 18/08/2005 10:57 hs            
Bom dia pessoal,
 
Preciso criar uma tabela no ACCESS com diversos campos "string". Quando crio uma nova tabela por padrão os campos do tipo "string" ficam com a propriedade de não aceitar valor nulo, mas preciso que aceite...   NULL
Alguem saberia como fazer isso???
 
Att
     
VACA
LIMEIRA
SP - BRASIL
ENUNCIADA !
Postada em 18/08/2005 11:25 hs            
   Dim tabela As TableDef
  Dim campo As Field
'Pra campos

On Error Resume Next
  Set tabeladef = db.TableDefs!<tabela>
  Set campo = tabeladef!<campo>
  If Err And Err.Description <> "No error." Then
    Set campo = tabeladef.CreateField("<campo>", <tamanho>)
    campo.Attributes = dbAutoIncrField 'tipo, no caso autonumeraçao
    tabeladef.Fields.Append campo 'criar campo
  End If

'Pra tabelas
  On Error Resume Next
  Set tabeladef = db.TableDefs!protocolo_exportacao
  If Err And Err.Description <> "No error." Then
    db.Execute ("create table <nome da tabela>(<campo> DATE)")
    db.Execute ("create table <nome tabela>(<campo> LONG)")
    End 'finalisa o programa pq c naum dah pau
  End If
'long e date saum os tipos do campo

"Quando estou fraco, aí então é que sou Poderoso"
   
Cavalheiro
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 18/08/2005 14:49 hs            
Se vc tiver usando o access, qdo vc cria a tabela vc pode definir nas suas propriedades e colocar "sim" na propriedade "permitir comprimento zero" e vc permitira que seja grvado valores nulos no campo em quetão e pra garantir é só não fazer nenhuma critica na hora de grvar o registroTé mais...

_______________________________________________

Depto de Águas e Energia Elétrica do Estado de São Paulo
Programador 
Presidente Prudente-SP
http://vbprudente.blogspot.com

   
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 18/08/2005 15:04 hs            
Tente assim
 
Global Def_tabela As TableDef, Def_campo As Field
Global arq_aux as database
    Set Def_tabela = arq_aux.CreateTableDef("NOME_TABELA")
'Definicao do campo
    Set Def_campo = Def_tabela.CreateField("NOME_CAMPO")
    Def_campo.Type = dbtext ' pode ver dbmemo, dbbyte e etc
    Def_campo.Attributes = dbFixedField
    Def_campo.Size = 30
    Def_campo.DefaultValue = ""
    Def_campo.AllowZeroLength = True

' Repete mudando o nome do campo e as propriedades.
    Def_tabela.Fields.Append Def_campo
'Cria os campos na tabela
    arq_aux.TableDefs.Append Def_campo
'cria a tabela no banco
    arq_aux.TableDefs.Append Def_tabela

 

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
   
xe
MOGI MIRIM
SP - BRASIL
ENUNCIADA !
Postada em 07/06/2006 09:57 hs            
Bom dia,
 
Muito obrigado pela ajuda..
 
Att
Gustavo
   
Maricelia Maria
não registrado
ENUNCIADA !
Postada em 27/05/2008 21:15 hs   
Olá,

Estou me iniciando ainda na programação em access. Aliás, só agora estou tendo necessidades de trabalhar nisso....
Tenho uma tabela gerada com NOME, E-MAIL.
Quero que assim que o usuário clicar um botão em um formulário, o próprio prog envie os e-mails um a um automaticamente.
Estou como ACCESS 2003 em minha máquina.
A versão 2007 seria mais fácil de trabalhar com isso?

Obrigada!
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página