VB里的MS chart

ADODC的RecordSource 查询出的第一个字可设置为字符型，
第二、第三字段必须是数字型的，否则不会出图形。第一个字段是mschart的横坐坐标的值，第二、第三个等
字段必须是数字型的，第一个字段可以省略，但横坐标的
值会是默认的R1、R2、R3 ....
如果字段类型不是数字型的可以强制转换，
ACCESS用cint、clng、CSng等，SQL SERVER用cast、convert转换。你也可以把数据源查出的数据装入一个variant数组如
Dim Values(1 To 15, 1 To 3)
然后用MSChart1.ChartData = Values来设置图形。
绑定数据源举例如下：(数据库中所有字段均为字符型，字段内容全是字符型数字) Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\11.mdb;Persist Security Info=False"
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select a,cint(b) from aaa" 'ACCES写法
    'Adodc1.RecordSource = "select a,cast(b as int) from aaa" 'SQL SERVER写法
    Adodc1.Refresh
    'MSChart1.chartType = VtChChartType2dLine '画线可用这句，默认直方图。
    
    Set MSChart1.DataSource = Adodc1End Sub

解决方案 »

  1.   

    ADODC的RecordSource 查询出的第一个字可设置为字符型，
    第二、第三字段必须是数字型的，否则不会出图形。第一个字段是mschart的横坐坐标的值，第二、第三个等
    字段必须是数字型的，第一个字段可以省略，但横坐标的
    值会是默认的R1、R2、R3 ....
    如果字段类型不是数字型的可以强制转换，
    ACCESS用cint、clng、CSng等，SQL SERVER用cast、convert转换。你也可以把数据源查出的数据装入一个variant数组如
    Dim Values(1 To 15, 1 To 3)
    然后用MSChart1.ChartData = Values来设置图形。
    绑定数据源举例如下：(数据库中所有字段均为字符型，字段内容全是字符型数字) Private Sub Form_Load()
        Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\11.mdb;Persist Security Info=False"
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select a,cint(b) from aaa" 'ACCES写法
        'Adodc1.RecordSource = "select a,cast(b as int) from aaa" 'SQL SERVER写法
        Adodc1.Refresh
        'MSChart1.chartType = VtChChartType2dLine '画线可用这句，默认直方图。
        
        Set MSChart1.DataSource = Adodc1End Sub