[VBS] Creare funzione per connessione e lettura dati da SQL Server

[paffolo]

Ciao a tutti,
sono nuovo del forum e di programmazione in visual basic, mi scuso in anticipo per l'ignoranza . Il mio problema è il seguente:
devo creare una funzione che legge il db (sql server 2005) e mi recupera la mail. mi sa che il problema stà nella connessione al db perchè la query funziona. posto il codice

 function recupera()

 Set sDsn = New ADODB.Connection sDsn.ConnectionString = "Driver={SQL Server};Server=NAMESERVER;Database='NAMEDATABASE';Uid='xxx';Pwd=xxx;" 

' open connection to database 
Dim db 
Set db = CreateObject("ADODB.Connection")   
db.Open sDsn    

' open recordset  
 Dim sSQL  
 Dim rs   sSQL = " select email from  users where  ''555' = number"  
 rs.Open sSQL, db   
 Set rs = CreateObject("ADODB.Recordset")  
 rs.Open sSQL, db 
 
' if there are records in recordset,      
 recupera = sSQL    
 rs.Close  

 Set rs = Nothing 
    db.Close   
Set db = Nothing 
  End Function

[LeleFT]

Benventuo nel forum. Ricorda di indicare sempre anche la versione di VB che utilizzi.
Ed in futuro posta nell'apposito forum "Visual Basic e .NET Framework".

Sposto la discussione.


Ciao.

[paffolo]

Chiedo scusa e grazie per lo spostamento. la funzione deve essere scritta in visual basic script