[HTML] Access database openen vanuit html - Softwareontwikkeling

maandag 7 juni 2004 10:27

Acties:

Verwijderd

Topicstarter

Ik wil een access database openen vanuit een html pagina (intranet), ik heb de volgende code nu maar dit werkt niet:

<html>
<head>
<script language='javascript'>
function test()
{
var db = new ActiveXObject("Access.Application");
db.OpenCurrentDatabase("H:\Projectjes\Testjes\GroupCalender.mdb");
db.Run("","");
db.quit;
}
</script>
</head>
<body>
<a onclick='javascript: test();'>clickme</a>
</body>
</html>

Waarschijnlijk gaat het bij de db.Run niet goed maar ik kan daar weinig info over vinden op het net. Iemand een idee?

maandag 7 juni 2004 10:29

Acties:

gorgi_19

Kruimeltjes zijn weer op :9

Best kans dat je de rechten er niet voor hebt. In ieder geval; 't is clientside. Dat hoort in Webdesign & Graphics

>> Webdesign & Graphics

Digitaal onderwijsmateriaal, leermateriaal voor hbo

maandag 7 juni 2004 10:29

Acties:

Verwijderd

Je doet nu ook helemaal niets, dat het niet werkt valt dus te verwachten.

maandag 7 juni 2004 10:31

Acties:

André

Analytics dude

Volgens mij gaat dit nooit werken want de database zal bij iedereen clientside moeten staan, en iedereen moet genoeg rechten hebben. Kun je dit niet beter met ASP/PHP oplossen?

maandag 7 juni 2004 10:32

Acties:

Verwijderd

Topicstarter

Wat ik wil is dat de database gewoon geopend wordt, zonder toesters en bellen (uiteindelijk moet ie standaard een rapport gaan openen maar dat vogel ik later wel uit). Als ie nu gewoon access opent met de juiste database ben ik al tevreden.

Hoe doe ik dat dan?

maandag 7 juni 2004 10:34

Acties:

André

Analytics dude

Oh dat bedoel je, dat kan met vbscript, ik heb nog een voorbeeld voor Word liggen:

Visual Basic:

<script language="vbscript">
  sub OpenWord()
    set objWord = CreateObject("Word.Application")
    objWord.Visible = TRUE
    objWord.Documents.Open("\\ass-s-036\bla.doc")
  end sub
</script>

Even met zoeken enzo ombouwen naar Acces, dat zal ongeveer dit worden:

Visual Basic:

<script language="vbscript">
  sub OpenAccess()
    set objAccess = CreateObject("Access.Application")
    objAccess.Visible = TRUE
    objAccess.Documents.Open("\\ass-s-036\bla.mdb")
  end sub
</script>

[ Voor 39% gewijzigd door André op 07-06-2004 10:35 ]

maandag 7 juni 2004 10:39

Acties:

Verwijderd

Topicstarter

Zoiets:

<html>
<head>

<script language="vbscript">
sub OpenAccess()
set objAccess = CreateObject("Access.Application")
objAccess.Visible = TRUE
objAccess.Documents.Open("H:\Projectjes\Testjes\Group Calender.mdb")
end sub
</script>

</head>
<body>
<a onclick='vbscript: OpenAccess();'>clickme</a>
</body>
</html>

maandag 7 juni 2004 10:41

Acties:

André

Analytics dude

Gewoon aanroepen met <a onclick="OpenAccess()">Bla</a> ik weet niet of vbscript: wel werkt.

maandag 7 juni 2004 10:46

Acties:

Verwijderd

Topicstarter

Ik heb nu het volgende:

<html>
<head>

<script language="vbscript">
sub OpenAccess()
set objAccess = CreateObject("Access.Application")
objAccess.Visible = TRUE
objAccess.Documents.Open("H:\Projectjes\Testjes\Group Calender.mdb")
end sub
</script>

</head>
<body>
<a onclick="OpenAccess()">clickme</a>
</body>
</html>

Maar dit werkt nog niet (fout op pagina). Zou natuurlijk te maken kunnen hebben met de beveiliging van het netwerk of kan het nog iets anders zijn?

maandag 7 juni 2004 10:47

Acties:

André

Analytics dude

Ik zei toch dat het voorbeeld voor Word was en dat je dus even moet zoeken hoe je dit voor Access doet.

