Aktív témák

• #1 Damocles csendes tag

  2004-08-02 20:44:26 #1

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Damocles

  csendes tag

  Abszolút kezdő vagyok, szóval ha valaki tudna megoldást a problémámra úgy mondja, mintha egy hülyének beszélne. Szóval a gond a következő:
  Adatbáziskezelés a feladat, van is egy szép kis access táblázatom, amit egy adodc egy datagrid es egy datacombo segítségével szeretnék kezelni a formomon.
  Van egy Tipus nevű oszlopa a táblázatnak és azt szeretném, hogy a datacomboban választási lehetőségeknek megjelenjenek a rekordok típusai és ha valamelyiket kiválasztom, akkor CSAK az olyan típusuak jelenjenek meg a datagridben. Ennek érdekében a következő kódot írtam be:
  
  Private Sub Dcbtipus_Change()
  Dim strSQL As String
  If Dcbtipus.BoundText = '''' Then Exit Sub
  strSQL = ''select * from Adatbazis where Tipus = '' & Dcbtipus.BoundText
  adoadat.RecordSource = strSQL
  adoadat.Refresh
  grdadat.ClearFields
  grdadat.ReBind
  End Sub
  
  Dcbtipus - a datacombo
  adoadat - a adodc
  grdadat - a datagrid
  
  A probléma az, hogy nekem a adoadat RecordSource tulajdonságához select * from Adatbazis where Tipus = ''valami'' -t kéne beírnom, hogy működjön (tehát idézőjelek közt kéne lennie ennek: & Dcbtipus.BoundText. )
  Deha ezt idézőjelek közé teszem, akkor azt ''szószerint'' értelmezi, tehát nem select * from Adatbazis where Tipus = ''valami'' lesz, hanem ez: select * from Adatbazis where Tipus = & Dcbtipus.BoundText
  Nincs valami megoldás arra, hogy idézőjelben legyen és normálisan is értelmezze?
  
  [Szerkesztve]

Aktív témák