Re: Variable im Code global definieren

[Stefan Sicurella <sicurella at onlymac dot de>]

hab ich gemacht, tut es aber nicht
ich sage dann in einer methode

  Dim f as folderItem

  db=New REALSQLDatabase
  f=getfolderItem("Daten")
  f=f.child("datenbank")

  db.DatabaseFile=f (in dieser Zeile kommt dann der Fehler: this  
methode or property does not exist)
  if not db.Connect() then
    db = nil
    msgBox "Fehler beim Öffnen der Datenbank"
  end if


Stefan


> Nimm einfach die Superklasse als typ und mach daraus eine globale  
> property:
> dim db as Database
>
>
> andy
>
> at 04.09.2007 8:49 Uhr, Stefan Sicurella wrote:
>
> > Leute, das war doch gar nicht meine Frage :-)
> >
> > die Frage war ob ich je nachdem was ich möchte die gleiche Variable
> > einmal
> > als RealSQLDatabase und ein anderes mal als RealSQlServerDatabase
> > deklarieren kann und das dann auch noch global
> >
> > ich hoffe ich habe es diesmal verständlicher rüber gebracht


From  Tue 4 Sep 2007 14:36:25 +0200
Return-Path: <realbasic-nug dot de-bounces at lists dot realsoftware dot com>
X-Original-To: listarchive at realsoftware dot com
Delivered-To: listarchive at realsoftware dot com
Received: by xmail.realsoftware.com (Postfix, from userid 1037)
        id F1A0C406CC9A; Tue,  4 Sep 2007 05:37:34 -0700 (PDT)
X-Spam-Checker-Version: SpamAssassin 3.1.1 (2006-03-10) on
        www.realsoftware.com
X-Spam-Level:
X-Spam-Status: No, score=-2.5 required=4.5 tests=AWL,BAYES_00 autolearn=ham
        version=3.1.1
Received: from lists.realsoftware.com (m.realsoftware.com [66.116.103.65])
        by xmail.realsoftware.com (Postfix) with ESMTP id 6A915406CC90;
        Tue,  4 Sep 2007 05:37:30 -0700 (PDT)
Received: from real-software-mini.local (localhost [127.0.0.1])
        by lists.realsoftware.com (Postfix) with ESMTP id 5EB5660F97B;
        Tue,  4 Sep 2007 07:37:18 -0500 (CDT)
X-Original-To: realbasic-nug dot de at lists dot realsoftware dot com
Delivered-To: realbasic-nug dot de at lists dot realsoftware dot com
Received: from smtprelay08.ispgateway.de (smtprelay08.ispgateway.de
        [80.67.29.8])
        by lists.realsoftware.com (Postfix) with ESMTP id 68E8E60F970
        for <realbasic-nug dot de at lists dot realsoftware dot com>;
        Tue,  4 Sep 2007 07:37:14 -0500 (CDT)
Received: (qmail 29950 invoked from network); 4 Sep 2007 12:37:24 -0000
Received: from unknown (HELO [192.168.1.80]) (363246 at [84 dot 175 dot 73 dot 
141])
        (envelope-sender <support at monkeybreadsoftware dot de>)
        by smtprelay08.ispgateway.de (qmail-ldap-1.03) with SMTP
        for <realbasic-nug dot de at lists dot realsoftware dot com>; 4 Sep 
2007 12:37:24 -0000
To: realbasic-nug dot de at lists dot realsoftware dot com (REALbasic NUG 
German)
In-Reply-To: <1E12CCFC-907B-4C84-B91A-8289303E56BA at onlymac dot de>
Subject: Re: Variable im Code global definieren
From: support at monkeybreadsoftware dot de (Christian Schmitz)
Date: Tue, 4 Sep 2007 14:36:25 +0200
Message-ID: <1i3x76d dot 1ecjfjq2lgvs3M%support at monkeybreadsoftware dot de>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Organization: Monkeybread Software Germany
X-Face: nrf3>{WQ6c&r+7 at e)"]0G60`-6ND^)I2mI%>)QGYa=9"=7jhd-g2|b3!>Al0+
        Ccb%xGQshhi|g at QU2$
User-Agent: MacSOUP/D-2.8 (Mac OS X version 10.4.9 (PPC))
X-BeenThere: realbasic-nug dot de at lists dot realsoftware dot com
X-Mailman-Version: 2.1.9
Precedence: list
Reply-To: REALbasic NUG German <realbasic-nug dot de at lists dot realsoftware dot 
com>
Sender: realbasic-nug dot de-bounces at lists dot realsoftware dot com
Errors-To: realbasic-nug dot de-bounces at lists dot realsoftware dot com

Stefan Sicurella <sicurella at onlymac dot de> wrote:

> hab ich gemacht, tut es aber nicht
> ich sage dann in einer methode
  Dim f as folderItem

  dim rdb as New REALSQLDatabase
  f=getfolderItem("Daten")
  f=f.child("datenbank")

  rdb.DatabaseFile=f (in dieser Zeile kommt dann der Fehler: this  
methode or property does not exist)
  if not rdb.Connect() then
    rdb = nil
    msgBox "Fehler beim Öffnen der Datenbank"
  end if

  db=rdb

und wenn du später mal auf die REALSQLDatabase properties zugreifen
willst, dann geht da so:

dim rdb as REALSQLDatabase
if db isa REALSQLDatabase then
  rdb=REALSQLDatabase(db)

end if

Gruß
Christian

--
Over 800 classes with 16000 functions in one REALbasic plug-in. 
The Monkeybread Software Realbasic Plugin v7.5. 

<http://www.monkeybreadsoftware.de/realbasic/plugins.shtml>