~~~~~呼救！！！如何将将ACCESS数据库中的某一字段的数值变化用曲线表现出来。~~~~~~~~~~~

Question

如何将将ACCESS数据库中的某一字段的数值变化用曲线表现出来。

Answer 1

你可以把数据当成横坐标或者纵坐标，然后另一个坐标可以随便定义一个单位长度递增，用line画出来

Answer 2

是把数据库中已有的数据，按不同字段分别画出这批数据的变化过程。我想问一下在哪个里面画比较好，用picturebox,Mschart还是什么比较好？另外我想直接调出数据库 中的数据，Dim cn    As New ADODB.Connection
Dim cmd    As New ADODB.Command
Dim rst    As New ADODB.Recordset
cn.Open "provider=microsoft.jet.oledb.4.0;Data source=E:\测试4_new\MysampleDB.mdb"请问 到了这一步打开数据库后怎么对具体哪个字段调用怎么写？？请各位帮忙，我对数据库实在不熟悉，最好能详细一点。先谢了！

Answer 3

原来是这样。那你可以参考风尘鸟说的去做。重点：用line画出来。

Answer 4

我自定义了一组数据，用line函数这样画，可是运行后没有任何图象，这是什么原因呢？？？？？？？？Private Sub Form_Load()
    Dim x0, y0, h, w
    Dim i   As Integer
    Dim data(5)
        data(0) = 12
        data(1) = 23
        data(2) = 33
        data(3) = 44
        data(4) = 61
        data(5) = 32
        x0 = Shape1.Left
        y0 = Shape1.Top + Shape1.Height
        h = Shape1.Height / 1
        w = Shape1.Width / 300
        Y1 = Shape1.Height
        For i = 0 To 4
           Picture1.Line (x0 + i * w, y0 - data(i) * h)-(x0 + (i + 1) * w, y0 -               data(i + 1) * h)
          Next i
End Sub

Answer 5

哦，谢谢各位我有点会用line画了，不过在继续问一下，我是把线画在picturebox中的，怎么样才能替picturebox添加上坐标轴和坐标呢？？？？？

Answer 6

刻度，那当然是print text了。

Answer 7

我感觉这样画还不如用MSchart控件啊，只是MSchart控件我只会简单的将环境设计器里的数据拖到MSchart控件里，怎么样对他真正的操作，请用过的高手指点一下把？？？？？？？？？我急的都快风掉了！！！

Answer 8

你把数据放到一个二维数组里面
如aryData
然后MSChart1.ChartData=aryData就可以了

Answer 9

在form上放一个MSChart控件
试试这段代码Option Explicit
Option Base 1Private Sub Form_Load()
    Dim arrData(3, 1 To 3)
    arrData(1, 1) = "Jan"   '如果第一列是文本就显示的是标签
    arrData(2, 1) = "Feb"
    arrData(3, 1) = "Mar"    arrData(1, 2) = 8
    arrData(2, 2) = 3
    arrData(3, 2) = 8
    arrData(1, 3) = 0.2
    arrData(2, 3) = 3
    arrData(3, 3) = 6.3
    
    MSChart1.ChartType = 3
    MSChart1.ChartData = arrData
End Sub

Answer 10

谢谢Skeleton若arrData(1, 3) = 0
    arrData(2, 3) = 1
    arrData(3, 3) = 0能否做到 将arrData  为 0 的值 屏蔽显示，即把线条显示  “——     ——     ——”这样？？

Answer 11

哦，谢谢 Skeleton(一堆骨头) ，我会了。只是，为什么MSChart1.ChartData = arrData用数组显示时，在属性里改columnlabel，就是改不了。（showlegend已设为true.)  一运行又变回默认的C1，C2...：（

Answer 12

上面的代码中
    arrData(1, 1) = "Jan"   '如果第一列是文本就显示的是标签
    arrData(2, 1) = "Feb"
    arrData(3, 1) = "Mar"

Answer 13

我说的是图例，也就是图上哪根线对应什么意识的那个标注。
    
     比方说第一条黑线为红灯的开关状况，
           第二条绿线为绿灯的开关状况，....     它默认的为C1，C2...
     我在MSCcomm属性里将C1，C2...改成了我想表示的文字了，可是一运行又返回默认值了，：（是不是我还有哪个属性设置的不对呢？

Answer 14

Option Explicit
Option Base 1Private Sub Form_Load()
    Dim arrData(3, 1 To 3)
    arrData(1, 1) = "Jan"   '如果第一列是文本就显示的是标签
    arrData(2, 1) = "Feb"
    arrData(3, 1) = "Mar"    arrData(1, 2) = 8
    arrData(2, 2) = 3
    arrData(3, 2) = 8
    arrData(1, 3) = 0.2
    arrData(2, 3) = 3
    arrData(3, 3) = 6.3
    
    MSChart1.chartType = 3
    MSChart1.ChartData = arrData
    MSChart1.ColumnLabel = "A"           '以下这几行是我在一堆骨头先生的代码中加的
    MSChart1.Column = 2
    MSChart1.ColumnLabel = "B"
End Sub

Answer 15

这个问题嘛，你先试试把mschart1.chartdata=arrdata这句注释掉，运行看看。再想一下就明白了。

Answer 16

哦，我知道一点了，谢谢中海大哥！其实之前我尝试过添加这样的语句只是没有加“”，所以我以为不是那个的问题：（我写成这样了：
    MSChart1.ColumnLabel = A
    MSChart1.Column = 2
    MSChart1.ColumnLabel = B