Thema Datum  Von Nutzer Rating
Antwort
12.09.2005 09:30:24 Mishelle
NotSolved
12.09.2005 11:22:50 Rasta
NotSolved
12.09.2005 13:55:05 Mishelle
NotSolved
12.09.2005 15:37:51 Rasta
NotSolved
13.09.2005 09:00:39 Mishelle
NotSolved
Blau Aw:Aw:Aw:Aw:Aw: vba syntaxfehler
13.09.2005 09:17:10 Rasta
NotSolved
13.09.2005 10:44:01 Mishelle
NotSolved
13.09.2005 11:34:06 Rasta
NotSolved
13.09.2005 12:04:44 Mishelle
NotSolved
13.09.2005 12:33:07 Mishelle
NotSolved
13.09.2005 13:23:00 Rasta
NotSolved
13.09.2005 14:40:32 Mishelle
NotSolved
13.09.2005 14:43:19 Rasta
NotSolved
13.09.2005 15:26:01 Mishelle
NotSolved
13.09.2005 15:34:31 Rasta
NotSolved
13.09.2005 15:39:07 Mishelle
NotSolved
13.09.2005 15:59:05 rasta
NotSolved
Blau Blau AW
14.09.2005 07:45:49 Mishelle
NotSolved
13.09.2005 11:32:17 Rasta
NotSolved
13.09.2005 12:02:18 Mishelle
NotSolved

Ansicht des Beitrags:
Von:
Rasta
Datum:
13.09.2005 09:17:10
Views:
1234
Rating: Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:Aw: vba syntaxfehler
Hallo Mishelle,

keine panik, wir bekommen das schon hin

schreib doch das rs.close genau vor das loop!

er kann das ding ja nicht zumachen, wenn es noch nicht auf war(denk ich mir...)

also keine panik :-)

viele grüße

rasta

Mishelle schrieb am 13.09.2005 09:00:39:

hallo rasta

also ich bin irgendwie langsam am verzweifeln. egal ob ich was einfüge, ändere oder auskommentiere, es kommt immer ne fehlermeldung.
hier kommt jetzt die meldung: operation is not allowed when the object ist closed.

hilfe!

mein code jetzt:
Private Const Pfad = "C:\Documents and Settings\psale\Desktop\Support DB Auswertungsablauf (monatl.)2002.mdb"

Sub test_1()

Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim sConnString As String
Dim zeile As Long
Dim sSql As String

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Pfad & ";Persist Security Info=False"

'conn.Open sConnString
Set cmd.ActiveConnection = conn
zeile = 1
Do Until Cells(zeile, 1) = ""
rs.Close
rs.Open
cmd.CommandText = "SELECT User_20040126-02.UserID FROM User_20040126-02 WHERE User_20040126-02.UserID = " & Cells(zeile, 2)
cmd.CommandType = adCmdText
Set rs = cmd.Execute
Cells(zeile, 3) = rs.Fields("Kost")

zeile = zeile + 1
Loop

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

End Sub

gruß
mishelle

Rasta schrieb am 12.09.2005 15:37:51:

hallo mishelle,

das kommt dabei heraus, wenn man versucht, alles aus dem kopf zu wissen--sorry

versuch mal rs.CLOSE

bevor du ein neues query mit rs.open abschickst, musst du es imho vorher mit rs.close schliessen.

hoffe es hilft

viele grüße

rasta


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.09.2005 09:30:24 Mishelle
NotSolved
12.09.2005 11:22:50 Rasta
NotSolved
12.09.2005 13:55:05 Mishelle
NotSolved
12.09.2005 15:37:51 Rasta
NotSolved
13.09.2005 09:00:39 Mishelle
NotSolved
Blau Aw:Aw:Aw:Aw:Aw: vba syntaxfehler
13.09.2005 09:17:10 Rasta
NotSolved
13.09.2005 10:44:01 Mishelle
NotSolved
13.09.2005 11:34:06 Rasta
NotSolved
13.09.2005 12:04:44 Mishelle
NotSolved
13.09.2005 12:33:07 Mishelle
NotSolved
13.09.2005 13:23:00 Rasta
NotSolved
13.09.2005 14:40:32 Mishelle
NotSolved
13.09.2005 14:43:19 Rasta
NotSolved
13.09.2005 15:26:01 Mishelle
NotSolved
13.09.2005 15:34:31 Rasta
NotSolved
13.09.2005 15:39:07 Mishelle
NotSolved
13.09.2005 15:59:05 rasta
NotSolved
Blau Blau AW
14.09.2005 07:45:49 Mishelle
NotSolved
13.09.2005 11:32:17 Rasta
NotSolved
13.09.2005 12:02:18 Mishelle
NotSolved