Encrypt excel-vba ADODB connection -
i in process of creating excel reports , trying encrypt sql connections. on server side have setup , microsoft management studio able establish secure connection. cant find solution excel. think need encrypt = yes
or adodb.connection not supporting ssl ?
private function getdatafromado(byval sel string) adodb.recordset 'declare variables' dim objmyconn adodb.connection dim objmycmd adodb.command dim objmyrecordset adodb.recordset set objmyconn = new adodb.connection set objmycmd = new adodb.command set objmyrecordset = new adodb.recordset 'open connection' objmyconn.connectionstring = "provider=sqloledb;data source=" & sqlserver & ";database=" & _ sqldb & ";user id=" & sqlusername & ";password=" & sqlpassword & ";" dim s string s = objmyconn.connectionstring objmyconn.open 'set , excecute sql command' set objmycmd.activeconnection = objmyconn objmycmd.commandtext = sel objmycmd.commandtype = adcmdtext 'open recordset' set objmyrecordset.source = objmycmd objmyrecordset.open set getdatafromado = objmyrecordset
thanks in advance
the force encryption option on sql server did trick.
thanks ralph :)
Comments
Post a Comment