internet‎ > ‎develop‎ > ‎

Datenbankzugriffe

Voraussetzungen

  • Webspace bei ClubComputer
  • Access-Datenbankk demo.mdb im Verzeichnis /db
  • die nachfolgenden Skripts in /wwwroot
  • ASP, ASP.NET, PHP in den Webseiteneinstellungen aktiviert

Anpassung der eigenen Datenbank

Um eine eigene Datenbank an diese Beispiele anzupassen, müssen folgende Änderungen vorgenommen werden:

  • Datenbankname: strDbName
  • Datenbankpfad: strDbPath (siehe Webseiteneinstellungen in Helm)
  • Abfrage: strDbQuery
  • Namen der Ausgabefelder VNAME, FNAME

demo.asp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<%
Dim strDbName : strDbName = "demo.mdb"
Dim strDbPath : strDbPath = "D:\Domains\fiala.member.pcc.ac\db"
Dim strDbConn : strDbConn = _
  "Driver={Microsoft Access Driver (*.mdb)};" + _
  "DBQ="+strDbPath+strDbName
Dim strDbQuery : strDbQuery = _
  "SELECT * FROM DEMO ORDER BY FNAME, VNAME"
 
Dim objConn
Set objConn= Server.CreateObject("ADODB.Connection")
objConn.Open strDbConn
 
Dim objRst
Set objRst = objConn.Execute (strDbQuery) 
 
Do While Not objRst.EOF
  %><%=objRst("VNAME")%>&nbsp;<%=objRst("FNAME")%><%
  objRst.MoveNext
Loop
objRst.Close
objConn.Close
%>

demo.aspx

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
<%@ Page aspcompat=true Language="VB"%>
<%
Dim strDbName : strDbName = "demopccac.mdb"
Dim strDbPath : strDbPath = "D:\Domains\fiala.member.pcc.ac\db"
Dim strDbConn : strDbConn = _
  "Driver={Microsoft Access Driver (*.mdb)};" + _
  "DBQ="+strDbPath+strDbName
Dim strDbQuery : strDbQuery = _
  "SELECT * FROM DEMO ORDER BY FNAME, VNAME"
 
Dim objConn
objConn= Server.CreateObject("ADODB.Connection")
objConn.Open (strDbConn)
 
Dim objRst
objRst = objConn.Execute (strDbQuery) 
 
Do While Not objRst.EOF
  %><%=objRst("VNAME").Value%>&nbsp;<%=objRst("FNAME").Value%><%
  objRst.MoveNext
Loop
objRst.Close
objConn.Close
%>

demo.php

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<?
$strDbName = "demo.mdb";
$strDbPath = "D:\\Domains\\fiala.member.pcc.ac\\db";
$strDbConn =
  "Driver={Microsoft Access Driver (*.mdb)};".
  "DBQ=".$strDbPath.$strDbName;
//------------------------------------------------------
$strDbQuery = "SELECT * FROM DEMO ORDER BY FNAME, VNAME";
$objConn = odbc_connect($strDbConn,"","");
$objRst = odbc_exec($objConn,$strDbQuery);
while ($row = odbc_fetch_array($objRst))
{
  echo $row['VNAME']."&nbsp;".$row['FNAME']."";
}
odbc_close($objConn);
?>

Comments