Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1032to1036
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SQL-Abfrage mit Variable

SQL-Abfrage mit Variable
28.12.2008 19:12:39
Dieter
Hallo zusammen,
ich möchte bei einer SQL-Abfrage eine Variable einsetzen.
Mein Makro sieht an der Stelle so aus
..... & "WHERE Top15000.nr Like & Testnr)")
TOP15000 ist eine SQL-Tabelle
nr ist die SQL-Tabellenspalte
Dim Testnr as integer
Testnr ist = Range("testnr1").value
Es wird ein Syntax-Fehler ausgegeben......
Weiss jemand wo der Fehler ist ?
Gruß Dieter

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SQL-Abfrage mit Variable
28.12.2008 19:28:21
Ramses
Hallo
..... & "WHERE Top15000.nr Like " & Testnr & ")")
ACHTUNG:
Ein Leerzeichen nach "Like".
Dann sollte das tun
Gruss Rainer
AW: SQL-Abfrage mit Variable
28.12.2008 20:01:00
Dieter
nee, bekomme immernoch einen Syntax-Fehler
Gruß Dieter
AW: SQL-Abfrage mit Variable
28.12.2008 20:05:00
Ramses
Hallo
dann stell doch mal den ganzen Code hier rein
Gruss Rainer
AW: SQL-Abfrage mit Variable
28.12.2008 20:16:09
Dieter
das ist der gesamte Code

Sub Abfrage_1()
Dim Testsnr As Integer
Testsnr = Range("testsnr1").Value
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Visamdaten;Description=Visamdaten;UID=Test;PWD=Test1;APP=Microsoft Office  _
2003;WSID=DSCHWAB;DATABASE=Visamdaten" _
, Destination:=Range("A1"))
.CommandText = Array( _
"SELECT Feuchte_W5.snr, Feuchte_W5.ID" & Chr(13) & "" & Chr(10) & "FROM Visamdaten.dbo. _
Feuchte_W5 Feuchte_W5" & Chr(13) & "" & Chr(10) & "WHERE Feuchte_W5_Top15000.snr Like " & Testsnr & ")")
.Refresh BackgroundQuery:=False
End With
End Sub


der Fehler kommt beim .Refresh
Gruß Dieter

Anzeige
AW: SQL-Abfrage mit Variable
28.12.2008 20:36:46
Ramses
Hallo
Also dies
"... & Chr(13) & "" & Chr(10) & ..."
ist mir schon mal suspekt.
Wozu soll das gut sein bzw. was willst du da abfragen ?
Das sind doch nur Zeilenschaltungen und die haben in einem SQL-String eigentlich nichts verloren
Probier mal

Sub Abfrage_1()
Dim Testsnr As Integer
Testsnr = Range("testsnr1").Value
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=Visamdaten;Description=Visamdaten;UID= _
Test;PWD=Test1;APP=Microsoft Office 2003;WSID=DSCHWAB;DATABASE=Visamdaten", Destination:=Range("A1")).CommandText = _
Array("SELECT Feuchte_W5.snr, Feuchte_W5.ID FROM Visamdaten.dbo Feuchte_W5 Feuchte_W5 WHERE  _
Feuchte_W5_Top15000.snr Like " & Testsnr & ")")
.Refresh BackgroundQuery:=False
End With
End Sub


Ein Fehler kommt immer beim Refresh wenn der SQL-String falsch aufgebaut ist
Gruss Rainer

Anzeige
AW: SQL-Abfrage mit Variable
28.12.2008 20:53:08
Dieter
es wird ein Fehler gemeldet, wahrscheinlich durch die
unetrschiedliche "Sortierung"
na jedenfalls erwartet Excel an der Stelle * ein Listentrennzeichen oder )
weiss aber nicht wo genau ?

