|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.09.2005 09:30:24 |
Mishelle |
|
|
|
12.09.2005 11:22:50 |
Rasta |
|
|
|
12.09.2005 13:55:05 |
Mishelle |
|
|
|
12.09.2005 15:37:51 |
Rasta |
|
|
|
13.09.2005 09:00:39 |
Mishelle |
|
|
|
13.09.2005 09:17:10 |
Rasta |
|
|
|
13.09.2005 10:44:01 |
Mishelle |
|
|
|
13.09.2005 11:34:06 |
Rasta |
|
|
|
13.09.2005 12:04:44 |
Mishelle |
|
|
|
13.09.2005 12:33:07 |
Mishelle |
|
|
|
13.09.2005 13:23:00 |
Rasta |
|
|
|
13.09.2005 14:40:32 |
Mishelle |
|
|
|
13.09.2005 14:43:19 |
Rasta |
|
|
|
13.09.2005 15:26:01 |
Mishelle |
|
|
|
13.09.2005 15:34:31 |
Rasta |
|
|
|
13.09.2005 15:39:07 |
Mishelle |
|
|
|
13.09.2005 15:59:05 |
rasta |
|
|
|
14.09.2005 07:45:49 |
Mishelle |
|
|
 Aw:Aw:Aw:Aw:Aw: vba syntaxfehler |
13.09.2005 11:32:17 |
Rasta |
|
|
|
13.09.2005 12:02:18 |
Mishelle |
|
|
Von:
Rasta |
Datum:
13.09.2005 11:32:17 |
Views:
1114 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw: vba syntaxfehler |
Hallo Mishelle,
nicht verzweifeln... ich hab das ganze jetzt bei mir ausprobiert, und so geschrieben wie ich es machen würde
schau einfach mal drüber-- die hauptsächliche änderung ist, das ich ohne command arbeite- wenn ich kein update oder insert in die datenbank mache-- und die loop-schleife
bei mir hats funkktioniert-- viel erfolg! & viele grüße
rasta
-------------------------
Dim conn As New ADODB.Connection
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=c:\test.mdb;Persist Security Info=False"
'conn.Open sConnString
zeile = 1
Do Until Cells(zeile, 1) = "END"
'rs.Close
rs.Open "SELECT * from namen", conn
Cells(zeile, 3) = rs.Fields("Name")
zeile = zeile + 1
rs.Close
Loop
Set rs = Nothing
Set cmd = Nothing
conn.Close
Set conn = Nothing
End Sub
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
12.09.2005 11:22:50 |
Rasta |
|
|
|
12.09.2005 13:55:05 |
Mishelle |
|
|
|
12.09.2005 15:37:51 |
Rasta |
|
|
|
13.09.2005 09:00:39 |
Mishelle |
|
|
|
13.09.2005 09:17:10 |
Rasta |
|
|
|
13.09.2005 10:44:01 |
Mishelle |
|
|
|
13.09.2005 11:34:06 |
Rasta |
|
|
|
13.09.2005 12:04:44 |
Mishelle |
|
|
|
13.09.2005 12:33:07 |
Mishelle |
|
|
|
13.09.2005 13:23:00 |
Rasta |
|
|
|
13.09.2005 14:40:32 |
Mishelle |
|
|
|
13.09.2005 14:43:19 |
Rasta |
|
|
|
13.09.2005 15:26:01 |
Mishelle |
|
|
|
13.09.2005 15:34:31 |
Rasta |
|
|
|
13.09.2005 15:39:07 |
Mishelle |
|
|
|
13.09.2005 15:59:05 |
rasta |
|
|
|
14.09.2005 07:45:49 |
Mishelle |
|
|
Aw:Aw:Aw:Aw:Aw: vba syntaxfehler |
13.09.2005 11:32:17 |
Rasta |
|
|
|
13.09.2005 12:02:18 |
Mishelle |
|
|