SERVIDOR MYSQL EM REDE LOCAL
Ola galera blz Fiz um sistema que conecta em um db mysql assim:
Public Function ConectaDbteste(ByVal blnValor As Boolean)
Dim strDrive As String
Dim strServidor As String
Dim strBancodeDados As String
Dim strPorta As String
Dim strUsuario As String
Dim strSenha As String
On Error GoTo ErrodeConexao
If blnValor = True Then
Set Conexao = New Connection
strServidor = [Ô][Ô] & [Ô]127.0.0.1[Ô]
strBancodeDados = [Ô][Ô] & [Ô]Teste[Ô]
strPorta = [Ô][Ô] & [Ô]3309[Ô]
strUsuario = [Ô][Ô] & [Ô]root[Ô]
strSenha = [Ô][Ô] & [Ô]Senha[Ô]
strDrive = [Ô]DRIVER={MySQL ODBC 5.1 DRIVER};[Ô] _
& [Ô]Server=[Ô] & strServidor & [Ô];[Ô] _
& [Ô]Port=[Ô] & strPorta & [Ô];[Ô] _
& [Ô]Database=[Ô] & strBancodeDados & [Ô];[Ô] _
& [Ô]UID=[Ô] & strUsuario & [Ô];[Ô] _
& [Ô]PWD=[Ô] & strSenha & [Ô];[Ô] _
& [Ô]ConnectionTimeout=60[Ô] & [Ô];[Ô] _
& [Ô]OPTION=[Ô] & 1 + 2 + 8 + 32 + 2048 + 16384
With Conexao
.CursorLocation = adUseClient
.ConnectionString = strDrive
.Open strDrive
End With
Else
ConectaDbteste True
If Conexao.State = 1 Then
Conexao.Close
End If
Set Conexao = Nothing
End If
Exit Function
ErrodeConexao:
frmErroConexao.Show vbModal
End Function
na maquina servidor funcion normal mas eu quero usar o sistema em rede local com dois pc eum com uma impressora nao fical mecaf IM1X3I
não consigo acessar o db no servidor que faço ja li um monte de forum e não conegui fazer acesso ao db estou usando windows 7
ja liberei a porta 3309 e mudei localhost da tabela user para % e %.%.%.% os pcs conecta com um rotiador sem fio e cabo rede .ajude me por favor. Obrigado!
Public Function ConectaDbteste(ByVal blnValor As Boolean)
Dim strDrive As String
Dim strServidor As String
Dim strBancodeDados As String
Dim strPorta As String
Dim strUsuario As String
Dim strSenha As String
On Error GoTo ErrodeConexao
If blnValor = True Then
Set Conexao = New Connection
strServidor = [Ô][Ô] & [Ô]127.0.0.1[Ô]
strBancodeDados = [Ô][Ô] & [Ô]Teste[Ô]
strPorta = [Ô][Ô] & [Ô]3309[Ô]
strUsuario = [Ô][Ô] & [Ô]root[Ô]
strSenha = [Ô][Ô] & [Ô]Senha[Ô]
strDrive = [Ô]DRIVER={MySQL ODBC 5.1 DRIVER};[Ô] _
& [Ô]Server=[Ô] & strServidor & [Ô];[Ô] _
& [Ô]Port=[Ô] & strPorta & [Ô];[Ô] _
& [Ô]Database=[Ô] & strBancodeDados & [Ô];[Ô] _
& [Ô]UID=[Ô] & strUsuario & [Ô];[Ô] _
& [Ô]PWD=[Ô] & strSenha & [Ô];[Ô] _
& [Ô]ConnectionTimeout=60[Ô] & [Ô];[Ô] _
& [Ô]OPTION=[Ô] & 1 + 2 + 8 + 32 + 2048 + 16384
With Conexao
.CursorLocation = adUseClient
.ConnectionString = strDrive
.Open strDrive
End With
Else
ConectaDbteste True
If Conexao.State = 1 Then
Conexao.Close
End If
Set Conexao = Nothing
End If
Exit Function
ErrodeConexao:
frmErroConexao.Show vbModal
End Function
na maquina servidor funcion normal mas eu quero usar o sistema em rede local com dois pc eum com uma impressora nao fical mecaf IM1X3I
não consigo acessar o db no servidor que faço ja li um monte de forum e não conegui fazer acesso ao db estou usando windows 7
ja liberei a porta 3309 e mudei localhost da tabela user para % e %.%.%.% os pcs conecta com um rotiador sem fio e cabo rede .ajude me por favor. Obrigado!
Coloque o IP do servidor ou seu hostname no lugar do IP local (127.0.0.1)
funcionou pelo nome do pc no lugar de 127.0.0.1 agora e a gloriosa impressora mecaf IM1X3I QUE NÃO FUNCIONA NA REDE
você compartilhou a impressora e criou a rede?
Compartilha a impressora na rede.
Obrigado a todos pelas resposta. Como compartilho a impressora na rede ela não tem drive so a dll daruma.dll
Resumindo o seu problema foi sanado?
Foi resolvido Marcelo obrigado! Preciso compartilhar uma impressora mecaf ela esta conectada a porta lpt1. Tem como compartilhar ela na rede para dois micros a impressora é mecaf compact IM1X3I
veja só, se a impressora estiver instalada em um pc com windows 7, e como no tutorial abaixo.
http://www.computerdicas.com.br/2009/12/compartilhar-impressora-local-no.html
http://www.computerdicas.com.br/2009/12/compartilhar-impressora-local-no.html
caro marcelo obrigado pela resposta mas a impressra não esta relacionada em configuraçõess de impressora para funcionar no meu sistema fiz assim:
no modulo
Global Int_Retorno As Integer [ô]Imprimir Texto Livre
[ô]Imprimir Texto Livre
Public Declare Function Daruma_DUAL_ImprimirTexto Lib [Ô]Daruma32.dll[Ô] _
(ByVal TextoLivre As String, ByVal TamanhoTexto As Integer) As Integer
no botão imprimpir
Int_Retorno = Daruma_DUAL_ImprimirTexto(([Ô]<e><ce>Imprimindo um texto para teste</ce></e>[Ô]), 0)
ela esta conectada ao pc server atravez da porta LPT1
sera que consigo compartilhar
vc pode me ajudar
no modulo
Global Int_Retorno As Integer [ô]Imprimir Texto Livre
[ô]Imprimir Texto Livre
Public Declare Function Daruma_DUAL_ImprimirTexto Lib [Ô]Daruma32.dll[Ô] _
(ByVal TextoLivre As String, ByVal TamanhoTexto As Integer) As Integer
no botão imprimpir
Int_Retorno = Daruma_DUAL_ImprimirTexto(([Ô]<e><ce>Imprimindo um texto para teste</ce></e>[Ô]), 0)
ela esta conectada ao pc server atravez da porta LPT1
sera que consigo compartilhar
vc pode me ajudar
Dispositivos e Impressoras > Botão direito em cima da impressora e vai em compartilhar impressora, ou compartilhamento e segurança, sei la, e da um nome a ela, e blz, no cliente só colocar [Ô]//Servidor/Impressora[Ô], não tem erro.
Tópico encerrado , respostas não são mais permitidas