
Graficos VB ?
Publicado por Andrés (17 intervenciones) el 06/11/2003 16:47:31
Estoy intentando crear un grafico, con el asistente de formularios, y en su creación todo va muy bien. El problema biene al ponerlo en funcionamiento.
Este es el codigo:
Private Sub Form_Load()
Dim conShape As ADODB.Connection
Dim recShape As ADODB.Recordset
'On Error GoTo Form_Load_Error
'Crear una conexión abierta al proveedor de Data Shape
Set conShape = New ADODB.Connection
conShape.Open CONNECT_STRING
'Crear y abrir un recordset
Set recShape = New ADODB.Recordset
recShape.Open SHAPE_COMMAND, conShape
'Rellenar el gráfico con los datos de recordset
ShowRecordsInChart recShape, FIELD_X, FIELD_Y, FIELD_Z
'Mostrar u ocultar marcadores
ShowMarkers MARKERS_VISIBLE
' Exit Sub
'Form_Load_Error:
'DisplayError Err
' Exit Sub
End Sub
El mensaje de error me lo da en la linea:
ShowRecordsInChart recShape, FIELD_X, FIELD_Y, FIELD_Z
(no coinciden los tipos)
Los campos de la base de datos son los tres numericos.
Alguien me puede decir que estoy haciendo mal ?
Gracias de antemano y saludos.
Andrés
Este es el codigo:
Private Sub Form_Load()
Dim conShape As ADODB.Connection
Dim recShape As ADODB.Recordset
'On Error GoTo Form_Load_Error
'Crear una conexión abierta al proveedor de Data Shape
Set conShape = New ADODB.Connection
conShape.Open CONNECT_STRING
'Crear y abrir un recordset
Set recShape = New ADODB.Recordset
recShape.Open SHAPE_COMMAND, conShape
'Rellenar el gráfico con los datos de recordset
ShowRecordsInChart recShape, FIELD_X, FIELD_Y, FIELD_Z
'Mostrar u ocultar marcadores
ShowMarkers MARKERS_VISIBLE
' Exit Sub
'Form_Load_Error:
'DisplayError Err
' Exit Sub
End Sub
El mensaje de error me lo da en la linea:
ShowRecordsInChart recShape, FIELD_X, FIELD_Y, FIELD_Z
(no coinciden los tipos)
Los campos de la base de datos son los tres numericos.
Alguien me puede decir que estoy haciendo mal ?
Gracias de antemano y saludos.
Andrés
Valora esta pregunta


0