Datenbankzugriffe

<%

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

%>

<%@ 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

%>

<?

$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);

?>