23 messaggi dal 30 marzo 2017
Ho sviluppato una routine per creare una classe/modello dalle tabelle di un database SqlServer
Tutto oK tranne la lunghezza del campo che non individua
La proprietà lenmax ritorna sempre -1
Non ho trovato proprietà che ritornino la lunghezza del campo
Esiste un modo ??


Dim oRow As DataRow = oDT.Rows(0)
Dim oCol As DataColumn
RichTextBox1.Text = ""
For Each oCol In oDT.Columns
sNome = oCol.ColumnName
sTipo = oCol.DataType.Name.ToString
sLunghezza = oCol.MaxLength.ToString '!!!!! ritorna sempre -1
If Mid(sTipo, 1, 3) = "Int" Then
sTipo = "int"
ElseIf Mid(sTipo, 1, 3) = "Dou" Then
sTipo = "double"
End If
XX = "[Display(Name = " + Chr(34) + Chr(34) + ")]" ' 22 o 34
RichTextBox1.Text += XX + vbCr
XX = "[StringLength(00)]"
RichTextBox1.Text += XX + vbCr
XX = "public " + sTipo + " " + sNome + " { get; set; }"
RichTextBox1.Text += XX + vbCr
Next


126 messaggi dal 01 febbraio 2017
Ci sono alcune cose nn chiare ... la lunghezza di un campo, intendi la lunghezza del nome dell'intestazione della tabella ?
Prova in ogni caso ad usare la funzione TRIM che prende solo i caratteri significativi, oppure se ti riferisci proprio al contenuto della colonna la incroci con LEN.

Ciao.
Gino.

UNSTRING identifier-1 id-2 id-3
DELIMITED BY [ALL] OR [ALL] literal-1 lit-2
INTO {id-4 [DELIMITER IN id-5]
[COUNT IN id-6]}
[WITH POINTER id-7]
[TALLYING IN id-8]
[ON OVERFLOW imperative-statement-1]
[NOT ON OVERFLOW imper-2]
[END-UNSTRING]

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.