CONEXAO SQL NO SERVIDOR
Com o Access no Servidor eu uso a conexão abaixo incluÃda no ModBas , e nos forms chamo as tabelas e funciona muito bem, como seria no SQL Server 2005 no Servidor?
Public DB1 As Database
Public Tb1 As Table
Set DB1= OpenDatabase([Ô]\\Servidor\dados\Cadastro.MDB[Ô], False, False, [Ô];PWD=245249[Ô])
Obrigado pela ajuda
Public DB1 As Database
Public Tb1 As Table
Set DB1= OpenDatabase([Ô]\\Servidor\dados\Cadastro.MDB[Ô], False, False, [Ô];PWD=245249[Ô])
Obrigado pela ajuda
O Sql está no Servidor
aconselho e amudar para ADO, pois vejo que está usando DAO, em ADO seria assim
Private aConexao As New ADODB.Connection
Public Function OpenRecordset(sqlquery As String)
Dim aResultado As New ADODB.Recordset
ACESS_SERVER = [Ô](local)[Ô]
ACESS_DB = [Ô]trabalho[Ô]
ACESS_USR = [Ô]angelito[Ô]
ACESS_PWD = [Ô]1234[Ô]
[ô] codigo para conectar a base de dados
If aConexao.State = adStateClosed Then
aConexao.ConnectionString = [Ô]driver={sql server};[Ô] & _
[Ô]server=[Ô] + ACESS_SERVER + [Ô];[Ô] & _
[Ô]Database=[Ô] + ACESS_DB + [Ô];[Ô] & _
[Ô]PWD=[Ô] + ACESS_PWD + [Ô];[Ô] & _
[Ô]UID=[Ô] + ACESS_USR + [Ô];[Ô]
[ô]aConexao.ConnectionString = [Ô]Driver={SQL Server};Server=[Ô] & ACESS_SERVER & [Ô];Database=NQS_CARPOT;Uid=netec;Pwd=netec[Ô]
aConexao.ConnectionTimeout = 30
aConexao.Open
End If
aResultado.CursorLocation = adUseClient
aResultado.Open sqlquery, aConexao, adOpenDynamic, adLockOptimistic
Set OpenRecordset = aResultado
Set aResultado = Nothing
End Function
Private aConexao As New ADODB.Connection
Public Function OpenRecordset(sqlquery As String)
Dim aResultado As New ADODB.Recordset
ACESS_SERVER = [Ô](local)[Ô]
ACESS_DB = [Ô]trabalho[Ô]
ACESS_USR = [Ô]angelito[Ô]
ACESS_PWD = [Ô]1234[Ô]
[ô] codigo para conectar a base de dados
If aConexao.State = adStateClosed Then
aConexao.ConnectionString = [Ô]driver={sql server};[Ô] & _
[Ô]server=[Ô] + ACESS_SERVER + [Ô];[Ô] & _
[Ô]Database=[Ô] + ACESS_DB + [Ô];[Ô] & _
[Ô]PWD=[Ô] + ACESS_PWD + [Ô];[Ô] & _
[Ô]UID=[Ô] + ACESS_USR + [Ô];[Ô]
[ô]aConexao.ConnectionString = [Ô]Driver={SQL Server};Server=[Ô] & ACESS_SERVER & [Ô];Database=NQS_CARPOT;Uid=netec;Pwd=netec[Ô]
aConexao.ConnectionTimeout = 30
aConexao.Open
End If
aResultado.CursorLocation = adUseClient
aResultado.Open sqlquery, aConexao, adOpenDynamic, adLockOptimistic
Set OpenRecordset = aResultado
Set aResultado = Nothing
End Function
Tópico encerrado , respostas não são mais permitidas