Hello,
Can you help me please with this code?
I need to write this lines into a sqlite table but isn't possible in the emulator and some tablets and mobile phones. I don't know why.
In this code I don't write sql.begintransaction... But it doesn't work as well.
Thanks to all
Can you help me please with this code?
I need to write this lines into a sqlite table but isn't possible in the emulator and some tablets and mobile phones. I don't know why.
In this code I don't write sql.begintransaction... But it doesn't work as well.
B4X:
Try
sSQL.ExecNonQuery("CREATE TABLE IF NOT EXISTS ConfLaboral(DesdeFecha Date,HastaFecha Date,TipoServicio Char(2),Fijo Char(1))")
If DateTime.GetYear(DateTime.Now) = "2014" Then
Dim CC As Cursor
CC = sSQL.ExecQuery("SELECT * FROM ConfLaboral")
If CC.RowCount <= 0 Then
sSQL.BeginTransaction
Try
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-12-25','2014-12-25','FR','X')")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-12-24','2014-12-31','R','X')")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-12-08','2014-12-08','F','X')")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-12-06','2014-12-06','F','X')")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-11-01','2014-11-01','F','X')")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-10-10','2014-10-10','N',NULL)")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-10-09','2014-10-09','F','X')")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-08-15','2014-08-15','FR','X')")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-06-16','2014-08-31','R','X')")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-05-02','2014-05-02','N',NULL)")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-05-01','2014-05-01','F','X')")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-04-28','2014-04-28','FR',NULL)")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-04-21','2014-04-21','FR',NULL)")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-04-18','2014-04-18','FR',NULL)")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-04-17','2014-04-28','R',NULL)")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-03-16','2014-03-19','R','X')")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-01-22','2014-01-22','N',NULL)")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-01-06','2014-01-06','FR','X')")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-01-02','2014-01-06','R','X')")
sSQL.ExecNonQuery("INSERT INTO ConfLaboral (DesdeFecha,HastaFecha,TipoServicio,Fijo) VALUES('2014-01-01','2014-01-01','FR','X')")
sSQL.TransactionSuccessful
Catch
Msgbox("Error al introducir los datos del calendario laboral","Error")
End Try
sSQL.EndTransaction
End If
CC.Close
End If
Catch
Log(LastException)
End Try
Thanks to all