APLICACAO EM REDE
Boa noite,
Estou desenvolvendo uma aplicação em VB.NET com banco MYSQL, que irá trabalhar em rede. Ai surge algumas dúvidas.
1 – Qual a melhor forma de se trabalhar com uma aplicação em rede? Eu gostaria que bastasse instalar a atualização no servidor e todos os outros computadores da rede acessem o sistema já atualizado, ou seja, basta apenas atualizar no servidor.
2 – Para facilitar e agilizar o meu trabalho (“não sei se é o correto. Se estiver errado me corrijamâ€), eu iria criar um servidor local em cada estação para gerar relatórios com o crystal report, eu usaria uma Stored Procedure para preencher o banco local e quando estiver tudo alimentado ele geraria o relatório, acho que dessa forma fica mais fácil, penso que seria mais fácil pelo seguinte motivo, minha aplicação os dataset com o banco remoto seria dataset não tipado, o que dificulta as vezes “eu achoâ€. E se eu criasse dataset tipados com as configurações do banco local, ou seja, sempre será “127.0.0.1 / localhostâ€, já tenho até a Stored Procedure que pega os dados do banco remoto, baseado em critérios e grava os dados no banco local. Só que diante de toda essa situação o que me deixa mais intrigado é o seguinte, já que eu não quero sair de estação em estação atualizando, sempre que o sistema fosse inicializado ele pegasse somente a estrutura do banco do servidor MYSQL e gravasse a mesma estrutura no banco local. Tem como?
Estou desenvolvendo uma aplicação em VB.NET com banco MYSQL, que irá trabalhar em rede. Ai surge algumas dúvidas.
1 – Qual a melhor forma de se trabalhar com uma aplicação em rede? Eu gostaria que bastasse instalar a atualização no servidor e todos os outros computadores da rede acessem o sistema já atualizado, ou seja, basta apenas atualizar no servidor.
2 – Para facilitar e agilizar o meu trabalho (“não sei se é o correto. Se estiver errado me corrijamâ€), eu iria criar um servidor local em cada estação para gerar relatórios com o crystal report, eu usaria uma Stored Procedure para preencher o banco local e quando estiver tudo alimentado ele geraria o relatório, acho que dessa forma fica mais fácil, penso que seria mais fácil pelo seguinte motivo, minha aplicação os dataset com o banco remoto seria dataset não tipado, o que dificulta as vezes “eu achoâ€. E se eu criasse dataset tipados com as configurações do banco local, ou seja, sempre será “127.0.0.1 / localhostâ€, já tenho até a Stored Procedure que pega os dados do banco remoto, baseado em critérios e grava os dados no banco local. Só que diante de toda essa situação o que me deixa mais intrigado é o seguinte, já que eu não quero sair de estação em estação atualizando, sempre que o sistema fosse inicializado ele pegasse somente a estrutura do banco do servidor MYSQL e gravasse a mesma estrutura no banco local. Tem como?
Boa noite, Coloca o banco de dados em uma maquina na rede, compartinha os dados , assim sua aplicaçao puxara os dados nela.. tipo assim
Public Class Conexao
Dim caminho As New CaminhoBanco
Dim conect As New SqlConnection([Ô]Data Source=[Ô] & [txt-size=2]Ip do banco[/txt-size] & [Ô];initial catalog =LOJA;user id=sa;password=masterkey[Ô])
Dim command As SqlCommand = conect.CreateCommand
Dim dataReader As SqlDataReader
Public Sub open()
conect.Open()
End Sub
Public Sub executeQuery(ByVal query As String)
Try
Me.command.CommandText = query
Me.command.ExecuteNonQuery()
Catch EX As SqlClient.SqlException
MsgBox([Ô]PROCURE O SUPORTE [Ô] & EX.Message)
End Try
End Sub
Public Function getResult() As System.Data.DataTable
Dim dataTable As DataTable
dataTable = New DataTable()
dataReader = Me.command.ExecuteReader(CommandBehavior.CloseConnection)
dataTable.Load(dataReader, LoadOption.OverwriteChanges)
dataReader.Close()
dataReader.Dispose()
conect.Close()
Return (dataTable)
End Function
Public Sub close()
If ((Me.conect Is Nothing) = False) Then
If (Me.conect.State = ConnectionState.Open) Then
Me.conect.Close()
End If
End If
End Sub
End Class
Public Class Conexaobdaccess
Dim conect As New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\agenda.MDB[Ô])
Dim command As OleDbCommand = conect.CreateCommand
Dim dataReader As OleDbDataReader
Public Sub open()
conect.Open()
End Sub
Public Sub executeQuery(ByVal query As String)
Try
Me.command.CommandText = query
Me.command.ExecuteNonQuery()
Catch EX As OleDb.OleDbException
MsgBox([Ô]PROCURE O SUPORTE [Ô] & EX.Message)
End Try
End Sub
Public Function getResult() As System.Data.DataTable
Dim dataTable As DataTable
dataTable = New DataTable()
dataReader = Me.command.ExecuteReader(CommandBehavior.CloseConnection)
dataTable.Load(dataReader, LoadOption.OverwriteChanges)
dataReader.Close()
dataReader.Dispose()
conect.Close()
Return (dataTable)
End Function
Public Sub close()
If ((Me.conect Is Nothing) = False) Then
If (Me.conect.State = ConnectionState.Open) Then
Me.conect.Close()
End If
End If
End Sub
End Class[txt-color=#e80000] [/txt-color]
Essa ai e uma Classe de conexao com banco de dados sql server
Public Class Conexao
Dim caminho As New CaminhoBanco
Dim conect As New SqlConnection([Ô]Data Source=[Ô] & [txt-size=2]Ip do banco[/txt-size] & [Ô];initial catalog =LOJA;user id=sa;password=masterkey[Ô])
Dim command As SqlCommand = conect.CreateCommand
Dim dataReader As SqlDataReader
Public Sub open()
conect.Open()
End Sub
Public Sub executeQuery(ByVal query As String)
Try
Me.command.CommandText = query
Me.command.ExecuteNonQuery()
Catch EX As SqlClient.SqlException
MsgBox([Ô]PROCURE O SUPORTE [Ô] & EX.Message)
End Try
End Sub
Public Function getResult() As System.Data.DataTable
Dim dataTable As DataTable
dataTable = New DataTable()
dataReader = Me.command.ExecuteReader(CommandBehavior.CloseConnection)
dataTable.Load(dataReader, LoadOption.OverwriteChanges)
dataReader.Close()
dataReader.Dispose()
conect.Close()
Return (dataTable)
End Function
Public Sub close()
If ((Me.conect Is Nothing) = False) Then
If (Me.conect.State = ConnectionState.Open) Then
Me.conect.Close()
End If
End If
End Sub
End Class
Public Class Conexaobdaccess
Dim conect As New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\agenda.MDB[Ô])
Dim command As OleDbCommand = conect.CreateCommand
Dim dataReader As OleDbDataReader
Public Sub open()
conect.Open()
End Sub
Public Sub executeQuery(ByVal query As String)
Try
Me.command.CommandText = query
Me.command.ExecuteNonQuery()
Catch EX As OleDb.OleDbException
MsgBox([Ô]PROCURE O SUPORTE [Ô] & EX.Message)
End Try
End Sub
Public Function getResult() As System.Data.DataTable
Dim dataTable As DataTable
dataTable = New DataTable()
dataReader = Me.command.ExecuteReader(CommandBehavior.CloseConnection)
dataTable.Load(dataReader, LoadOption.OverwriteChanges)
dataReader.Close()
dataReader.Dispose()
conect.Close()
Return (dataTable)
End Function
Public Sub close()
If ((Me.conect Is Nothing) = False) Then
If (Me.conect.State = ConnectionState.Open) Then
Me.conect.Close()
End If
End If
End Sub
End Class[txt-color=#e80000] [/txt-color]
Essa ai e uma Classe de conexao com banco de dados sql server
Tópico encerrado , respostas não são mais permitidas