[VB6] TextBox Multiline e inserimento database

[jasson]

Salve

Devo inserire il contenuto di una TextBox Multiline in un Database.

Per l'inserimento nel Database utilizzo l'oggetto ADO,
quindi la parti di codice interessate sono:

DIM Note AS String
Note =txtNote.Text
........
....
.....
rs.AddNew
rs("Note")= Note
rs.Update


La txtNote è una casella di testo multiline, quindi l'utente può scrivere al suo interno più linee di testo.

Il problema è che quando vado a scrivere il suo contenuto nel DataBase, viene scritta solo la 1° linea.


Quale è il trucco per scrivere nel DataBase anche le altre linee?

Jasson

[ladyBlu]

sei certo che ci sia solo la prima linea nel db?
Hai provato ad allargare le righe della tabella?

[jasson]

Si c'è solo la 1° linea.

Da notare che il testo nella TextBox viene inserito in questo modo:

Scrivo all'interno della TextBox, premo invio e il cursore si sposta sulla 2° linea della TextBox, scrivo il testo, premo invio e il cursore si sposta sulla 3° linea della TextBox ecc. ecc.

Fino a quando premo un pulsante che dovrebbe scrivere tutto il contenuto nel DataBase.

[ladyBlu]

Ok.
Hai impostato la lunghezza del campo Note sul database?

[jasson]

???
Ho messo il Campo Note nel Database alla sua Massima larghezza possibile.

Da notare che se provo a scrivere più di 3 linee compare l'errore sull'istruzzione

rs("Note")= Note

[jasson]

Ho risolto:

Quando aprivo il Database con Access visualizzavo i record con l'altezza di una linea, quindi non riuscivo a vedere le altre linee.

Che stupido..

Rimane comunque l'errore quando scrivo più di 3 linee
c'è la possibilità di impostare a 3 il max numero di linee dalla TextBox

Grazie ladyBlu Molto gentile.

[ladyBlu]

te l'avevo detto di allargare le righe

Per evitare che si possano scrivere più di 3 righe puoi usare questo codice che ho buttato giù al volo; non so se esiste un metodo migliore.

Private Sub Text1_Change()

    Dim strText() As String
    Dim intLen As Integer
    strText = Split(Text1.Text, vbCrLf)
    
    If UBound(strText) >= 3 Then
        Text1.Text = strText(0) & vbCrLf & strText(1) & vbCrLf & strText(2)
    End If

End Sub

[jasson]

Ti ringrazio ladyBlu della tua disponibilità,

ho scoperto comunque che l'errore è generato dal fatto che l'istruzzione rs("Note")= Note non è in grado di scrivere più di 50 caratteri.

Non dipende quindi dal numero di linee ma dal numero di caratteri,
in questo caso è bastato impostare a 50 il max numero di caratteri dalla TextBox.

Per avere la possibilità di inserire note più lunghe ho inserito più TextBox chiamte txtNote1, txtNote2, ecc.

Jasson

[Boolean]

probabilmentre l'errore è dovuto al fatto che il campo "Note" nel tuo db è stato dichiarato come Testo, e quindi con una dimensione massima di 255 caratteri... per ottenerne di più devi dichiarare il campo note come "Memo"

Boolean

[ladyBlu]

Originariamente inviato da jasson
Ti ringrazio ladyBlu della tua disponibilità,

ho scoperto comunque che l'errore è generato dal fatto che l'istruzzione rs("Note")= Note non è in grado di scrivere più di 50 caratteri.

Non dipende quindi dal numero di linee ma dal numero di caratteri,
in questo caso è bastato impostare a 50 il max numero di caratteri dalla TextBox.

Per avere la possibilità di inserire note più lunghe ho inserito più TextBox chiamte txtNote1, txtNote2, ecc.

Jasson

di niente figurati


fai come ha detto Boolean, i campi testo sono più corti. con un Memo hai la possibilità di scrivere molto di più.

Buono lavoro