|
| |

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 |
  |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. 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
|
|