Har skrivit en applikation som använder ett comobjekt för en koppling till en databas och enligt de upggifter jag fått skulle det generera en svarssträng som är 624 tecken lång. i den strängen gör jag ett antal ifsatser på olika positioner. Nu har jag just fått veta att vad jag får tillbaka är ett recordset. Finns det något smidigt sätt att konvertera recordsetet till en vanlig sträng så jag slipper skriva om allt?
Tacksam för alla tips jag kan få!

Strängen sk bli typ så här:
JN00000000003001000965NN0000000000
Recordsetet ser ut så här:
Regnr.: 001000 / Avdelning: 965

Tillhorflagg1: J
Tillhor10flagg1: N
Pnr101: 0000000000
Regtyp1: 3
Reg1: 005000994
Tillhorflagg2: N
Tillhor10flagg2: N
Pnr102: 0000000000
Regtyp2:
Reg2: 000000000
Tillhorflagg3: N
Tillhor10flagg3: N
Pnr103: 0000000000
Regtyp3:
Reg3: 000000000
Tillhorlagg4: N
Tillhor10flagg4: N
Pnr104: 0000000000
Regtyp4:
Reg4: 000000000
Feltext1:

Feltext2:

Feltext3:

Feltext4:

Feltext5:

Feltext6:

Feltext7:

Feltext8:

Avbrottsflagg: N

Du kan conkatenera varje fältvärde i ditt recordset till en sträng

Tex
dim rstString as string
rstString=rst!fältnamn1 & rst!fältnamn2 & rst!fältnamn3....

Nettan

str = rs.getstring

???

Om man använder getstring får man med ett tecken (tab?)som separerar varje fält
Kanske inte funkar om du vill ha en oavbruten sträng av tecken

det är ju inte ett stort problem att byta ut alla <tab> till ngt annat som ett mellanslag tex

str = rs.getstring()
str = replace$(str, vbTab, " ")

kommer vara löjligt mycket snabbare än att lobba igenom hela recordsettet...

Man behöver inte använda Replace. Helt onödigt...

Använd istället ColumnDelimiter parametern för funktionen:
sTemp = rsTemp.GetString(, , "")

Finns allt som allt fem parametrar:
StringFormat
NumRows
ColumnDelimiter
RowDelimiter
NullExpr

man lär sig något nytt varje dag :)