Dim Rst As ADODB.Recordset
Dim Cnn As ADODB.Connection
Set Rst = New ADODB.Recordset
Set Cnn = New ADODB.Connection
sQuery = "Driver={SQL Server};Server=SERVERSAP;Database=empresa;" 'Conexion 1
sQuery = "Provider=SQLOLEDB.1;Password=Nut1610;Persist Security Info=True;User ID=sa;Initial Catalog=empresa;Data Source=Serversap" 'Conexion 2
'Cualquiera de las dos conexiones funciona, la primera es por usuario de windows y la segunda por el SA, por seguridad puedes leer esta cadena de alguna archivo encriptdo, etc, es decir, ponerle la seguridad que queiras si es que no pueden ver la contraseņa del SA los desarrolaldores
Cnn.Open sQuery 'abre la conexion a BD
Cnn.Execute sQuery 'Ejecuta un comando Insert o Update donde squery es el comando a ejecutar
Rst.Open sQuery, Cnn 'ejecuta una consulta a la BD y lo deja en el recordset
Espero te sirva
|