Aktív témák

• #20 blemidon tag Damocles #19

  2004-08-05 19:39:06 #20

  Ö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

  

  blemidon

  tag

  válasz Damocles #19 üzenetére

  Igen. Sztem valami olyan lehet, hogy a SELECT... utasítás az SQL, nem basic. Ezt az adatbázis szerver hajtja végre, nem a basic interpreter. Tehát attól is függhet hogy milyen adatbázisszervert használsz.
  De a lényeg hogy megy:)
  (Olyan konstansoknak nézzél utána hogy vbNewLine (ez biztos), stb, van egy csomó ilyen speckó karakter definiálva, és akkor nem kell chr(34), mégis szebb:)

• #17 blemidon tag Damocles #15

  2004-08-05 12:15:52 #17

  Ö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

  

  blemidon

  tag

  válasz Damocles #15 üzenetére

  lname az egy column neve a táblában

• #14 blemidon tag blemidon #13

  2004-08-04 21:21:01 #14

  Ö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

  

  blemidon

  tag

  válasz blemidon #13 üzenetére

  Hád az mdb nemment, mert 23M, de ha mindenképpen kell szólj majd felrakom vmi ftp-re.
  

• #13 blemidon tag Damocles #12

  2004-08-04 21:13:14 #13

  Ö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

  

  blemidon

  tag

  válasz Damocles #12 üzenetére

  Figy.
  
  Elküldtem mailban az egész projectet. Az adodc-nek add meg az mdb-t nálad, mer teljes itteni elérési úttal van.
  
  Amugy VB6 Service Pack 6.
  

• #9 blemidon tag Damocles #6

  2004-08-04 10:55:19 #9

  Ö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

  

  blemidon

  tag

  válasz Damocles #6 üzenetére

  Akkor vmit nagyon rosszul csinálsz. Itt a teljes progim amit irtam kipróbálni, csak az idézőjeleket és aposztrófokat cseréltem ki [id/ap]-re:
  
  Private Sub Form_Load()
  Dim x As String
  x = [idézőjel]derry[idézőjel]
  Adodc1.RecordSource = [idézőjel]select * from customer where lname = [aposztróf][idézőjel] & x & [idézőjel][aposztróf][idézőjel]
  Adodc1.Refresh
  End Sub
  
  Ez sikeresen kiszűri az 1 db ''derry'' rekordot a tálából.
  
  Ciceró barátunk így pl működik:
  
  MsgBox ([idézőjel]Ciceró írta: [aposztróf]Damoklész kardja lebeg a feje felett[aposztróf] (bár nem tudom ez így igaz-e)[idézőjel])
  
  Ezt csináltam a fenti példában is. SQL megy idézőjellel is, csak az aposztróffal egyszerűbb.
  
  Amugy a fenti adodc a FoodMart.mdb példa customers táblájára van kötve, valszinü neked is megvan hogy kipróbáld, ha nincs, akkor küldöm az egész projectet ha akarod.
  
  Amúgy az a titok, hogy az aposztróf két idézőjel között legyen egy sztringben, és akkor nem commentnek látja, hanem 1 szöveg részének, és nem foglalkozik vele.
  
  [Szerkesztve]

• #5 blemidon tag Damocles #4

  2004-08-03 23:40:10 #5

  Ö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

  

  blemidon

  tag

  válasz Damocles #4 üzenetére

  Várj 1 picit!
  Nem írtam el, a PH kovertálja az idézőjelet 2 aposztróffá:)
  
  Tehát:
  strSQL = [idézőjel]select * from Adatbazis where Tipus = [aposztróf][idézőjel] & Dcbtipus.BoundText & [idézőjel][aposztróf][idézőjel]
  
  ha a Dcbtipus.boundtext értéke pl ''szöveg'' akkor ennek a kimenete:
  
  select * from Adatbazis where Tipus = 'szöveg'
  
  Amit ide írsz a parancsba, az nem basic, hanem SQL kifejezés, ott pedig a szöveg aposztrófok között van, nem idézőjelben.
  
  Próbáld meg így, mennie kell, kipróbáltam.

• #2 blemidon tag Damocles #1

  2004-08-03 19:22:20 #2

  Ö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

  

  blemidon

  tag

  válasz Damocles #1 üzenetére

  Nem idézőjel kell, hanem '
  Adodc1.RecordSource = ''select * from customer where lname = 'derry'''
  
  avagy nálad:
  
  strSQL = ''select * from Adatbazis where Tipus = ''' & Dcbtipus.BoundText & '''''
  
  Egyébként azt jól láttam hogy az eredet forrásodban 2db ' van nem egy '' ?

Aktív témák