Möglichst kleine Scripts für Datenbankzugriff

[raphael]

Hi!

Mich würde mal interessieren, wie andere ASPler Ihre Datenbankzugriffe proggen.

Vielleicht weiß einer von Euch auch einen Link zu einer empfehlenswerten Webseite, die sich gründlich mit Datenbankprogrammierung beschäftigt?

Postet doch mal Beispiele von Euren, möglichst kleinen, Scripts. Ich mache den Anfang und habe hier das Script eines DSN-freien Datenzugriffs, welches den Dateninhalt einer Spalte mittels einer Schleife ausgibt. Das Teil stammt ursprünglich von Christoph Wille, einige von Euch kennen ihn vielleicht. Damals, vor über 2 Jahren, war dieses Datenbankzugriffsscript meine erste ASP-Erfahrung. Das Script war so umfangreich, dass mir das Auseinandernehmen und studieren desselben etwa 60 % dessen beibrachte, was ich heute weiß. Hier also das Script, verkürzt und abgeändert. Ich hoffe, Ihr könnt es lesen.

Beste Grüße
Raphael

<%
strConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ="
strConnection = strConnection & Server.MapPath("datenbank.mdb")
strConnection = strConnection & ";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;"

strSQL = "SELECT * FROM table ORDER BY ID ASC"

Set conn = CreateObject("ADODB.Connection")
conn.Open strConnection
Set rs = CreateObject ("ADODB.Recordset")
rs.Open strSQL, conn

If Not rs.EOF and Not rs.BOF Then
        avarRecords = rs.GetRows()
Else
        bNoRecords = True
End If

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

If Not bNoRecords Then

nRecords = UBound(avarRecords,2)

For intRecord = 0 To nRecords
    %><p><%=avarRecords(1,intRecord)%></p><%
    Next

End If
%>