Simone
La stringa di connessione sarà una cosa simile(Semplificata):
DRIVER={SQL Server};SERVER=NomeServer;DATABASE=NomeDB
Secondo te come fai a sapere qual'è il Server....??
Function GetServer(strConnection As String) As String
Dim inS As Integer
inS = InStr(sConn, "SERVER=") + Len("SERVER=")
GetServer = Mid$(sConn, inS, InStr(inS, sConn, ";") - inS)
End Function
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------
Forse non mi sono spiegato.
Se eseguo questa query:
select name, foreignname,connect from msysobjects where connect
is not null
ottengo nel campo connect la stringa di connessione che, almeno nel mio
caso, è questa:
DSN=NomeDSN;APP=Microsoft Office
2003;WSID=NomeDelMioPC;DATABASE=NomeDelDataBase
come vedi il nome del server non c'è! e dovrei sapendo NomeDSN recuparare il
nome del server specificato nel DSN configurato...
Le tabelle sono collegate tramite collegamento "manuale" (=collega tabella)
da dentro access perché ho bisogno di farci riferimento direttamente con
svariate maschere che "puntano" direttamente sulle tabelle.
In alternativa potresti suggerirmi un modo per collegare run-time le tabelle
dentro access con una connessione DSN less.
Ciao
Simone
>
> In alternativa potresti suggerirmi un modo per collegare run-time le tabelle
> dentro access con una connessione DSN less.
qui alla funzione "LinkTableDAO" trovi un esempio
http://www.webservertalk.com/archive136-2004-8-361865.html
e' la prima che mi e' capitato di trovare ma sicuramente nei siti di
riferimento del NG trovi tutto quello che cerchi
www.sitocomue.com
www.alessandrobaraldi.it
www.donkarl.com/it
www.accessgroup.it
e puoi provare anche su
www.mvps.org
gli indirizzi li ho scritti a memoria spero siano tutti corretti
--
ac
y-1=x