Sub Abfrage_1()
Dim Testsnr As Integer
Testsnr = Range("testsnr1").Value
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=Visamdaten;Description=Visamdaten;UID= _
test _
* ;PWD=test1;APP=Microsoft Office 2003;WSID=DSCHWAB;DATABASE=Visamdaten", Destination:=Range(" _
A1")).CommandText = _
Array("SELECT Feuchte_W5.snr, Feuchte_W5.ID FROM Visamdaten.dbo Feuchte_W5 Feuchte_W5 WHERE _
Feuchte_W5_Top15000.snr Like " & Testsnr & ")")
.Refresh BackgroundQuery:=False
End With
End Sub


Gruß Dieter

Anzeige
Warum geändert ?
28.12.2008 21:25:00
Ramses
Hallo
Wozu das "*" ?
Das ist in meinem Beispiel nicht drin und in deinem ersten Beispiel auch nicht !?
Gruss Rainer
AW: Warum geändert ?
28.12.2008 21:29:35
Dieter
ich wollte Dir nur die Stelle zeigen, die Excel anmeckert.
Eigentlich geht Excel auf das Semikolon vor PDW und schickt die Fehlermeldung.
Sorry, dass das nicht so klar `rübergekommen ist
Gruß Dieter
AW: Warum geändert ?
28.12.2008 21:49:25
Ramses
Hallo
Entferne alle "_" aus dem Beispielcode so dass die SQL Anweisung in EINER Zeile steht.
EXCEL kann kopierten Code aus dem Forum nicht immer im VB-Editor korrekt umsetzen
Gruss Rainer
AW: Warum geändert ?
29.12.2008 01:31:38
Erich
Hallo Dieter,
probiers mal so: 

Sub Abfrage_1()
Dim Testsnr As Integer
Testsnr = Range("testsnr1").Value
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=Visamdaten;" & _
"Description=Visamdaten;UID=Test;PWD=Test1;APP=Microsoft Office 2003;" & _
"WSID=DSCHWAB;DATABASE=Visamdaten", Destination:=Range("A1"))
.CommandText = Array("SELECT Feuchte_W5.snr, Feuchte_W5.ID " & _
"FROM Visamdaten.dbo Feuchte_W5 Feuchte_W5 " & _
"WHERE Feuchte_W5_Top15000.snr Like " & Testsnr & ")")
.Refresh BackgroundQuery:=False
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Warum geändert ?
29.12.2008 16:33:20
Dieter
Sorry, mit der Antwort hat es etwas länger gedauert......,
funktioniert leider in beiden "Fällen" nicht.
Laufzeitzeitfehler 1004
mit dem Hinweis beim Code vom Reiner
"Diese Option ist für diese Art von externen Datenbanken nicht verfügbar".
Nun weiss ich gar nix mehr ?
Gruß Dieter
AW: noch ein Versuch
29.12.2008 23:57:00
Erich
Hi Dieter,
eine Bitte: Wenn ein Fehler auftritt, könntest du bitte die falsche Codezeile, Fehlernr. und -hinweis posten?
Noch ein Versuch (kleine Änderung im SELECT): 

Sub Abfrage_1()
Dim Testsnr As Integer
Testsnr = Range("testsnr1").Value
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=Visamdaten;" & _
"Description=Visamdaten;UID=Test;PWD=Test1;APP=Microsoft Office 2003;" & _
"WSID=DSCHWAB;DATABASE=Visamdaten", Destination:=Range("A1"))
.CommandText = Array("SELECT Feuchte_W5.snr, Feuchte_W5.ID " & _
"FROM Visamdaten.dbo Feuchte_W5 Feuchte_W5 " & _
"WHERE Feuchte_W5_Top15000.snr Like '" & Testsnr & "')")
.Refresh BackgroundQuery:=False
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: noch ein Versuch
30.12.2008 14:15:00
Dieter
Hallo Erich,
immer noch der selbe Fehler.
Ich führe den Code manuell durch, d.h. mit Taste F8
Wenn ich bei Zeile . Refresh BackgroundQuery:=False angkommen bin
und weiter ausführen möchte, erscheint folgende Fehlermeldung :
Laufzeitfehler 1004 : SQL-Syntaxfehler
Bei der "Überwachung" von Testsnr wird der Wert korrekt angezeigt.
Gruß Dieter
AW: und noch ein Versuch
30.12.2008 14:35:00
Erich
Hi Dieter,
da fehlte noch ein Punkt (im FROM) - vielleicht funzt es jetzt: 

Sub Abfrage_1()
Dim Testsnr As Integer
Testsnr = Range("testsnr1").Value
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=Visamdaten;" & _
"Description=Visamdaten;UID=Test;PWD=Test1;APP=Microsoft Office 2003;" & _
"WSID=DSCHWAB;DATABASE=Visamdaten", Destination:=Range("A1"))
.CommandText = Array("SELECT Feuchte_W5.snr, Feuchte_W5.ID " & _
"FROM Visamdaten.dbo.Feuchte_W5 Feuchte_W5 " & _
"WHERE Feuchte_W5_Top15000.snr Like '" & Testsnr & "')")
.Refresh BackgroundQuery:=False
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: und noch eine Alternative
30.12.2008 14:53:00
Erich
Hi Dieter,
falls da doch eine Zahl gesucht werden soll, ohne Hochkommata um Testsnr: 

Sub Abfrage_1()
Dim Testsnr As Integer
Testsnr = Range("testsnr1").Value
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=Visamdaten;" & _
"Description=Visamdaten;UID=Test;PWD=Test1;APP=Microsoft Office 2003;" & _
"WSID=DSCHWAB;DATABASE=Visamdaten", Destination:=Range("A1"))
.CommandText = Array("SELECT Feuchte_W5.snr, Feuchte_W5.ID " & _
"FROM Visamdaten.dbo.Feuchte_W5 Feuchte_W5 " & _
"WHERE Feuchte_W5_Top15000.snr Like " & Testsnr & ')")
.Refresh BackgroundQuery:=False
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: und noch eine Alternative
30.12.2008 15:23:33
Dieter
nee, funzt leider immer noch nicht.
Ich habe das Hochkomma hinter Testsnr in ein Anführungszeichen " ändern müssen,
sonst wurde das schon bei der Eingabe angemeckert.
Gruß Dieter
AW: und noch eine Alternative
30.12.2008 15:52:00
Erich
Hi Dieter,
sorry, da hatte ich das falsche Zeichen gelöscht...
Noch eine Version - mit einem Semokolon am Ende: 

Sub Abfrage_1()
Dim Testsnr As Integer
Testsnr = Range("testsnr1").Value
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=Visamdaten;" & _
"Description=Visamdaten;UID=Test;PWD=Test1;APP=Microsoft Office 2003;" & _
"WSID=DSCHWAB;DATABASE=Visamdaten", Destination:=Range("A1"))
.CommandText = Array("SELECT Feuchte_W5.snr, Feuchte_W5.ID " & _
"FROM Visamdaten.dbo.Feuchte_W5 Feuchte_W5 " & _
"WHERE Feuchte_W5_Top15000.snr Like " & Testsnr & ";")
.Refresh BackgroundQuery:=False
End With
End Sub


Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
Jaaaaaaaaaaa
30.12.2008 16:08:41
Dieter
ich glaube, Deine letzte Änderung mit dem Semikolon war der BRINGER.
Ich hatte auch schon gefühlte 1000 Änderungen probiert
Wunderbar, Danke.
Ich will eine Regelkarte aufbauen, kontinuierlich (jede Minute) Daten von einer SQL-Tabelle holen und in
die Auswertung bringen.
Da es doch mit der Zeit recht viele Daten sein werden, kann ich mit dem Code entsprechend filtern.
Danke !
Nu`werde ich erstmal ausgiebig testen......
Gruß Dieter

