Conexión a B.D. mediante ADO
Hola a todos,
Estoy intentando conectar a una B.D. mediante ADO. Para ello al objeto ADC (indicado abajo) le paso los parámetros. El problema es que no me conecta la cosa y me da un error de permisos en el servidor RDS. El código usado es el siguiente:
<OBJECT classid=CLSID:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=ADC width=1>
<PARAM NAME="ExecuteOptions" VALUE="2">
<PARAM NAME="FetchOptions" VALUE="3">
<PARAM NAME="SortDirection" VALUE="-1">
<PARAM NAME="InternetTimeout" VALUE="300000">
</OBJECT>
Sub btnInit_OnClick()
ADC.ExecuteOptions = 1
ADC.FetchOptions = 2
ADC.Server="http://portatil_spot/"
ADC.Connect="DSN=GridExample;"
ADC.SQL=SQL.Value
ADC.Refresh
Set dxDBGrid1.DataSource = ADC
End Sub
Gracias,
Guillermo
Estoy intentando conectar a una B.D. mediante ADO. Para ello al objeto ADC (indicado abajo) le paso los parámetros. El problema es que no me conecta la cosa y me da un error de permisos en el servidor RDS. El código usado es el siguiente:
<OBJECT classid=CLSID:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=ADC width=1>
<PARAM NAME="ExecuteOptions" VALUE="2">
<PARAM NAME="FetchOptions" VALUE="3">
<PARAM NAME="SortDirection" VALUE="-1">
<PARAM NAME="InternetTimeout" VALUE="300000">
</OBJECT>
Sub btnInit_OnClick()
ADC.ExecuteOptions = 1
ADC.FetchOptions = 2
ADC.Server="http://portatil_spot/"
ADC.Connect="DSN=GridExample;"
ADC.SQL=SQL.Value
ADC.Refresh
Set dxDBGrid1.DataSource = ADC
End Sub
Gracias,
Guillermo