Ver Mensaje Individual
  #2 (permalink)  
Antiguo 27/04/2004, 19:22
Avatar de claudiovega
claudiovega
 
Fecha de Ingreso: octubre-2003
Ubicación: Puerto Montt
Mensajes: 3.667
Antigüedad: 21 años, 3 meses
Puntos: 11
mas menos asi:

dim rsChart as new Adodb.recordset
dim strConsulta as string

strConsulta="select campoEjeX, campo2, campo3, ... from tabla ...."

rsChart.open strConsulta, conexion

if not strConsulta.eof then
msgraph1.recordsource=rsChart
end if

- conexion es un objeto Adodb.connection abierto
- msgraph1 es un objeto mschart incrustado en el form
- campoEjeX debe ir primero en la consulta pues serán los valores del eje X.
- a la propiedad recordsource se le asigna un recordset ADO
__________________
Dedicado a proyectos web, actualmente desarrollando un sistema de diseño de flyers online muy fácil de usar.