Visual Basic 6 - Update con stringa in ProperCase

Forum - Visual Basic 6 - Update con stringa in ProperCase

Iohoilpotere (Ex-Member)
Pro

Messaggi: 80
Iscritto: 13/09/2009

Postato alle 10:43
Mercoledì, 27/10/2010

Ho un problema, non riesco a far prendere al DB una stringa in ProperCase nell'update alle tabelle. Vi allego l codice.

Codice sorgente - presumibilmente Visual Basic 6

myString = "update TB_AZIENDA set AZIENDA_DESCR_ABBR = " & StrConv(TB_AZIENDA![AZIENDA_IMS], vbProperCase) _
& " where AZIENDA_DESCR_ABBR Is Null"

ho ovviato con

Codice sorgente - presumibilmente Delphi

' Creo una stringa SQL che seleziona dalla tabella TB_AZIENDA i campi ID e AZIENDA_IMS dove
' AZIENDA DESCR ABBR è nullo, dopo di che viene usata per impostare un recordset.
myString = "select ID, AZIENDA_IMS, from TB_AZIENDA where AZIENDA_DESCR_ABBR Is Null"
Set rs = DB.OpenRecordset(myString)
' Eseguo un ciclo fino a che il recordset non raggiunge la fine del file, per ogni record letto sostituisce
' il campo AZIENDA_DESCR_ABBR con AZIENDA_IMS.
While Not rs.EOF
    myString = "update TB_AZIENDA set AZIENDA_DESCR_ABBR = '" & StrConv(rs("AZIENDA_IMS"), vbProperCase) & "' where ID = " & rs("ID")
    DB.Execute myString
    rs.MoveNext
Wend