Jump to content

VB com ligação a bd access que esteja na rede


Alex.NET
 Share

Recommended Posts

Boas..

Ando aqui com uma duvida para desenvolver uma aplicação, o objectivo é por exemplo, haver 2 utilizadores a usar a aplicação localmente no seu computador e a base de dados estar num disco de rede.

Alguém me pode ajudar?

Cumprimentos a todos

Link to comment
Share on other sites

Boas,

antes que mais obrigado por me estar a ajudar.

Eu sei que o access não é a melhor base de dados para soluções profissionais, mas é uma aplicação que vai ser usada por apenas 2/3 pessoas.

A aplicação consiste no seguinte:

é uma aplicação para uma empresa de informática que pretende ser gestão de stock e registar as assintências a clientes e fazer um historial do mesmo, por isso é que penso que access chega mas diga-me a sua opinião.

Mais uma vez, obrigado pela ajuda.

Link to comment
Share on other sites

nao é aplicação web, é o que referi acima...

o unico problema é k n vou desenvolver a aplicação na empresa e como tal o caminho da base de dados não vai ser este, logo tenho k o alterar depois, mas acho que já sei como resolver a questão, uso um ficheiro .ini onde guardo a conexão da base de dados

Link to comment
Share on other sites

vou aqui por um exemplo de criação e leitura de ficheiro...também fiz algo do genero...

CUMPS

EDIT:

Imports System.IO

criar/escrever ficheiro:

Dim fluxoTexto As IO.StreamWriter
        Dim Arquivo As String = "Dados.txt"
        'guardar dados no ficheiro
        fluxoTexto = New IO.StreamWriter(Arquivo)
        fluxoTexto.WriteLine(ip_TextBox1.Text)
        fluxoTexto.WriteLine(porta_TextBox2.Text)
        fluxoTexto.WriteLine(user_TextBox3.Text)
        fluxoTexto.WriteLine(pass_TextBox4.Text)
        fluxoTexto.WriteLine(nome_bd_TextBox5.Text)
        fluxoTexto.Close()
        MsgBox("Registos guardados com sucesso!", MsgBoxStyle.Information, "Dados")

leitura do ficheiro:

 Dim fluxoTexto As IO.StreamReader
        Dim Arquivo As String = "Dados.txt"
        Try
            fluxoTexto = New IO.StreamReader(Arquivo)
        Catch ex As Exception
            erro_log(ex)
            Exit Sub
        End Try
        ip_TextBox1.Text = fluxoTexto.ReadLine
        porta_TextBox2.Text = fluxoTexto.ReadLine
        user_TextBox3.Text = fluxoTexto.ReadLine
        pass_TextBox4.Text = fluxoTexto.ReadLine
        nome_bd_TextBox5.Text = fluxoTexto.ReadLine
        fluxoTexto.Close()

Claro que deves fazer as alterações necessárias a nível de variaveis e tal...mas a ideia é essa....

CUMPS

"use windows, você merece!"

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.