Postada em 25/01/2007 14:24 hs
dim cn As New ADODB.connection
dim rs As New ADODB.Recordset
If cn.state = 0 Then cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DATABASENAME;Data Source=."
Se tiver um único database no sqlserver, não precisa mudar o "." em Data Souce na string de conexão. Senão coloque no lugar do "." o nome do seu servidor
<DIV>Klaus Lana</DIV>
|
