:strip_exif()/u/39521/icoon.gif?f=community)
Ja, ik zit dus met bovenstaande vraag. De situatie is als volgt:
Voor een intranetsite (welke wellicht wordt opgezet als template voor alle medewerkers) willen we een goed CMS erbij maken, zodat niet iedereen met .asp hoeft te klooien.
Nu hebben we ook een SQL Editor gemaakt (middels een FORM) waarmee de gebruikers dus een query op de Access 2000 database kunnen uitvoeren. Om het wat eenvoudiger te maken willen we een aantal standaard queries (middels een pulldown) leveren. Zo ook de volgende:
Voorbeeld code:
Deze code werkt wel via een (online) SQL Editor, maar dan alleen naar een SQL Server database toe.
Vraag:
Weet iemand van jullie net zo'n stukje code als bovenstaand, maar dan eentje die hetzelfde resultaat kan geven voor een MS Access 2000 database
Toevoeging:
Bovenstaande SQL Query welke wordt ingevoerd in de textarea wordt met behulp van deze functie uitgevoerd:
Voor een intranetsite (welke wellicht wordt opgezet als template voor alle medewerkers) willen we een goed CMS erbij maken, zodat niet iedereen met .asp hoeft te klooien.
Nu hebben we ook een SQL Editor gemaakt (middels een FORM) waarmee de gebruikers dus een query op de Access 2000 database kunnen uitvoeren. Om het wat eenvoudiger te maken willen we een aantal standaard queries (middels een pulldown) leveren. Zo ook de volgende:
Voorbeeld code:
code:
1
2
3
4
5
6
7
8
9
10
11
| SELECT SO.NAME AS TABLENAME,
SC.NAME AS COLUMN,
ST.NAME AS TYPE,
SC.LENGTH AS LENGTH
FROM SYSTYPES AS ST,
SYSCOLUMNS AS SC,
SYSOBJECTS AS SO
WHERE ST.USERTYPE = SC.USERTYPE AND
SO.ID = SC.ID AND
SO.ID > 10000
ORDER BY SO.NAME |
Deze code werkt wel via een (online) SQL Editor, maar dan alleen naar een SQL Server database toe.
Vraag:
Weet iemand van jullie net zo'n stukje code als bovenstaand, maar dan eentje die hetzelfde resultaat kan geven voor een MS Access 2000 database
Toevoeging:
Bovenstaande SQL Query welke wordt ingevoerd in de textarea wordt met behulp van deze functie uitgevoerd:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| Function getRecordset(strSQL)
'---------------------------------------------------------------------------
' Description: Voer het SQL statement uit welke wordt meegegeven aan de
' functie, mocht er een fout optreden dan wordt er een
' DisplayError Functie aangeroepen.
' MAAR gaat gewoon alles goed dan geeft de functie de
' RecordSet terug.
' Note: Errors worden genegeerd omdat de ADO foutmeldingen dan
' kunnen worden afgevangen.
' Input params: strSQL; dit is een string waarin het SQL statement
' zit welke uitgevoerd moet worden.
' Returns: Recordset; het recordset van het uitgevoerde SQL
' statement.
'---------------------------------------------------------------------------
Dim connection, recordset
'Check to see if the Application("[name]") is an Object.
If IsObject(Session("Conn")) Then
Set connection = Session("Conn")
Else
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; _
DBQ=" & server.mappath("database/TheDB.mdb")
Set Session("Conn") = connection
End If
Set recordset = connection.Execute(strSQL)
' If there were database errors then
' call the error display subroutine.
If connection.Errors.Count > 0 Then
Call DisplayDatabaseErrors(connection.Errors, strSQL)
End If
Set getRecordset = recordset
End Function |
[ Voor 0% gewijzigd door Woudloper op 15-08-2002 09:30 . Reden: Lay-out verneuking verminderd :) ]
/u/56680/gurgi.png?f=community)
) kon blijven benaderen en daar waar nodig tabellen toevoegen...:strip_exif()/u/196/day-of-the-tentacle3.gif?f=community)
