Problem mit WhereClause/DefinitionExpression - SQL Ausdruck (VBA)

MauriceSchoenert — Sun, 12 Dec 2021 16:59:55 GMT

Hi,

ist es Ã¼berhaupt mÃ¶glich im Zuge einer WhereClause/DefinitionExpression-SQL-Abfrage ein Attribut-Tabellen-Feld vom Datentyp LONG mit einem STRING-Objekt einer Variable zu vergleichen? Leider funktioniert mein SQL-Statement nicht (

"PLZ = '" & StrPLZ & "'"

) und google und Foren konnten mir auch keine LÃ¶sung vermitteln. PLZ ist das Attribut-Tabellen-Feld vom Datentyp LONG. StrPLZ ist die Variable vom Datentyp STRING; die Variable wird Ã¼ber eine Anwendereingabe aus einer ComboBox geladen. Im folgenden der Code und veranschaulichende Screenshots:

'Definition Query: Suche von POI Ã¼ber die Postleitzahl (Name des Buttons im GUI: POI suchen)
Private Sub CommandButton3_Click()

'Connect Schnittstellen
Dim pMxDocument As IMxDocument
Set pMxDocument = ThisDocument
Dim pMap As IMap
Set pMap = pMxDocument.FocusMap
Dim pLayer0 As ILayer
Set pLayer0 = pMap.Layer(0)

'Schnittstelle wechseln (QueryInterface),
'um fÃ¼r die Abfrage notwendige Eigenschaften und Methoden zu erhalten
Dim pDefQuery As IFeatureLayerDefinition
Set pDefQuery = pLayer0

'Anwendereingaben aus der ComboBox3, ComboBox4 und ComboBox5 in Variable schreiben
'benÃ¶tigt, damit das Programm 'weiÃ?', welche Features (POI) angezeigt werden sollen
Dim StrPLZ As String
Dim StrOberKat As String
Dim StrUnKat As String
StrPLZ = ComboBox3.Value
StrOberKat = ComboBox4.Value
StrUntKat = ComboBox5.Value

'Variable fÃ¼r Message Boxen deklarieren (Name des PLZ-Bereichs)
Dim StrText As String
StrText = TextBox1.Text

'gegebenenfalls vorhandene Auswahl entfernen
pDefQuery.DefinitionExpression = ""

'Definition Query durchfÃ¼hren
If StrPLZ = "Bitte Postleitzahl wÃ¤hlen" Then
MsgBox "Sie haben keine Auswahl getroffen. Alle POI werden angezeigt", vbOKOnly + vbExclamation, "Auswahl treffen"
pDefQuery.DefinitionExpression = ""
ElseIf StrUntKat = "Optional: Unterkategorie wÃ¤hlen" Then
MsgBox "Alle POI in der Oberkategorie '" & StrOberKat & "' im Postleitzahlbereich '" & StrPLZ & "' " & StrText & "werden angezeigt", vbOKOnly, "Hinweis"
pDefQuery.DefinitionExpression = "PLZ = '" & StrPLZ & "'"
End If


'Refresh
pMxDocument.ActiveView.Refresh
pMxDocument.UpdateContents

End Sub

Private Sub UserForm_Activate()

ComboBox3.Clear
ComboBox3.Value = "Bitte Postleitzahl wÃ¤hlen"
ComboBox3.AddItem "44795"   'Bochum-Weitmar
ComboBox3.AddItem "44797"   'Bochum-Weitmar
ComboBox3.AddItem "44799"   'Bochum
ComboBox3.AddItem "44801"   'Bochum-Querenburg
ComboBox3.AddItem "44803"   'Bochum-Steinkuhl
ComboBox3.AddItem "45527"   'Hattingen
ComboBox3.AddItem "58454"   'Witten
ComboBox3.AddItem "58455"   'Witten
ComboBox3.AddItem "58456"   'Witten-Herbede
ComboBox3.AddItem "0"       'Keine PLZ Zuordnung mÃ¶glich

ComboBox4.Clear
ComboBox4.Value = "Optional: Oberkategorie wÃ¤hlen"
ComboBox4.AddItem "Ã?ffentliche Einrichtungen"
ComboBox4.AddItem "Wohnheime"
ComboBox4.AddItem "Nahversorgung"
ComboBox4.AddItem "Dienstleistungen"
ComboBox4.AddItem "Gesundheitswesen"
ComboBox4.AddItem "Freizeiteinrichtungen/Sport/Wellness"
ComboBox4.AddItem "Gastronomie"
ComboBox4.AddItem "Kultur/Unterhaltung"
ComboBox4.AddItem "Sonstige

[ATTACH=CONFIG]15083[/ATTACH]

[ATTACH=CONFIG]15084[/ATTACH]

Re: Problem mit WhereClause/DefinitionExpression - SQL Ausdruck (VBA)

Anonymous User — Sun, 10 Jun 2012 11:48:09 GMT

Original User: mauriceSch

ok, hab eine Lösung

einfach eine neue Spalte in der Attribut Tabelle der Daten anlegen, diese Spalte als Datentyp TEXT zuweisen und die Zahlen aus dem LONG Feld einfügen
so bekommt man STRING Zahlen, die mit SQL in VBA abgefragt werden können

...

topic Problem mit WhereClause/DefinitionExpression - SQL Ausdruck (VBA) in Deutsche GIS Anwender Questions

Problem mit WhereClause/DefinitionExpression - SQL Ausdruck (VBA)

Re: Problem mit WhereClause/DefinitionExpression - SQL Ausdruck (VBA)