|
| |

Visual-Basic Einsteiger| Problem mit SQL-Abfrage | |  | | Autor: Micha | | Datum: 07.04.02 19:44 |
| Hallo Zusammen,
habe nochmal ein Problem mit einer SQL-Abfrage!
Verwende beim Form-Load Ereignis folgende Abfrage:
sSql = "SELECT tblFirmen.Firma As Firmenname, tblFirmen.Str," & _
"(UCase(tblFirmen.Land)) as Land, tblFirmen.PLZ, tblFirmen.Ort, tblFirmen.ID" & _
" FROM tblFirmen ORDER BY tblFirmen.Firma;"
Set db = New ADODB.Connection
Set rst = New ADODB.Recordset
' open db and then People table
db.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "Kontaktverwaltung.mdb;Persist Security Info=False")
Call rst.Open(sSql, db, adOpenDynamic)
Die Daten werden ausgelesen und in ein Listview übertragen. Das klappt auch ganz gut . Sobald ich aber versuche anhand eines OptionButtons eine Auswahl festzulegen versagt obige Abfrage. die Auswahl sieht so aus:
strAuswAZ = Auswahl_AZ(Index).Caption
Select Case strAuswAZ
Case "B", "D", "F" To "H", "J" To "N", "P" To "R", "T", "V" To "X", "Z", "0" To "9"
strAuswAZ = Left(strAuswAZ, 1)
strAuswAZ = "Like '" & strAuswAZ & "*'" '""
Case "A"
strAuswAZ = "Like (""[AÀÁÂÃÄÅ]*"") "
...
sSql = "SELECT tblFirmen.ID, tblFirmen.Firma As Firmenname, tblFirmen.Str,tblFirmen.Land, tblFirmen.PLZ, tblFirmen.Ort,tblFirmen.KatNr " & _
"FROM tblFirmen " & _
"WHERE ((UCase(tblFirmen.Firma) = " & strAuswAZ & "));"
Leider werden die Daten aus der Datenbank nicht eingetragen. Wo liegt bei dieser Abfrage der Fehler?
Danke und gruss
Micha |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) sevZIP40 Pro DLL 
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|