LIGACAO SQL
Set cnn = CreateObject([Ô]ADODB.Connection[Ô])
cnn.Open [Ô]DRIVER={MySQL ODBC 3.51 Driver};SERVER =127.0.0.1;DATABASE=escola;UID=root;PWD=root;OPTION=16427[Ô]
Set rs = CreateObject([Ô]ADODB.RecordSet[Ô])
Set rs.ActiveConnection = cnn
stropen = [Ô]select * from clientes[Ô]
rs.Open stropen, cnn
Eu uso este código para me ligar a minha base de dados. Mas este código liga-se por defeito a porta 3306? No meu router posso reencaminhar outra porta para o PC que tem a base de dados? Se é possÃvel em vez de usar a porta 3306 usar a porta 4306?
cnn.Open [Ô]DRIVER={MySQL ODBC 3.51 Driver};SERVER =127.0.0.1;DATABASE=escola;UID=root;PWD=root;OPTION=16427[Ô]
Set rs = CreateObject([Ô]ADODB.RecordSet[Ô])
Set rs.ActiveConnection = cnn
stropen = [Ô]select * from clientes[Ô]
rs.Open stropen, cnn
Eu uso este código para me ligar a minha base de dados. Mas este código liga-se por defeito a porta 3306? No meu router posso reencaminhar outra porta para o PC que tem a base de dados? Se é possÃvel em vez de usar a porta 3306 usar a porta 4306?
Encontrei este código na net.
Mas o sql roda em que portas?
Driver={MySQL ODBC 3.51 Driver};Server=data.domain.com;Port=4306;Database=meuBanco;User=NomeUsuario;
Password=SenhaUsuario;Option=3;
Objectivo
PC [Ô]Casa[Ô] -------------------------> Router-é reencaminhado para outro pc ------------------------------------------> Servidor terá um ip fixo
Aplicação Porta 4306
Mas o sql roda em que portas?
Driver={MySQL ODBC 3.51 Driver};Server=data.domain.com;Port=4306;Database=meuBanco;User=NomeUsuario;
Password=SenhaUsuario;Option=3;
Objectivo
PC [Ô]Casa[Ô] -------------------------> Router-é reencaminhado para outro pc ------------------------------------------> Servidor terá um ip fixo
Aplicação Porta 4306
Veja se ajuda
Conectar
Public Function Conectar() As Boolean
[ô]Dim dbase As Connection
Set dbase = CreateObject([Ô]ADODB.Connection[Ô])
On Error GoTo Erro
Usuario = [Ô]usuario[Ô]
password = [Ô]senha[Ô]
banco = [Ô]DataBase[Ô]
servidor = [Ô]servidor q está instalado o slq[Ô]
ConnectionTimeout = 60
dbase.CommandTimeout = 2000
STRCONN = [Ô]Provider=SQLOLEDB.1;[Ô] & _
[Ô]Persist Security Info=False;[Ô] & _
[Ô]User ID=[Ô] & User & _
[Ô];Password=[Ô] & password & _
[Ô];Initial Catalog=[Ô] & banco & _
[Ô];Data Source=[Ô] & servidor
dbase.ConnectionString = STRCONN
dbase.CursorLocation = adUseClient
dbase.Open
Erro:
If Err.Number = -2147467259 Then
MsgBox [Ô]Banco de Dados não encontrado![Ô], vbCritical + vbOKOnly, [Ô]Atenção[Ô]
nConexaoTrue = True
endif
End Function
Conectar
Public Function Conectar() As Boolean
[ô]Dim dbase As Connection
Set dbase = CreateObject([Ô]ADODB.Connection[Ô])
On Error GoTo Erro
Usuario = [Ô]usuario[Ô]
password = [Ô]senha[Ô]
banco = [Ô]DataBase[Ô]
servidor = [Ô]servidor q está instalado o slq[Ô]
ConnectionTimeout = 60
dbase.CommandTimeout = 2000
STRCONN = [Ô]Provider=SQLOLEDB.1;[Ô] & _
[Ô]Persist Security Info=False;[Ô] & _
[Ô]User ID=[Ô] & User & _
[Ô];Password=[Ô] & password & _
[Ô];Initial Catalog=[Ô] & banco & _
[Ô];Data Source=[Ô] & servidor
dbase.ConnectionString = STRCONN
dbase.CursorLocation = adUseClient
dbase.Open
Erro:
If Err.Number = -2147467259 Then
MsgBox [Ô]Banco de Dados não encontrado![Ô], vbCritical + vbOKOnly, [Ô]Atenção[Ô]
nConexaoTrue = True
endif
End Function
mas o se reencaminhar a porta 4306 o sql vai rodar? ou tenho que fazer alguma alteração no pc que tem o sql instalado?
Tópico encerrado , respostas não são mais permitidas