Exemple #1
0
 public static String _creabd(anywheresoftware.b4a.BA _ba) throws Exception {
   String _ssql = "";
   // BA.debugLineNum = 9;BA.debugLine="Sub CreaBD";
   // BA.debugLineNum = 10;BA.debugLine="Mi_BD.Initialize(File.DirInternal,\"DBApp.db\",True)' Se
   // crea el archivo en el directorio interno del Smartphone";
   _mi_bd.Initialize(
       anywheresoftware.b4a.keywords.Common.File.getDirInternal(),
       "DBApp.db",
       anywheresoftware.b4a.keywords.Common.True);
   // BA.debugLineNum = 12;BA.debugLine="Dim sSql As String";
   _ssql = "";
   // BA.debugLineNum = 14;BA.debugLine="Try";
   try { // BA.debugLineNum = 15;BA.debugLine="sSql = \"CREATE TABLE IF NOT EXISTS REVIEW \"";
     _ssql = "CREATE TABLE IF NOT EXISTS REVIEW ";
     // BA.debugLineNum = 16;BA.debugLine="sSql = sSql & \"(id_review INTEGER PRIMARY KEY
     // AUTOINCREMENT, \"";
     _ssql = _ssql + "(id_review INTEGER PRIMARY KEY AUTOINCREMENT, ";
     // BA.debugLineNum = 17;BA.debugLine="sSql = sSql & \"titulo TEXT, \"";
     _ssql = _ssql + "titulo TEXT, ";
     // BA.debugLineNum = 18;BA.debugLine="sSql = sSql & \"nota TEXT, \"";
     _ssql = _ssql + "nota TEXT, ";
     // BA.debugLineNum = 19;BA.debugLine="sSql = sSql & \"tipo TEXT, \"";
     _ssql = _ssql + "tipo TEXT, ";
     // BA.debugLineNum = 20;BA.debugLine="sSql = sSql & \"fecha_registro TIMESTAMP DEFAULT
     // CURRENT_TIMESTAMP)\"";
     _ssql = _ssql + "fecha_registro TIMESTAMP DEFAULT CURRENT_TIMESTAMP)";
     // BA.debugLineNum = 21;BA.debugLine="Mi_BD.ExecNonQuery(sSql)";
     _mi_bd.ExecNonQuery(_ssql);
   } catch (Exception e15) {
     (_ba.processBA == null ? _ba : _ba.processBA)
         .setLastException(
             e15); // BA.debugLineNum = 23;BA.debugLine="Log(\"catch ERROR CREATE TABLE IF NOT
     // EXISTS REVIEW: \"&LastException.Message)";
     anywheresoftware.b4a.keywords.Common.Log(
         "catch ERROR CREATE TABLE IF NOT EXISTS REVIEW: "
             + anywheresoftware.b4a.keywords.Common.LastException(_ba).getMessage());
   }
   ;
   // BA.debugLineNum = 25;BA.debugLine="End Sub";
   return "";
 }