AW: [Coffeehouse] Conn.Execute

["K�nig, Oliver"]

Hallo,

mein Code sieht folgenderma�en aus:

***************************************************
<%
Private Sub dbconnect()
' Datenbankverbindung aufbauen (mit Fehlerpr�fung)
    If IsObject("Conn") = FALSE Then        ' Object erstellen
        Set Conn = CreateObject("ADODB.Connection")
    Dim strConnStr        ' Verbindungsinformation zur
Datenbank(Connectin-String)
        strConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=C:\inetpub\wwwroot\ddb\db4.mdb"
        Conn.Open strConnStr
    End If
End Sub

Private Sub dbclose()
' Datenbankverbindung schlie�en und Instanzen zerst�ren (mit Fehlerpr�fung)
    If Conn.State = 1 Then        ' Connection schlie�en
        Conn.Close
        ' und Instanz zerst�ren
        Set Conn = Nothing
    End If
End Sub
%>


<%
sql = "INSERT INTO olli(nummer) VALUES(" & tempID & ");"
call dbconnect()
Conn.Execute(sql)
call dbclose()
end if
%>
***************************************************

Schreibe ich statt dem "call dbconnect()" direkt:

***************************************************
strconnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=C:\inetpub\wwwroot\ddb\db4.mdb"
Set conn = CreateObject("ADODB.Connection")
conn.Open strConnection
***************************************************

funktioniert es merkw�rdigerweise...

Olli
~~~~~~~~~~~~~~~~~~~~~~~~~~~sponsored by United Planet~~~~~~~~~~~~~~~~~
Kaffeepause im United Planet Communityserver ...
http://www.intrexx.com/communityserver                         
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse