VB.NET MySQL Decimals

[Steven-b]

Hoi Allen,

Daar ik tracht wat bij te leren in VB.NET gecombineerd met MySQL zit ik nu toch met iets waarvan ik dacht dat het simpel zou zijn maar ik zie helaas m'n fout niet

Simpel uitgelegd, ik heb een VB.NET Form met een labeltje op, dit moet de decimale waarde weergeven die zich in de database bevindt.

Echter lukt het me wel als ik de query uitvoer vanuit .NET maar niet als ik een stored procedure aanroep.

Mijn code (testcode) ziet eruit als volgt:

[Stored Procedure (MySQL 8.x)]

SQL:

PROCEDURE `GetValues`(OUT VALUE_RESULT Decimal(11,2))
BEGIN

SET VALUE_RESULT = (SELECT SUM(`SomeTable`.`Value`) FROM `TESTDB`.`SomeTable`);
IF (VALUE_RESULT IS NULL) THEN SET VALUE_RESULT = 0.00; END IF;

END

Visual Basic .NET:

MySQLCmd.Connection = MySQLCon
MySQLCmd.CommandText = "GetValues"
MySQLCmd.CommandType = CommandType.StoredProcedure

MySQLCmd.Parameters.AddWithValue("@VALUE_RESULT", MySqlDbType.Decimal)
MySQLCmd.Parameters("@VALUE_RESULT").Direction = ParameterDirection.Output

Try
    MySQLCon.Open()
    MySQLDR = MySQLCmd.ExecuteReader
    MySQLDR.Read()

    Label1.Text = MySQLDR(0)

    MySQLCmd.Parameters.Clear()
    MySQLCmd.Dispose()
    MySQLDR.Close()
    MySQLDR.Dispose()
    MySQLCon.Close()
    MySQLCon.Dispose()

Catch ex As Exception
    MessageBox.Show(ex.ToString)

End Try

Ik krijg telkens een foutmelding weer dat de input string niet in een correct formaat is, daarop heb ik geprobeerd Format zowel in VB.NET als in de Stored Procedure.

Code in VB.NET waarmee het wel werkt:

Visual Basic .NET:

Try
    Dim ValueX As Double
    MySQLCmd.CommandText = "SELECT SUM(Value) FROM SomeTable"
    MySQLCmd.Connection = MySQLCon
    MySQLCon.Open()
    MySQLDR = MySQLCmd.ExecuteReader
    While MySQLDR.Read
        ValueX = MySQLDR.GetValue(0)
    End While
    Label1.Text = ValueX
    MySQLCon.Close()
Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try

Hier maak ik me een beetje zorgen over de ValueX die ik gebruik als Double, ik las hier verschillende zaken over de precisie van de getallen als je de functie SUM bv gaat gebruiken?

En ik had dit uiteraard ook graag aangeroepen vanuit de stored procedure ipv. de query in VB.NET te schrijven.

Ik begrijp inmiddels dat ik de waarde moet gaan converteren maar hier kom ik vast te zitten.
Ik heb zaken geprobeerd als double etc met de niet werkende code, hier begint hij dan met afronden naar boven of beneden bv. 9.33 wordt dan 9 of 9.51 wordt dan 10.

In de table zelf staat de waarde ook op DECIMAL(11,2)

Verder nog een kleine opmerking als ik in de Stored Procedure DECIMAL(11,2) vervang naar DECIMAL(11.2) dan krijg ik geen foutmelding meer over het formaat maar rond hij weer af en toont hij gewoonweg 9 of 10 naargelang wat er achter de comma staat in de database.


Hebben jullie hier ervaring mee?


Mvg,
Steven

[Voor 5% gewijzigd door RobIII op 06-11-2018 12:11. Reden: Code tags toegevoegd]

[Harrie_]

Wat gaat er precies fout? Welke foutmelding krijg je? Wat zie je als je debugt?
Krijg je een foutmelding vanuit VB.NET wanneer je de MySQLDR(0) in Label1.text probeert te stoppen? Debug die handel eens en kijk wat er in MySQLDR zit?

Verder kun je de (relevantie) code gewoon tussen code-tags zetten, dat is voor iedereen wat fijner

Verder gaat dit natuurlijk nooit werken:

Steven-b schreef op maandag 5 november 2018 @ 14:29:
Verder nog een kleine opmerking als ik in de Stored Procedure DECIMAL(11,2) vervang naar DECIMAL(11.2) dan krijg ik geen foutmelding meer over het formaat maar rond hij weer af en toont hij gewoonweg 9 of 10 naargelang wat er achter de comma staat in de database.

