VB6 i obiekt ADODB.Connection

Article View: pl.comp.lang.vbasic

Article #92450

Back to pl.comp.lang.vbasic Previous Next

#92450

From: Karlo
Date: Fri, 28 Oct 2005 14:27

21 lines
1376 bytes

Witam

Mam pytanko. W jaki sposób stwierdzić, czy baza danych została otwarta?
Próbuję to zrobić w następujący sposób:

Public Function CzyBazaOtwarta() As Boolean
If Len(BazaDanych.ConnectionString) <> 0 Then
     CzyBazaOtwarta = True
Else
     CzyBazaOtwarta = False
End If
End Function

Wszystko jest ok, jeżeli została wcześniej zainicjowana zmienna 
BazaDanych. Jeżeli nie, wówczas się wysypuje z mało przyjemnym 
komunikatem "Object variable or With block variable not set".
Jak to ominąć?

Z góry dziękuję za odpowiedzi

Karlo

Technical Details

Message-ID: <djtc8i$8a9$1@nemesis.news.tpi.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: Karlo <karlo47@wp.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: VB6 i obiekt ADODB.Connection
Date: Fri, 28 Oct 2005 16:27:00 +0200
Organization: tp.internet - http://www.tpi.pl/
Lines: 21
Message-ID: <djtc8i$8a9$1@nemesis.news.tpi.pl>
Reply-To: karlo47@wp.pl
NNTP-Posting-Host: host-ip242-226.crowley.pl
Mime-Version: 1.0
X-Trace: nemesis.news.tpi.pl 1130509394 8521 62.111.226.242 (28 Oct 2005 14:23:14 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Fri, 28 Oct 2005 14:23:14 +0000 (UTC)
User-Agent: Mozilla Thunderbird 1.0.7 (Windows/20050923)
X-Accept-Language: en-us, en
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit