Re: Prüfen auf is Nothing?

From: Thilo Immel (Immel_at_Atroplan.de)
Date: 03/25/04 

Date: Thu, 25 Mar 2004 08:12:05 +0100

On Thu, 25 Mar 2004 07:36:22 +0100, "Jürgen Volke"
<juergen_volke@hotmail.com> wrote:

>Hallo Thilo
>>
>> Mal 'ne doofe Frage:
>> Wie kann man prüfen, ob ein Object den Wert 'Nothing' hat?
>>
>> Möchte eine vereinfachte Schreibweise für den Zugriff auf die aktuelle
>> DB zur Verfügung stellen und dabei optional die Angabe einer
>> Connection zulassen (um ggf. EIN Connection-Objekt in der aufrufenden
>> Prozedur anlegen zu können zwecks EINER gemeinsamen
>> Transaktionssteuerung)
>>
>>
>> Public Sub OpenDyna(R As ADODB.Recordset, SQL As String, Optional Conn
>> As ADODB.Connection)
>> If IsMissing(Conn) Then
>> R.Open SQL, CurrentProject.Connection, adOpenDynamic,
>> adLockPessimistic
>> Else
>> R.Open SQL, Conn, adOpenDynamic, adLockPessimistic
>> End If
>> End Sub
>>
>>
>> IsMissing funktioniert natürlich nicht mit einer Connection-Variable.
>> Aber mit IsNull kann ich Nothing nicht herausbekommen (das ist der
>> Standardwert, wenn conn als optionaler Parameter weggelassen wird).
>
>probier halt mal:
>
>Public Sub OpenDyna(R As ADODB.Recordset, SQL As String, Optional Conn As ADODB.Connection = Null)
>If IsNull(Conn) Then
> R.Open SQL, CurrentProject.Connection, adOpenDynamic, adLockPessimistic
>Else
> R.Open SQL, Conn, adOpenDynamic, adLockPessimistic
>End If
>End Sub

Habe ich bereits, funktioniert nicht.

Aber ich werde Ralphs Ansatz mal probieren.

Trotzdem Danke!

Gruß

Thilo

Relevant Pages

  • Re: Prüfen auf is Nothing?
    ... > Connection zulassen (um ggf. ... > Public Sub OpenDyna(R As ADODB.Recordset, SQL As String, Optional Conn ...
    (microsoft.public.de.access.clientserver)
  • Prüfen auf is Nothing?
    ... Connection zulassen (um ggf. ... Public Sub OpenDyna(R As ADODB.Recordset, SQL As String, Optional Conn ...
    (microsoft.public.de.access.clientserver)
  • RE: SQL Server Error
    ... SQL 2000 Server ... It is an Access 97 database ... Set conn = New ADODB.Connection ...
    (microsoft.public.sqlserver.server)
  • RE: sql criteria change
    ... you don't really need to use MS Query. ... Dim SQL As String ... Dim conn As ADODB.Connection ...
    (microsoft.public.excel.programming)
  • Re: Data Access done simply ...
    ... System.Data.SqlClient.SqlConnection conn; ... System.Data.DataSet dsNames; ... "Jon Rowlan" wrote: ... I want to connect to an SQL database, execute a SQL command to return a ...
    (microsoft.public.vstudio.development)