Option Explicit
 
Dim myCore As csCore.clsCore
 
Private Sub cmdAktCommentss_Click()
  On Error Resume Next
 
  Dim thisQuery As DBQuery
  Set thisQuery = New DBQuery
  Set thisQuery.Conn = myCore.DB.Conn
 
  thisQuery.DBSQL.sql = "Select count(AktResp) from akt where akttype= "
  thisQuery.DBSQL.AddLong 67
  If thisQuery.OpenQuery Then
    MsgBox "Anzahl der Datensätze in Tabelle = " & thisQuery.AsLong(0), _
      vbOKOnly + vbInformation, "Antwort"
  End If
 
  If thisQuery.EOF Then
    MsgBox "Letzter Datensatz erreicht"
  End If
End Sub
 
Private Sub cmddbabfrage_Click()
  On Error Resume Next
  Dim thisQuery As DBQuery
  Set thisQuery = New DBQuery
  Set thisQuery.Conn = myCore.DB.Conn
  thisQuery.DBSQL.sql = "Select aktsComment, AktResp, AktCreationDate from akt" & _
    "where akttodotype="
  thisQuery.DBSQL.AddLong 0
  thisQuery.DBSQL.Add "  and AktType = "
  thisQuery.DBSQL.AddLong 67
  If thisQuery.OpenQuery Then
    Do Until thisQuery.EOF
      If MsgBox("Kommentar = " & thisQuery.AsString("aktsComment") & _
      ", " & Chr(13) & "Ersteller = " & thisQuery.AsString("aktresp") & _
      ", " & vbCr & vbCrLf & "Datum = " & thisQuery.AsString( _
      "aktcreationdate"), vbOKCancel + vbInformation, "Antwort") = vbOK Then
        Resume
      Else
        Exit Do
      End If
      thisQuery.MoveNext
    Loop
   End If
  Set thisQuery = Nothing
End Sub
 
 
 
Private Sub Form_Load()
  On Error Resume Next
  Set myCore = New csCore.clsCore
  If Not myCore.StartConsolidate Then
    Call MsgBox("Datenbankverbindung konnte nicht hergestellt werden", vbOKOnly _
      + vbCritical, "Fehler")
    Unload Me
    End
  End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  Set myCore = Nothing
End Sub