のREALbasicとMySQL

Question

は

Dim db as MySQLCommunityServer 
    db =New MySQLCommunityServer 
    db.host="127.0.0.1" 
    db.port=3306 
    db.databaseName="requesterdb" 
    db.userName="root" 
    db.Password="" 

    Dim divisionID As String 
    Dim supervisorName As String 
    Dim lsupervisorTotal As Integer 

    If db.Connect then 


    dim r as RecordSet 
    r=db.SQLSelect("select COUNT(*) As supervisorTotal FROM supervisorTable WHERE supervisorName='" + SupervisorTextField.Text.Trim + "'") 

    if r<>nil and r.RecordCount>0 then 
     while not r.EOF 
     lsupervisorTotal  = r.IdxField(0) // Line with Error 
     If lsupervisorTotal > 0 Then 
      ' Check User Database and Insert If Needed 
     End If 

     r.MoveNext 
     wend 
    end if 


    else 
    MsgBox "Connection failed!" 
    end if 

    db.Close 

メッセージ「があり、この名前を持ついくつかの項目があり、それは呼び出しがlSupervisorTotal = r.IdxField（0）を指している1はっきりしていない」

以上が全体の方法およびI言いますエラーが何を話しているのか分かりません。

Answer 1

r.IdxField（0）の整数値である必要があります。それが文字列だった場合には、日付のr.IdxField（0）.stringvalue、.datevalueだろう、など

詳細情報はhttp://docs.realsoftware.com/index.php/RecordSet.IdxField