2 
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) を参照する項目が明確ではありません」と表示されます

上記はメソッド全体であり、エラーが何について話しているのかわかりません。

4

1 に答える 1

6

r.IdxField(0).integervalue である必要があります。文字列の場合は、r.IdxField(0).stringvalue、日付の .datevalue などになります。

詳細については、http://docs.realsoftware.com/index.php/RecordSet.IdxField のオンライン ドキュメントを参照してください。

于 2011-06-29T18:15:19.063 に答える