maandag 7 juni 2004 10:50

Acties:

Verwijderd

Topicstarter

Het begin is er, ik ga er wel uit komen denk ik.

Bedankt, zover

maandag 7 juni 2004 10:52

Acties:

André

Analytics dude

2 minuten zoeken, werkt dit?

code:

Dim objAccess
set objAccess = createObject("Access.Application")
objAccess.Visible = TRUE
objAccess.OpenCurrentDatabase "E:\test projects\db1.mdb"

[ Voor 15% gewijzigd door André op 07-06-2004 10:52 ]

maandag 7 juni 2004 13:12

Acties:

Verwijderd

Topicstarter

André schreef op 07 juni 2004 @ 10:52:
2 minuten zoeken, werkt dit?
code:
1
2
3
4
Dim objAccess
set objAccess = createObject("Access.Application")
objAccess.Visible = TRUE
objAccess.OpenCurrentDatabase "E:\test projects\db1.mdb"

Dit werkt inderdaad maar dan sluit ie gelijk de database weer af en dat is nou net niet de bedoeling. Hoe kan ik ervoor zorgen dat Access open blijft als deze code uitgevoerd is?

[ Voor 13% gewijzigd door Verwijderd op 07-06-2004 14:07 ]

dinsdag 8 juni 2004 08:09

Acties:

Verwijderd

Topicstarter

Niemand?

dinsdag 8 juni 2004 08:49

Acties:

SchizoDuckie

Kwaak

Verwijderd schreef op 08 juni 2004 @ 08:09:
Niemand?

Heb je al eens geprobeerd om gelijk een SQL query naar access te gooien om data terug te krijgen???

Denk bijv. eens aan hoe MySQL werkt: Bij elke request maak je een verbinding met de dbase, voer je je user/pass in, voer je 'm je query, je fetched je results, en de verbinding wordt weer verbroken

Stop uploading passwords to Github!

dinsdag 8 juni 2004 08:58

Acties:

André

Analytics dude

Previewen:

code:

1	objAccess.DoCmd.OpenReport rptName, 2

Printen:

code:

1	objAccess.DoCmd.OpenReport rptName, 0

En als dat het ook niet is gewoon even zoeken.

dinsdag 8 juni 2004 08:59

Acties:

Verwijderd

Topicstarter

Ik zit hier op een intranetomgeving die van voor tot achter en van links tot rechts, compleet dichtgetimmerd is. Het liefst zou ik gebruik maken van ASP in combinatie met deze Access database maar dat kan alweer niet........................

Dus deze halve oplossing, Access database op een netwerkschijf zetten en een link vanaf het intranet leek mij het beste alternatief.

maandag 21 juni 2004 12:09

Acties:

mbooij

De Mosselman

code:

Dim objAccess
set objAccess = createObject("Access.Application")
objAccess.Visible = TRUE
objAccess.OpenCurrentDatabase "E:\test projects\db1.mdb"

Opent bij mij gewoon de database hoor. Het direct aflsuiten van Access komt door de VB sub. Als je deze niet gebruikt (bv ASP bestand maken) werkt hij uitstekend.

[ Voor 34% gewijzigd door mbooij op 28-06-2004 11:42 ]

Intel i5 3570K@4.2Ghz, 2x4GB, MSI Z77A-G45, Club3D Radeon HD 7970 royalKing

maandag 28 juni 2004 11:39

Acties:

mbooij

De Mosselman

Zo op een zilveren serveer blaadje:

code:

  <%
if Request("file") <> "" then  

file = Request("file")  
%>
  <script language="vbscript">
Dim objAccess
set objAccess = createObject("Access.Application.9")
objAccess.Visible = TRUE
objAccess.OpenCurrentDatabase "<%=file%>"
</script>
  <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">De database 
  is succesvol geladen</font></strong> 
  <%
else
%>
  <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Geen database 
  om te laden</strong></font> 
  <%
End If
%>

Noem deze file iets.asp en open een access bestand door ?file=bestand.mdb achter de .asp te zetten in de browser. Dit werkt ook over een netwerk.

Intel i5 3570K@4.2Ghz, 2x4GB, MSI Z77A-G45, Club3D Radeon HD 7970 royalKing