CRIAR BASE DE DADOS ACCESS VIA CÓDIGO

 Tópico anterior Próximo tópico Novo tópico

CRIAR BASE DE DADOS ACCESS VIA CÓDIGO

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#491421 - 22/11/2019 12:41:00

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Você precisa passar uma conexão ativa para o comando:

Comando.Connection = (alguma variável de conexão aberta e ativa)


_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#491422 - 22/11/2019 13:35:21

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


Olá, simplesmente a base de dados não existe é esse o problema e é isso que estou a tentar construir via código vb.net

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


#491424 - 22/11/2019 14:33:39

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Se o arquivo MDB não existe, daí a coisa é bem mais complicada...

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#491446 - 23/11/2019 13:02:58

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


 Anexos estao visíveis somente para usuários registrados

Olá pessoal boa tarde.
Até agora consegui criar um ficheiro de base de dados em access via código só me falta fazer a tabela com chave primária , podem me ajudar?
Deixo o código como fiz.
Grato desde já pela vossa atenção.

Imports ADOX
Imports System.Data.OleDb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        If Cria_Base_de_Dados_Access(My.Application.Info.DirectoryPath & "\Viaturas.mdb") = True Then
            MsgBox("Base de dados criada!")
        Else
            MsgBox("Base de dados não criada!")
        End If

    End Sub

  

    Public Function Cria_Base_de_Dados_Access(ByVal DatabaseFullPath As String) As Boolean
        Dim ResultadoBD As Boolean
        Dim CriarBD As New ADOX.Catalog()
        Try


            Dim CriaBDString As String
            CriaBDString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseFullPath
            CriarBD.Create(CriaBDString)

            ResultadoBD = True

        Catch Excep As System.Runtime.InteropServices.COMException
            ResultadoBD = False
        Finally
            CriarBD = Nothing
        End Try
        Return ResultadoBD
    End Function
End Class  



______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


#491447 - 23/11/2019 14:59:42

NICKOSOFT
SANTO ANDRE
Cadast. em:Maio/2009


a segunda ou terceira resposta mostra como criar tabela......do nada tem q seguir etapas, criar o bd, criar tabelas, alterar tabelas pra relações, chaves e assim vai.....
os detalhes depende da complexidade da sua tabela, mas ai vc escreve o script...

Cada dia vejo surgirem novos "programadores" de código pronto aqui



#491448 - 23/11/2019 15:50:20

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


 Anexos estao visíveis somente para usuários registrados

Olá pessoal , desde já agradeço pela vossa compreensão e disponibilidade, ao fim de tanto batalhar consegui , não é uma estrutura bem feita falta aprimorar , mas deixo aqui para que todos tenham acesso.
Grato desde já mais uma vez pela vossa ajuda.
Programadorvb6

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por PROGRAMADORVB6 em 23/11/2019 15:50:45