It still doesn’t work for me but I’m going here …
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Dim BIni(102)
Dim DB
Dim sqlList
Dim calcdata=[[0]] 'The current calcdata in a 2D array
Dim nFilasBD
Dim ordennob
Dim proyectob
Dim detalleb
Dim SeriesName
Dim LinesImp
Dim AccionBD
Dim nFilasBD
Dim calcdata
Dim TextoCarga
Dim params
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
'===================================================
Sub Main()
'----------------------------------------------------------------------
SeriesName="Calculadora"
proyectob=SeriesName
'----------------------------------------------------------------------
If typeof(cordova)<>"undefined" Then
'----------------------------------------------------------------------
'MsgBox "Runing en phonegap "&typeof(cordova)
'----------------------------------------------------------------------
Button7.style.backgroundColor=RGB(255,0,0)
Button8.style.backgroundColor=RGB(0,255,0)
'----------------------------------------------------------------------
document.addEventListener("deviceready", ArrancaSql0, True)
'----------------------------------------------------------------------
Else
'----------------------------------------------------------------------
'MsgBox "Runing inbrowser"&typeof(cordova)
'----------------------------------------------------------------------
'Create database if it does not exist
DB = SqlOpenDatabase("calculadora.db","1.0","Datos de Calculadora")
sqlList=[]
TextoCarga="CREATE TABLE calculadoraData('ordennoP','proyecto','detalle','serieA','serieB','serieC','serieD','serieE','serieF',"
TextoCarga=TextoCarga&"'serieG','serieH','serieI','serieJ','serieK','serieL','serieM','serieN','serieO','serieP','serieQ','serieR',"
TextoCarga=TextoCarga&"'serieS','serieT','serieU','serieV','serieW','serieX','serieY','serieZ','serieAA','serieAB','serieAC','serieAD',"
TextoCarga=TextoCarga&"'serieAE','serieAF','serieAG','serieAH','serieAI','serieAJ','serieAK','serieAL','serieAM','serieAN','serieAO',"
TextoCarga=TextoCarga&"'serieAP','serieAQ','serieAR','serieAS','serieAT','serieAU','serieAV','serieAW','serieAX','serieAY','serieAZ', "
TextoCarga=TextoCarga&"'serieBA','serieBB','serieBC','serieBD',"
TextoCarga=TextoCarga&"'serieBE','serieBF','serieBG','serieBH','serieBI','serieBJ','serieBK','serieBL','serieBM','serieBN','serieBO',"
TextoCarga=TextoCarga&"'serieBP','serieBQ','serieBR','serieBS','serieBT','serieBU','serieBV','serieBW','serieBX','serieBY','serieBZ', "
TextoCarga=TextoCarga&"'serieCA','serieCB','serieCC','serieCD','serieCE','serieCF',"
TextoCarga=TextoCarga&"'serieCG','serieCH','serieCI','serieCJ','serieCK','serieCL',"
TextoCarga=TextoCarga&"'serieCM','serieCN','serieCO','serieCP','serieCQ','serieCR','serieCS','serieCT','serieCU','serieCV','serieCW','serieCX',"
TextoCarga=TextoCarga&"'serieFiltro','serieModo', "
TextoCarga=TextoCarga&"PRIMARY KEY ('ordennoP') );"
sqlList[0]=[TextoCarga, success, fail]
Sql(DB, sqlList)
'------------------------------------------------------------------
Button1.style.backgroundColor=RGB(255,0,0)
Button2.style.backgroundColor=RGB(255,0,0)
'------------------------------------------------------------------
Button7.style.backgroundColor=RGB(0,255,0)
Button8.style.backgroundColor=RGB(255,0,0)
'------------------------------------------------------------------
Button7.value=typeof(cordova)
'------------------------------------------------------------------
End If
End Sub
'====================================================================
Function ArrancaSql0()
'document.addEventListener("deviceready", ArrancaSql1, True)
Print "llego a ArrancaSql0()"
JavaScript
switch(device.platform)
{
case "ios":
case "iOS":
params = {name: 'calculadora', iosDatabaseLocation: 'default'};
break;
case "android":
case "Android":
params = {name: 'calculadora', location: 'default'};
break;
}
myDB = window.sqlitePlugin.openDatabase(params, function() {
ArrancaSql1();
});
End JavaScript
End Function
'====================================================================
Function ArrancaSql1()
Print "llego a ArrancaSql1()"
DB = SqlOpenDatabase("calculadora.db","1.0","Datos de Calculadora")
sqlList=[]
TextoCarga="CREATE TABLE calculadoraData('ordennoP','proyecto','detalle','serieA','serieB','serieC','serieD','serieE','serieF',"
TextoCarga=TextoCarga&"'serieG','serieH','serieI','serieJ','serieK','serieL','serieM','serieN','serieO','serieP','serieQ','serieR',"
TextoCarga=TextoCarga&"'serieS','serieT','serieU','serieV','serieW','serieX','serieY','serieZ','serieAA','serieAB','serieAC','serieAD',"
TextoCarga=TextoCarga&"'serieAE','serieAF','serieAG','serieAH','serieAI','serieAJ','serieAK','serieAL','serieAM','serieAN','serieAO',"
TextoCarga=TextoCarga&"'serieAP','serieAQ','serieAR','serieAS','serieAT','serieAU','serieAV','serieAW','serieAX','serieAY','serieAZ', "
TextoCarga=TextoCarga&"'serieBA','serieBB','serieBC','serieBD',"
TextoCarga=TextoCarga&"'serieBE','serieBF','serieBG','serieBH','serieBI','serieBJ','serieBK','serieBL','serieBM','serieBN','serieBO',"
TextoCarga=TextoCarga&"'serieBP','serieBQ','serieBR','serieBS','serieBT','serieBU','serieBV','serieBW','serieBX','serieBY','serieBZ', "
TextoCarga=TextoCarga&"'serieCA','serieCB','serieCC','serieCD','serieCE','serieCF',"
TextoCarga=TextoCarga&"'serieCG','serieCH','serieCI','serieCJ','serieCK','serieCL',"
TextoCarga=TextoCarga&"'serieCM','serieCN','serieCO','serieCP','serieCQ','serieCR','serieCS','serieCT','serieCU','serieCV','serieCW','serieCX',"
TextoCarga=TextoCarga&"'serieFiltro','serieModo', "
TextoCarga=TextoCarga&"PRIMARY KEY ('ordennoP') );"
sqlList[0]=[TextoCarga, success, fail]
Sql(DB, sqlList)
'------------------------------------------------------------------
Button1.style.backgroundColor=RGB(255,0,0)
Button2.style.backgroundColor=RGB(255,0,0)
'------------------------------------------------------------------
Button7.style.backgroundColor=RGB(0,255,0)
Button8.style.backgroundColor=RGB(255,0,0)
'------------------------------------------------------------------
End Function
'====================================================================
'********** Movimientos en la BD **********
'====================================================================
Sub success()
Print "Exito=Ok"
Button1.style.backgroundColor=RGB(0,160,0)
End Sub
'------------------------------------------------------------------------------------------
Sub fail()
Print "Problemas pero llego=Error"
Button2.style.backgroundColor=RGB(0,160,0)
End Sub
'====================================================================
'====================================================================