Hi Alexander,
wie Du eine DSN anschlie�st, in der Systemsteuerung, das weisst Du. Es gibt
ja viele verschieden M�glichkeiten der Verbindung.
dim sql, AnzahlDS
> sql = "insert into datkunden (kunden) Values ('" &
> Request("kunden") & "')"
> objConn.Execute( SQL )
> Response.redirect("meineSeite.asp")
> @ Gudula: auf "meineSeite.asp", was sollte dort zu finden sein bzw. was
> soll ich vorher darauf eintragen?
Hier lade ich mir die Seite neu nach dem insert, damit er mir die aktuellen
Datens�tze samt dem, den ich eingeben habe, anzeigt. Dies sollte auch nur
mal ein Script sein, welches ich so als Vorlage benutze um es auszubauen. Es
gibt da auch verschiedene M�glichkeiten �ber ADO z.B. mit rs.Addnew.
> line 30 rs.Open sql, objConn, 3, 3
Die 3en kann man auch rausnehmen, war nur zuf�llig in der Vorlage, weil ich
mir die Anzahl der Datens�tze hab anzeigen lassen. Anstelle dessen kann man
auch die Konstanten von VBScript verwenden AdOpenStatic und
AdLockOptimistic. Die Konstanten m�ssten dann aber included sein. Aber 3,3
tuts auch, f�r mich jedenfalls. Man kann es aber auch ganz rausnehmen. Wenn
Du nur ein einfaches Recordset aufrufen willst, kannst Du es auch
rausnehmen.
Hier nochmal mit etwas Erkl�rung. So funktioniert es bei mir.
<%@LANGUAGE="VBSCRIPT" %>
<% option explicit
Response.buffer = true
dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=MeineVerbindung"
' --- hier kann man feststellen, ob die DB ge�ffnet wird
Response.write("DB offen")
dim url, go
url = Request.ServerVariables("SCRIPT_NAME")
go = Request("go")
' --- dies wird geladen, wenn der Button go geklickt wird und ein DS
eingef�gt werden soll
if go <> "" then
dim sql, AnzahlDS
sql = "insert into datkunden (Ausgabe) Values ('" & Request("eingabe") &
"')"
objConn.Execute( SQL )
' --- hier wird die Seite neu geladen, um den gerade eingef�gten Datensatz
zu sehen
Response.redirect url
' --- ansonsten Ausgabe Formular aufgelisteten DS
else
dim rs
dim Anzahl
Response.Write("<form name=""form1"" method=""post"" action="""">" &
vbcrlf)
Response.Write("<input type=""text"" name=""eingabe"">" & vbcrlf)
Response.Write("<input type=""submit"" name=""go"" value=""go"">" &
vbcrlf)
Response.Write("</form>")
' --- Aufruf des Recordsets mit den bereits eingegbenen Daten
sql = "Select * from datkunden order by Ausgabe DESC "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, objConn
' --- Ausgabe der Daten in der Schleife
while not rs.eof
Response.write rs("ausgabe") & "<br>"
rs.movenext
wend
' --- Recordset schlie�en
rs.close
set rs=nothing
end if
' -- Verbindung schlie�en
objConn.close
set objConn = Nothing
%>
aber ganz einfach testen, ob Deine Verbindung �berhaupt zustande kommt,
kannst Du so
<%@LANGUAGE="VBSCRIPT" %>
<%
dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=DeineVerbindung"
' --- hier kann man feststellen, ob die DB ge�ffnet wird
Response.write("DB offen")
' -- Verbindung schlie�en
objConn.close
set objConn = Nothing
%>
Gr��e, Gudula
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