21 Forumthreads zu ähnlichen Themen

Query Abfrage mit Parameter?!
Horst

Hallo zusammen,
lange nicht hier gewesen. Schön, dass es dieses Forum noch gibt.
Ich hole mir Daten über eine ODBC-Schnittstelle mit Hilfe des Microsoft Query.
Um die Datenmenge einzugrenzen, setzte ich als Kriterium [Datum] und fülle die folgende Parameterabfrage mit DD.MM.YYYY (z....
03.06.2009 17:22:06
Thread-ID: 1078944
8 Beiträge
Anzeige
SQL Abfrage mit Ucase oder Upper
Wolfgang

Hallo Excelianer,
steh vor folgendem Problem:
Habe eine Datenbankabfrage erstellt, in dieser soll jetzt der User in einem Textfeld der Datenbank nach einem frei wählbarem Text unter VBA suchen können. Je nachdem wie er diesen Text nun schreibt (Groß oder Kleinschrift) fällt das Ergbnis...
15.07.2010 15:27:46
Thread-ID: 1167257
4 Beiträge
sql select abfrage mit variablen
Axel

Hallo,
ich frage in excel via makro datensätze in einer informix datenbank ab und bringe das ergebnis zurück in mein aktuelles shhet. Kein Problem - aber. Wenn ich das konto "14753" durch den inhalt der Variablen konto ersetzen möchte bekomme ich einen fehler beim ausführen: hier der code (...
19.11.2010 15:43:32
Thread-ID: 1187826
4 Beiträge
Anzeige
Sql Abfrage mit Passwort per Makro aktualisieren
Rupert

Hallo liebe Forengemeinde,
ich brauche wieder mal eure Hilfe.
Ich habe hier ein paar SQL Abfragen gebastelt, welche ich per Makro aktualisieren will.
Hintergrund, der User der SQL Datenbank hat ein Passwort und dieses sollen nur einige wenige wissen, die Aktualisiereung soll jedoch...
28.03.2013 14:34:00
Thread-ID: 1306354
4 Beiträge
SQL-Abfrage: Datentyp ermitteln
Hendrik

Hallöchen,
mit unten stehendem Code erzeuge ich ein Array, welches alle Spaltennamen einer SQL-Server-Tabelle enthällt. Klappt prima. Gibt es eine Möglichkeit, auch den Datentyp abzufragen (und in das Array als zweite Spalte aufzunehmen)?
Dim objConn As ADODB.Connection Dim objRec As A...
12.08.2014 09:56:59
Thread-ID: 1375849
3 Beiträge
SQL-Abfrage: Datentyp ermitteln
Hendrik

Hallöchen,
mit unten stehendem Code erzeuge ich ein Array, welches alle Spaltennamen einer SQL-Server-Tabelle enthällt. Klappt prima. Gibt es eine Möglichkeit, auch den Datentyp abzufragen (und in das Array als zweite Spalte aufzunehmen)?
Dim objConn As ADODB.Connection Dim objRec As A...
12.08.2014 12:27:12
Thread-ID: 1375912
2 Beiträge
SQL-Abfrage in Excel mit Replace
Martin

Hallo,
ich scheitere in Excel-VBA jetzt schon eine ganze Weile mit dem Versuch beim Auslesen einer Access-Datenbank die Leerzeichen einer Spalte zu ersetzen.
Folgender Ausdruck mit Trim klappt einwandfrei:
sSql = "SELECT Trim(EMail), Vorname, Nachname, Geschlecht FROM Tabelle" Aber...
17.09.2014 12:28:38
Thread-ID: 1382061
7 Beiträge
SQL Abfrage in VBA mit einem "WITH" Befehl
Paul

Hallo,
nachdem ich bisher jedes meiner Probleme durch die Suche lösen konnte, ist es nun soweit das ich auch mal einen Eintrag verfassen muss/kann.
Es geht darum das ich via VBA eine Verbindung zu SQL aufbaue und eine Abfrage starte. Der SQL String liegt dabei in einer Textfile und wird...
02.08.2016 08:50:48
Thread-ID: 1507354
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
9
3
3
1
3
2
1
6
4
1
4
1
1
9
2
3
6
4
5
1