---

Hej NG

Hvordan ser man om der er data i et OLE-objekt felt i en accesDB. Koderne er
skrevet i VBscript
Havde det være tekst ville jeg have gjort sådan:

IF rs("et felt") THEN
-- udføre et eller andet --
END IF

Det virker bare ikke for OLE-objekter (fx billedfiler).

mvh

Carsten

---

Carsten skrev:
> IF rs("et felt") THEN

Prøv at bruge:

if rs( "felt" ) & "" = "" Then
   'Felter er tomt
Else
   'Feltet er ikke tomt
End if

--
Jakob Andersen

---

Næhh... det har jeg også prøvet. Og <> virker heller ikke. Andre forslag ?

---

Carsten Pinderup skrev:
> Næhh... det har jeg også prøvet. Og <> virker heller ikke. Andre forslag ?

Hvad har du prøvet, det er lidt svært at se hvad du snakker om når du ikke
medtager det du svarer på, se evt.:

http://www.usenet.dk/netikette/citatteknik.html

Herudover er det også en god ide at skrive mere end "det virker ikke", se
evt.: http://asp-faq.dk/article/?id=41

--
Jakob Andersen

---

> Hvad har du prøvet, det er lidt svært at se hvad du snakker om når du ikke
> medtager det du svarer på, se evt.:
>
> http://www.usenet.dk/netikette/citatteknik.html

ok - jeg læser normalt ovenstående medd. og har dermed informationer om
emnet. Men man må hellere gøre som det sig hør og bør.

> Herudover er det også en god ide at skrive mere end "det virker ikke", se
> evt.: http://asp-faq.dk/article/?id=41

Det kan du have ret i.

problemstillingen ses stadig øverst i tråden...

men gentages gerne kort:
Hvordan tjekkes om en ole-objekt i en AccessDB er tom eller ej?

og lidt mere kode kommer her:

billedtekst1 er et tekstfelt i databasen
thump1 er en blob-objekt i databasen

Fil1:
<%
IF billedtekst1 >"" THEN
' IF thump1 > 0 THEN (virker ikke)
Response.write"<IMG width='100' border='0'
SRC='../artikler/thump1.asp?keyword=" & id & "'>&nbsp;&nbsp;"
%>

thump1.asp-filen:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
server.MapPath("../artikler.mdb")

SQLstmt = "SELECT thump1 FROM tbl WHERE edit_id =" & Request("keyword")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)

'response.write sqlstmt

If Not RS.EOF Then
Response.ContentType = "image/jpeg"
Response.BinaryWrite RS("thump1")
End If

%>

Hilsen Carsten

---

Carsten skrev:

> ok - jeg læser normalt ovenstående medd. og har dermed
> informationer om emnet.

Jeg ser kun nye indlæg når jeg læser gruppen. Dermed er
informationerne om hvem der har skrevet det foregående indlæg, samt
velvalgte citater særdeles vigtige for at kunne følge tråden. Selv
om andre kan have ældre indlæg vist ovenfor, vil det oftest kun
være i overskriftsform og der er derfor stadig brug for citater til
at "hæfte" tråden sammen.

> Men man må hellere gøre som det sig hør og bør.

Det er en ganske pragmatisk indstilling.


> ' IF thump1 > 0 THEN (virker ikke)

Har du prøvet at tjekke om thump1 er null?

   IF Not IsNull(thump1) Then
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

> > ok - jeg læser normalt ovenstående medd. og har dermed
> > informationer om emnet.
>
> Jeg ser kun nye indlæg når jeg læser gruppen. Dermed er
> informationerne om hvem der har skrevet det foregående indlæg, samt
> velvalgte citater særdeles vigtige for at kunne følge tråden. Selv
> om andre kan have ældre indlæg vist ovenfor, vil det oftest kun
> være i overskriftsform og der er derfor stadig brug for citater til
> at "hæfte" tråden sammen.
>
argumentet er godt - nu kan jeg også se en mening med det.

> > Men man må hellere gøre som det sig hør og bør.
>
> Det er en ganske pragmatisk indstilling.
>
>
> > ' IF thump1 > 0 THEN (virker ikke)
>
> Har du prøvet at tjekke om thump1 er null?
>
> IF Not IsNull(thump1) Then

se det virkede - takker.

Hilsen Carsten Pinderup