I think the problem is the values being stored with a "," to separate the decimals.
All I need is the rounded value anyway, but I don't know how to fetch it.
Dim dbfdatabase As String = "kmtab3.DBF" Dim connectionString As String = "Provider=VFPOLEDB.1;Data Source=\\Fileserver\iis\calculatiemodule\;" Dim ds As New DataSet Using connection As New OleDb.OleDbConnection(connectionString) Dim da As OleDb.OleDbDataAdapter Dim sql As String = "SELECT PLAATSVAN, PLAATSTOT, AFSTAND FROM " & dbfdatabase da = New OleDb.OleDbDataAdapter(sql, connection) da.Fill(ds, "Afstanden") End Using
The program errors on the Fill
System.InvalidOperationException was unhandled
Message= "The provider could not determine the Decimal value. For example, the row was just created, the default for the Decimal column was not available, and the consumer had not yet set a new Decimal value."
The "AFSTAND" values all have the format 146,00
which I can not change since another program (written in Vulcan) uses it as well.
Who knows a solution?