✔ Ausgewählte Combo Text weiter in SQL Statement

[nsrplanet]

Hallo,

ich mochte das ausgewählte string vom Combobox meine Anwendung in ein sql statement weiter benutzen.
Ein Teil von meinen code sieht ungefähr genauso aus :

Private Sub Command1_Click()
    Dim string2 As String
    string2 = Combo2.Text
    rs.Open "SELECT * from Formats WHERE (CCN_fields.field_name = 'string2')", Cn, adOpenDynamic, adLockBatchOptimistic

leider ist Combo2.Text ein string mit " " deswegen kommt die tabelle leer.
gibt ein andere combo function oder Eingeschaft die ich benutzen kann oder hat jmd vielleicht eine Idee wie ich das implemtieren kann?!

Danke
Ilias

 

[Alex F.]

mach es mal so

Private Sub Command1_Click()
    Dim string2 As String
    string2 = Combo2.SelectedItem ' hier geändert
    rs.Open "SELECT * from Formats WHERE (CCN_fields.field_name = ' " & string2 &  " ')", Cn, adOpenDynamic, adLockBatchOptimistic ' hier auch geändert

Grüsse bb

 

[nsrplanet]

Danke schön dass hat geklappt

jetzt stöße ich auf ein anderer prob. und zwar versuche so ein fehlerbahndlung ui implemntieren, falls der combobox leer ist soll der benutzer die möglichkeit haben nochmal auszuwählen (der combo1 ist pflicht der 2. ist optional)
hier ist mein bsp vereinfacht:

Private Sub Command1_Click()
    Dim sql As String

    string1 = Combo1.Text
    string2 = Combo2.Text
    
    If Combo1.ListIndex < 0 And Combo2.ListIndex < 0 Then
        MsgBox "Please Select Format & Field Name"
        --> vom ComboBox wieder auswählen
        Else
            If Combo1.ListIndex < 0 And Combo2.ListIndex >= 0 Then
                MsgBox "Please Select a Format"
                 --> vom ComboBox wieder auswählen
                Else
                    If Combo1.ListIndex >= 0 And Combo2.ListIndex < 0 Then
                        rs.Open "SELECT Formats.Format, WHERE (Formats.Format = '" & string1 & "')", Cn, adOpenDynamic, adLockBatchOptimistic
                        Else
                            If Combo1.ListIndex >= 0 And Combo2.ListIndex >= 0 Then
                                rs.Open "SELECT Formats.Format, WHERE (Formats.Format = '" & string1 & "') AND (CCN_fields.field_name ='" & string2 & "')", Cn, adOpenDynamic, adLockBatchOptimistic
                            End If
                    End If
            End If
    End If

welche funktion kann mir das ermöglichen.
ich werde euch sehr dankbar für ein tipp
danke
Ilias

 

[Alex F.]

ist dass nicht etwas zu kompliziert gedacht ? Combo box 1 = Pflicht
Combo 2 = Optional

dim sql as string
'Also 1 die Pflicht
if combo1.Listindex <0 then
       call msgbox("Pflichtfeld eingeben!") 
       exit function
end if 

sql =  "SELECT Formats.Format, WHERE (Formats.Format = '" & string1 & "') "
' ab hier kommt  die Option / Kür
if combobox2.Listindex >=0 then
 sql = sql & "AND (CCN_fields.field_name ='" & string2 & "')"
end if 

rs.Open sql, Cn, adOpenDynamic, adLockBatchOptimistic

Grüsse bb

 

[nsrplanet]

danke dir für deine schnelle Antwort
deine überlegung ist recht gut gedacht und einfach, mein version ist komplizierter
ich versuche es in mein quellcode und sage bescheid
danke nochmal

 

[Alex F.]

Zeile 5 ändern
statt

exit function

exit sub

Sorry ;-) dachte du kommst drauf


Grüsse bb

 

[nsrplanet]

Zeile 5 ändern
statt

exit function

exit sub

Sorry ;-) dachte du kommst drauf


Grüsse bb

habe ich doch hab mein beitrag geändert aber anscheinend warst du schneller