22/05/09 14:01
satriano
salve
Questo problemino é un seguito di un topic risolto ( Mostra contenuto campo database tramite valore in textbox) di una settimana fa;
Infatto é stato risolto in quanto sono passato al controlo ADO invece del vecchio data.
Ok
Con il seguente codice viene mostrato dunque il contenuto di un campo database (NUMERO)
in un text2.box.
Questo dunque funziona. Il campo NUMERO é numerico e con doppia precisione.
Poi vi é il campo PATOLOGIA che contiene dei valori testo;
Ma il valore di NUMERO a volte é con dei decimali, per esempio 12,123. In questo caso
se il valore é intero mi viene mostrato il contenuto del record. Se il valore assegnato al record é Numero=12,123 Patologia=Mano non mi viene mostrato nulla, a causa della virgola.
nb. il valore con la virgola, se presente, é necessario, non posso eliminare la virgola.
Si puoi risolvere ?
grazie
Questo problemino é un seguito di un topic risolto ( Mostra contenuto campo database tramite valore in textbox) di una settimana fa;
Infatto é stato risolto in quanto sono passato al controlo ADO invece del vecchio data.
Ok
Con il seguente codice viene mostrato dunque il contenuto di un campo database (NUMERO)
in un text2.box.
Questo dunque funziona. Il campo NUMERO é numerico e con doppia precisione.
Poi vi é il campo PATOLOGIA che contiene dei valori testo;
Ma il valore di NUMERO a volte é con dei decimali, per esempio 12,123. In questo caso
se il valore é intero mi viene mostrato il contenuto del record. Se il valore assegnato al record é Numero=12,123 Patologia=Mano non mi viene mostrato nulla, a causa della virgola.
nb. il valore con la virgola, se presente, é necessario, non posso eliminare la virgola.
Si puoi risolvere ?
grazie
Private Sub Command1_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim strConnection As String
strPercorsoDB = App.Path & "\Aldo.mdb"
strConnection = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPercorsoDB & ";;Jet OLEDB:Database Password="
cn.Open (strConnection)
rs.Open "Select * FROM malattie", cn, 1
While rs.EOF = False
If rs("Numero").Value = Val(Text1.Text) Then
Text2.Text = rs("Patologia").Value
End If
rs.MoveNext
Wend
End Sub
Ultima modifica effettuata da satriano 22/05/09 14:04
aaa
.Value) = CDbl(Text1.Text) Then
