[VB] String te lang voor in DB? - Softwareontwikkeling

dinsdag 27 mei 2003 15:23

Acties:

Topicstarter

Ik schrijf in VB een string weg van 20 tot 70 karakters, de ruimte in de DB is (textvak) ingesteld op 150 karakters. Nu is het probleem dat wanneer de string in omschrijvinglist(item) groter is dan ongeveer 50 karakters regel 14 een error geeft...

.

Visual Basic .NET:

With rsGridNew
    .Fields.Append "Clientnummer", adBigInt, , adFldKeyColumn
    .Fields.Append "Diernaam", adVarChar, 30, adFldUpdatable
    .Fields.Append "Kosten", adCurrency, , adFldUpdatable
    .Fields.Append "Omschrijving", adVarChar, 50, adFldUpdatable

    .Open , , adOpenDynamic, adLockOptimistic
    
    For item = 0 To (KostenregelsTotaal - 1)
        .AddNew
        !clientnummer = clnrlist(item)
        !Diernaam = diernaamlist(item)
        !kosten = totaalkostenlist(item)
        !Omschrijving = omschrijvinglist(item)
    Next item
    
    .Sort = "Clientnummer ASC, Diernaam ASC, Omschrijving DESC"
    .Update
    .MoveFirst
    
    For item = 0 To (KostenregelsTotaal - 1)
        Query = "INSERT INTO FactuurRegel VALUES (...blabla...);"
        Call clsDatabase.ExecuteCommand(Query)
        .MoveNext
    Next item
    
End With

Oja, de error is: Multiple-step operation generated errors. Check each status value.

Ik gebruik verder MSAccess om de database gegevens te veranderen.

Wat doe ik fout?

EDIT:

Dit zijn voorbeeldstrings die ik erin wil schrijven:

Ambulancerit nr.: 30, extra kosten: € 12
Ambulancerit nr.: 33, extra kosten: € 10
Ambulancerit nr.: 32, extra kosten: € 10
Pension kosten nr.: 146, aantal dagen: 8, extra kosten: € 20
Pension kosten nr.: 145, aantal dagen: 7
0 dagen in koeling, destructie/crematiekosten: € 20
4 dagen in koeling, destructie/crematiekosten: € 28

Bij de 4e, 6e en 7e krijg ik de error...

[ Voor 17% gewijzigd door Benadski op 27-05-2003 15:26 ]

dinsdag 27 mei 2003 15:26

Acties: