Mschart control.columnlabel VB6을 사용하여 Ado에서 데이터를 검색하지 않습니다.

Question

저는 VB6를 처음 사용하며 데이터베이스에서 데이터를 가져올 MSChart.columnlabel에 문제가 있습니다.이 제품 테이블에는 이름 필드가 있습니다. 문제는 프로그램을 실행할 때마다 msgbox가 갑자기 나타납니다.

"요청한 이름 또는 서수에 해당하는 모음에서 항목을 찾을 수 없습니다." 도와주세요.

이

Private cn As ADODB.Connection 
Private rsProducts As ADODB.Recordset 
Private Sub Form_Load() 
Set cn = New ADODB.Connection 
MSChart1.ToDefaults 

Const ConnectionString = "MySQL ODBC 5.1 Driver; SERVER=10.237.2.152; DATABASE=monitoring;UID=root;PWD=c0k3float;DSN=itemearv;" 
' Open the connection. 
    cn.Open ConnectionString 
    Dim strQuery As String ' SQL query string. 

    ' Create a query that retrieves only four fields. 
    'strQuery = "SELECT ProductName, UnitPrice, 
    'UnitsInStock, UnitsOnOrder FROM Products" 
    strQuery = "Select value from test.product" 
    Set rsProducts = New ADODB.Recordset 
    ' Open the recordset. 
    rsProducts.CursorLocation = adUseClient 
    rsProducts.Open strQuery, cn, adOpenKeyset 
    ' Set the DataSource to the recordset. 
    With MSChart1 
     .ShowLegend = True 
     Set .DataSource = rsProducts 
     .ColumnCount = rsProducts.RecordCount 
     .RowCount = 1 
     .RowLabel = "TESTING" 
    End With 
    Dim i As Integer 
    i = 1 
    While i <= rsProducts.RecordCount 
     With MSChart1 
      .Column = i 
      .Row = 1 
      .Data = rsProducts!Value 
      .ColumnLabel = rsProducts!Name 
      End With 
      rsProducts.MoveNext 
      i = i + 1 

    Wend 
    Set rsProducts = Nothing 


End Sub 

Answer 1

변경 select 명령 Name 포함 : 당신이

병이 여기에 내 코드를 게시 주셔서 감사

이

strQuery = "Select value,Name from test.product"