root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 12.0 972

Browse Source 
Files correlati     : ba8.exe f90.exe
Commento            : Corretta classe record sqlite: i datatype erano sempre sbagliati perche' presi dalla prima riga del set e quasi sempre i campi erano considerati real per i TVariant solitamente dovuto a un guessing di campi vuoti.
This commit is contained in:
Simone Palacino 2020-06-23 16:12:07 +02:00
parent 51c47f391d
commit 079d38d900
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
src/include/sqlset.cpp
View File

@ -453,32 +453,32 @@ int TSQL_recordset::on_get_items(int argc, char** values, char** columns)
_column.add(info);
}
}
//if (_items < _pagesize)
//{
// // Aggiusta le lunghezze dei campi testo e numerici
// for (int i = 0; i < argc; i++) if (values[i] && *values[i])
// {
// TRecordset_column_info& info = (TRecordset_column_info&)_column[i];
// if (info._type == _alfafld || info._type == _realfld)
// {
// const int len = strlen(values[i]);
// if (len > info._width)
// {
// info._width = len;
// if (info._type == _alfafld)
// {
// if (len == 8 && atol(values[i]) > 19000000)
// {
// info._type = _datefld;
// info._width = 10;
// } else
// if (real::is_real(values[i]))
// info._type = _realfld;
// }
// }
// }
// }
//}
if (_items < _pagesize)
{
// Aggiusta le lunghezze dei campi testo e numerici
for (int i = 0; i < argc; i++) if (values[i] && *values[i])
{
TRecordset_column_info& info = (TRecordset_column_info&)_column[i];
if (info._type == _alfafld || info._type == _realfld)
{
const int len = strlen(values[i]);
if (len > info._width)
{
info._width = len;
if (info._type == _alfafld)
{
if (len == 8 && atol(values[i]) > 19000000)
{
info._type = _datefld;
info._width = 10;
}/* else
if (real::is_real(values[i]))
info._type = _realfld;*/
}
}
}
}
}
_items++;
return SQLITE_OK;