DECIMAL(11,2) betekent dat het om een decimal gaat van max. 11 karakters waarvan 2 na de komma. De komma hier is de parameter-delimiter. Dus geen . (punt) gebruiken.

[Steven-b]

De foutmelding die ik voorhanden krijg:

System.FormatException: Input string was not in a correct format.
   at System.Number.StringToNumber(String str, NumberStyles options, NumberBuffer& number, NumberFormatInfo info, Boolean parseDecimal)
   at System.Number.ParseInt32(String s, NumberStyles style, NumberFormatInfo info)
   at MySql.Data.Types.MySqlInt32.MySql.Data.Types.IMySqlValue.ReadValue(MySqlPacket packet, Int64 length, Boolean nullVal)
   at MySql.Data.MySqlClient.NativeDriver.ReadColumnValue(Int32 index, MySqlField field, IMySqlValue valObject)
   at MySql.Data.MySqlClient.ResultSet.ReadColumnData(Boolean outputParms)
   at MySql.Data.MySqlClient.ResultSet.NextRow(CommandBehavior behavior)
   at MySql.Data.MySqlClient.MySqlDataReader.Read()
   at MySql.Data.MySqlClient.StoredProcedure.ProcessOutputParameters(MySqlDataReader reader)
   at MySql.Data.MySqlClient.MySqlDataReader.NextResult()
   at MySql.Data.MySqlClient.MySqlCommand.ExecuteReader(CommandBehavior behavior)
   at MySql.Data.MySqlClient.MySqlCommand.ExecuteReader()
   at WindowsApp1.Form1.Form1_Load(Object sender, EventArgs e) in C:\DEVELOPMENT\WindowsApp1\Form1.vb:line 19

[Voor 0% gewijzigd door RobIII op 06-11-2018 12:07]

[Sandor_Clegane]

Geef je wel een string als input parameter? Of is het al een numerieke waarde? Of is het een object? Ik zou de waarde eens hardcoden in je code en dan eens proberen.

En heeft VB iets als using of use? Scheelt je een hoop geklooi met je dispose.

Edit: Lijkt te kunnen: https://stackoverflow.com...nslate-from-c-sharp-to-vb

[Voor 20% gewijzigd door Sandor_Clegane op 05-11-2018 18:30]

[Eric Z]

Kijk eens naar het toewijzen van de waarde aan je label.text/valueX. Daar zit een verschil in volgens mij. Zelf nooit MySql gebruikt in .NET en datareader etc. is ook al lang geleden voor mij.

Je kan ook eens kijken naar ExecuteScalar gezien je altijd een enkel veld verwacht.

[Voor 0% gewijzigd door Eric Z op 05-11-2018 21:21. Reden: Typo]

[Steven-b]

@Eric Z Ik heb ExecuteScalar al geprobeerd, het is ook hier dat .NET een breakpoint opgeeft i.v.m. een slecht formaat.

Ik heb intussen gemerkt dat ValueX niet nodig is, maar als ik dit weer vanuit de stored procedure probeer aan te roepen brengt dit geen verschil.

Ik heb wel gemerkt dat als ik in mijn stored procedure geen OUT parameter opgeef dus gewoonweg vb. SELECT Value FROM TestTable dat het dan wel werkt.

Het moet hem ergens daarzitten maar ik kan het niet exact pinpointen, ikzelf ben nu nog maar aan het rondklooien met .NET / MySQL & Stored procedures.

@Sandor_Clegane De betreffende code "zou" de stored procedure moeten aanroepen en een waarde moeten geven, er komt geen input aan te pas.

[Steven-b]

Probleem is opgelost, na lang kijken en nog eens kijken en nog eens kijken tot je er scheel van wordt

Het zat het dus niet in de Stored Procedure maar in de VB.NET code:

Werkende code:

Visual Basic .NET:

MySQLCmd.Parameters.Add(
    New MySqlParameter("@VALUE_RESULT", MySqlDbType.Decimal) With {
        .Precision = 11, 
        .Scale = 2
    }
)
MySQLCmd.Parameters("@VALUE_RESULT").Direction = ParameterDirection.Output

Hopelijk heeft iemand hier iets aan.

Mvg,
Steven

[Voor 5% gewijzigd door RobIII op 06-11-2018 12:09. Reden: Code tags toegevoegd]

[RobIII]

Steven-b schreef op dinsdag 6 november 2018 @ 11:50:
Hopelijk heeft iemand hier iets aan.

Fijn dat je de oplossing post. Er is altijd wel iemand die er ooit wel iets aan heeft Als je voortaan ook nog even code tags wil gebruiken als je code post dan zijn wij helemaal gelukkig