Youri,
I'm beginning to wonder whether or not your app is simply creating a
new database file, overwriting the old one??
Assuming you are using a local DB (RBDB) file of course. How does
your app build the file if it's not there? Does it check to make sure
the database exists before creating a new one? Sounds simple, but
Ocham's Razor rarely fails me....
- Tom
On 13/12/2006, at 7:28 PM, Youri wrote:
Bart, Tom,
The problem is not to my opinion in inserting data and selecting
the correct database file. I have for proof that last night I ran
my app did some insertions from CSV file. Quit re-opened many
times, deleted, and re-imported the very same data to see if there
was something wrong.
Not only I didn't loose any data (let say the Table didn't disapear
which is quite different from only loosing datas somehow), but
everytime I inserted datas from a csv file I confirmed the presence
of these datas using Marco's app. In the limit of the 20 records
shown, ALL datas where there in the DB, and yes there is only one
database file on my disk so it is the same one as the one used by
my app.
I also ran a delete via my app, the datas where deleted, but not
the table (checked with SQLiteManager again) re-inserted datas and
then again it worked fine. Then I thought everything was fine by then.
I just re-opened the project this morning in the very same way as I
did last night, and... no more TABLE in the Database...
If it was a problem with a COMMIT, datas would not be present in
the database but TABLE would not be affected!
Let me also mention that this app doesn't do much so far :
1 single table (4 fields Database)
1 button to Import csv file in the database
Populate a listbox with the records present
1 pushbutton to run a DELETE all records in the TABLE with the
following Method :
DB_DELETE (engine as integer, tablename as string)
Return Boolean
dim query As string
query = "DELETE FROM " + tablename
select case engine
case KengineRDB
MyRDB.SQLExecute (query)
if MyRDB.ErrorMessage = "" then
Return true
else
Return false
end if
case KengineRDBServer
Case KengineValentina
Case KengineValentinaServer
Case KengineMySQL
Case KenginePGSQL
end
This is going crazy, and moreover we ran into the very same problem
during the 2 training sessions and it was not solved by RB France
Tech support.
Cheers,
Youri
Bart Pietercil wrote:
On 12-dec-06, at 23:22, Youri wrote:
Bart,
Not possible in my case, as I create this simple DB with Marco's
app (SQLiteManager in demo mode). When the Table has disapeared,
I re-create it using SQL in SQLiteManager.
I don't handle any creation/alteration of the structure of the BD
inside my code. I don't use bindings, nor any RB controls
(DataControl, DatabaseQuery). No fancy SQL (just SELECT so far...).
For instance, I import records from a text file (.csv) with the
following Method :
select case engine
case KengineRDB
Dim f, ff as FolderItem
Dim textInput As TextInputStream
Dim rowFromFile,oneCell As String
Dim i, nbrechamps As Integer
f = getfolderitem(app.NomBase)
Verify if app.NomBase is not Nil AND valid?
Verify if f = valid ?
ff = GetOpenFolderItem("") //defined as a FileType
If ff <> Nil Then
if DB_Connect(KengineRDB, f) then
in DB_Connect try to read the tableschema , should return the name
of the predefined table
I would suggest concentrating on these calls, before looking further
HTH
Bart
textInput = ff.OpenAsTextFile
textInput.Encoding= Encodings.MacRoman //strings are
MacRoman
nbrechamps = CountFields(rowFromFile,",")
dim rec as New DatabaseRecord
Do
rowFromFile = textInput.ReadLine
rec.IntegerColumn("ID_Patient") = DB_autoincrement
(KengineRdb,"PATIENTS_TBL","ID_Patient")
rec.Column("Genre") = NthField(rowFromFile, ",",2)
rec.Column("Nom") = NthField(rowFromFile, ",",3)
rec.Column("Prenom") = NthField(rowFromFile, ",",4)
rec.Column("No_SS") = NthField(rowFromFile, ",",5)
if DB_insertRecord (KengineRDB,rec, "PATIENTS_TBL") then
MyRDB.Commit
// All is OK
else
MsgBox "Erreur à l'insertion"
end if
Loop Until textInput.EOF
textInput.Close
else
// Pas de connection à la Base de Données
end if
End If
case KengineRDBServer
Case KengineValentina
Case KengineValentinaServer
Case KengineMySQL
Case KenginePGSQL
end
Youri
Bart Pietercil wrote:
On 12-dec-06, at 21:57, Youri wrote:
Maybe you are inserting your table and their data inside a
transaction and then instead of "commit" you "rollback"...
Can you please explain what you mean?
Marco means that it is possible to
1) start a transaction (look for "begin transaction" or "begin
work")
2) create the table
3) fill it with data
then quit
Since I omitted the necessary "commit" step sqlite will cancel
(rollback) everything you did until the start of the transaction.
Another possibility would be that you create the table as a
temporary table. Look at the create code for the db
Would this Delete my Table?
yes
or there is an error
somewhere executing an sql command that you are ignoring...
Nop. I have been looking for all sql command and nothing that
could delete the Table.
Cheers,
HTH
Bart Pietercil
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
