Newsgroup: it.comp.lang.visual-basic
Titolo: MSDE o SQL Server

Da VB6 vorrei poter testare se il database che stò aprendo è "attaccato" al
piccolo MSDE oppure al grande SQL Server....con DAO.
Come si fà?
ho provato con "Select @@Version as pippo", ma mi viene restituito un errore
di sintassi......:-(
Urgente, grazie.

 ha scritto nel messaggio
news:cl04j3$56o$
1...@lacerta.tiscalinet.it

ti consiglio di utilizzare
SELECT SERVERPROPERTY ( 'Edition' ) AS [Edizione]
che ritorna
--<---
Desktop Engine
per MSDE, dato che
SELECT @@VERSION
ritorna molte piu' informazioni in un unico stream di testo, che dovresti
poi passare ad un parser (ed il testo restituito e' in funzione della
localizzazione installata), simile a
--<-------------
Microsoft SQL Server  2000 - 8.00.760 (Intel X86)
 Dec 17 2002 14:22:05
 Copyright (c) 1988-2003 Microsoft Corporation
 Desktop Engine on Windows NT 5.1 (Build 2600: Service Pack 1)
saluti
-- 
Andrea Montanari (Microsoft MVP - SQL Server)
http://www.asql.biz/DbaMgr.shtm
 
http://italy.mvps.org
DbaMgr2k ver 0.9.1  -  DbaMgr ver 0.55.1
(my vb6+sql-dmo little try to provide MS MSDE 1.0 and MSDE 2000 a visual
interface)
--------- remove DMO to reply

 ha scritto nel messaggio
news:cl04j3$56o$1...@lacerta.tiscalinet.it...

Ciao Andrea,
con DAO puoi applicare la select proposta da Andrea Montanari in questo modo
-------
Dim wrk As DAO.Workspace
Dim Con As DAO.Connection
Dim Rs As DAO.Recordset
Set wrk = CreateWorkspace("AreaLavoroODBC", _
                "Admin", "", dbUseODBC)
 Set Con = wrk.OpenConnection("Con", dbDriverCompleteRequired, False, _
    "ODBC;DRIVER=SQL Server;SERVER=(local);" & _
    "Trusted_Connection=yes;" & _
    "DATABASE=Master;DSN=;")
Set Rs = Con.OpenRecordset("SELECT SERVERPROPERTY ( 'Edition' ) AS
[Edizione]")
Debug.Print Rs!Edizione
Rs.Close
Set Rs = Nothing
Set Con = Nothing
Set wrk = Nothing
----------------
(Per la stringa di connessione cambia secondo le tue necessità il nome del
server e il tipo di autenticazione)
Ciao Giorgio

 ha scritto nel
messaggio news:cl09i2$a10$1...@lacerta.tiscalinet.it...



[CUT]
Ciao,
se conosci il DSN non è necessario sapere altro, nell'esempio sotto uso il
DSN creato per prova con il mio nome.
-------------------
Dim wrk As DAO.Workspace
Dim Con As DAO.Connection
Dim Rs As DAO.Recordset
Set wrk = DAO.CreateWorkspace("AreaLavoroODBC", _
                "Admin", "", dbUseODBC)
Set Con = wrk.OpenConnection("Con", dbDriverCompleteRequired, False, _
    "ODBC;DSN=Giorgio;DRIVER=SQL Server;")
Set Rs = Con.OpenRecordset("SELECT SERVERPROPERTY ( 'Edition' ) AS
[Edizione]")
Debug.Print Rs!Edizione
Rs.Close
Set Rs = Nothing
Set Con = Nothing
Set wrk = Nothing
---------------------
Ciao Giorgio

 ha scritto nel
messaggio news:cl0m9m$soo$1...@lacerta.tiscalinet.it...


 Grazie, a presto.
solo una cosa (che mi sono dimenticato di togliere),  come ho detto
conoscendo il DSN non hai bisogno di altro quindi non è necessario passare
il nome del driver perchè è già definito nel DSN stesso. Basta solo
*ODBC;DSN=NomeDsn*
per rifarmi al mio esempio
---------------
Set Con = wrk.OpenConnection("Con", dbDriverCompleteRequired, False, _
    "ODBC;DSN=Giorgio;")
---------------
Ciao Giorgio