吸海垂虹 来了么？ 请看下面为什么不对？

Question

為什么你的ColumnCount 也= 6?
把妳數据庫的字段列出來,不要用*

Answer 1

Dim con As new Adodb.ConnectionPrivate Sub Form_Load()
Dim scmd As String,Sql as String
Dim rs As new Adodb.RecordsetSql = "Provider=SQLOLEDB.1;password=;Persist Security Info=False;User ID=sa;Initial Catalog=ZNXG;Data Source=127.1.1.0"
Conn.Open (Sql)
'If rs.State = 1 Then rs.Close
rs.Open "select * from cs", con, adOpenForwardOnly, adLockReadOnly
If Not rs.EOF Then
    With MSChart1
      .Refresh
      .ColumnCount = 6
      .RowCount = rs.RecordCount
      For Column = 1 To 6
          .Column = Column
          .ColumnLabel = "Line_" & CStr(Column)
      Next
      
      For Row = 1 To rs.RecordCount
          .Row = Row
          .RowLabel = CStr(rs.Fields(0).Value)
          For Column = 1 To 6
              .Column = Column
              .Row = Row
              .Data = IIf(IsNull(rs.Fields("rq").Value), 0, rs.Fields("kll").Value)
          Next
          rs.MoveNext
          If rs.EOF Then Exit For
        Next
    End With
End If