Hallo nochmal,
also das mit dem passwort habe ich glaube ich hingekriegt ...
Nur da� jetzt mit dem Cursor probleme habe ....
Wenn ich die Datens�tze aktuallisiere und keine anderen Datenzugriffe sind
ge�ffnet (Respektive Formulare die auf die selben Tabellen zugreifen), dann
klappt es. Wenn ich jedoch gleichzeitige "andere" Zugriffe darauf habe (Also
andere Formulare), dann kriege ich den Fehler, da� die DB von dem Benutzer
der die EIntragung macht in einen Status versetzt wurde in der die DB weder
ge�ffnet noch gesperrt werden kann ....
So verbinde ich mich und f�hre die Inserts aus:
Dim dbs: Set dbs = New ADODB.Connection
Dim rs1: Set rs1 = New ADODB.Recordset
Dim rs2: Set rs2 = New ADODB.Recordset
Dim rs3: Set rs3 = New ADODB.Recordset
Dim rs4: Set rs4 = New ADODB.Recordset
Dim rs5: Set rs5 = New ADODB.Recordset
dbs.CursorLocation = adUseClient
dbs.Open CurrentProject.BaseConnectionString, "****", "****"
rs1.Open "Select * from Ware where WareID < 0", _
dbs, adOpenStatic, adLockOptimistic, adCmdText
rs2.Open "Select * from Halbteig where HalbteigID < 0", _
dbs, adOpenStatic, adLockOptimistic, adCmdText
rs3.Open "Select * from Halbmisch where HalbmischID < 0", _
dbs, adOpenStatic, adLockOptimistic, adCmdText
rs4.Open "Select * from Rezepturen where RezeptID < 0", _
dbs, adOpenStatic, adLockOptimistic, adCmdText
rs5.Open "Select * from Zutaten where ZutatID < 0", _
dbs, adOpenStatic, adLockOptimistic, adCmdText
dbs.BeginTrans
rs1.AddNew Array("WareBezeichnung"), Array(Me!WareBezeichnung)
refTab1 = rs1.Fields("WareID").Value
rs2.AddNew Array("HalbteigBezeichnung"), Array(Me!WareBezeichnung)
refTab2 = rs2.Fields("HalbteigID").Value
rs3.AddNew Array("HalbMischHalbID", "HalbMischWareID", "HalbMischMenge"),
Array(refTab2, refTab1, 1)
rs4.AddNew Array("RezeptBezeichnung"), Array(Me!WareBezeichnung)
refTab4 = rs4.Fields("RezeptID").Value
rs5.AddNew Array("ZutatRezeptID", "ZutatWarenID", "ZutatMenge"),
Array(refTab4, refTab2, 1)
dbs.CommitTrans
Muss ich also einen anderen Cursor verwenden, um da ein bisserl
optimistischer arbeiten zu k�nnen?
Gru� Mansur
> -----Urspr�ngliche Nachricht-----
> Von: Offensiv-Medien [Mansur Esmann] [mailto:[EMAIL PROTECTED]]
> Gesendet: Samstag, 23. Februar 2002 10:35
> An: ASP Datenbankprogrammierung
> Betreff: [aspdedatabase] DB-Kein zul�ssiges Passwort
>
>
> Hallo,
>
> hoffentlich ist jemand da, der mir nen Tip geben kann....
>
> Ich will innerhalb von Access (VBA) eine Connection �ffnen:
> connString="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA
> SOURCE=C:\Projekt\db1.mdb;PERSIST SECURITY INFO=FALSE;Jet OLEDB:System
> database=C:\Delivery\Gesichert.mdw;Jet OLEDB:Database Password=****;User
> ID=*****"
>
> Damit bekomme ich jedoch den Fehler: "Kennwort oder Benutzername stimmen
> nicht".
>
> Wenn ich selbst die DB �ffne, dann gebe ich das selbe Passwort und BenName
> an und kann dann alles machen (DB �ndern, Entwurfsansicht ...)
> Was mich ein bisserl stutzig macht ist das: "Jet OLEDB:System
> database=C:\Delivery\Gesichert.mdw". In diesem Verzeichnis habe
> ich mal die
> Sicherheit f�r das Projekt eingestellt.
>
> Kann mir da jemand weiterhelfen?
>
> Folgende Sachen kann ich fest vorgeben:
> -DATA SOURCE (C:\Projektname\db1.mdb)
> -Passwort und Benname sind ja eigentlich schon vorgegeben
>
> Gru� Mansur
>
>
> | [aspdedatabase] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
>
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
