Insert Web Text Field data into Sqlite DB

Craig_Wyeth1 · January 3, 2019, 8:11am

Hello,
I am a newby to Xojo.
I am attempting to take Text Field data inputted from a Web Page and insert this into a database with the following code which is not correct.

Any assistance will be greatly appreciated.

Thank you and regards
Craig

Dim DBFile as FolderItem
DBFile = Volume(0).Child(“Users”).Child(“craigwyeth”). Child(“Documents”).Child(“Wyzelink”).Child(“Wyzelink Xojo Projects?”).Child(“ALC.sqlite”)
DB = New SQLiteDatabase
DB.DatabaseFile = DBFile

Dim CustomerRecord as New DatabaseRecord

CustomerRecord.Column(“CompanyID”) = TextCompanyCode.Text
CustomerRecord.Column(“CompanyName”) = TextCompanyName.Text
CustomerRecord.Column(“CompanyAddr1”) = TextCompanyAddress1.Text
CustomerRecord.Column(“CompanyAddr2”) = TextCompanyAddress2.Text
CustomerRecord.Column(“CompanyAddr3”) = TextCompanyAddress3.Text
CustomerRecord.Column(“CompanyTown”) = TextCompanyTown.Text
CustomerRecord.Column(“CompanyRegion”) = TextCompanyRegion.Text
CustomerRecord.Column(“CompanyPostalCode”) = TextCompanyPostalCode.Text
CustomerRecord.Column(“CompanyCountry”) = TextCompanyCountry.Text
CustomerRecord.Column(“CompanyRegno”) = TextCompanyRegNo.Text
CustomerRecord.Column(“CompanyContactNo”) = TextCompanyContactNo.Text
CustomerRecord.Column(“CompanyEmail”) = TextCompanyEmail.Text
CustomerRecord.Column(“CompanyWebsite”) = TextCompanyWebsite.Text

DB.InsertRecord(“MasterAccount”, CustomerRecord)

If DB.Connect Then
DB.InsertRecord(“MasterAccount”, CustomerRecord)
DB.Commit

Else
MsgBox("The database couldn’t be opened. Error: " + DB.ErrorMessage)
DB.Rollback
End If

Antonio_Rinaldi · January 3, 2019, 10:04am

You forgot to connect to the db

PaulS · January 3, 2019, 11:54am

You are doing an insert before you connect to the database.
The second insert after the db connect is correct.

DB.InsertRecord("MasterAccount", CustomerRecord)  <-- Remove this line

If DB.Connect Then
  DB.InsertRecord("MasterAccount", CustomerRecord)
  DB.Commit

Else
  MsgBox("The database couldn't be opened. Error: " + DB.ErrorMessage)
  DB.Rollback
End If

Sascha_S · January 3, 2019, 12:15pm

[quote=420049:@Paul Sondervan]Else

MsgBox("The database couldn't be opened. Error: " + DB.ErrorMessage) DB.Rollback <--- Also remove this line End If[/quote]

Why Rollback if the DB is NOT connected?

Craig_Wyeth1 · January 4, 2019, 8:21am

Thank you for the assistance.
I have removed the Insert line before the Connect but I am still not able insert the record.

Sascha_S · January 4, 2019, 9:15am

[quote=420155:@Craig Wyeth]Thank you for the assistance.
I have removed the Insert line before the Connect but I am still not able insert the record.[/quote]

What Error does the DB report, please?

Craig_Wyeth1 · January 4, 2019, 9:42am

It does not Error. The DB.Connect is successful but the Insert does not seem to insert the record.

Thank you

Jean-Yves_Pochez · January 4, 2019, 10:24am

what does the db.errormessage show JUST AFTER THE INSERT

DB.InsertRecord("MasterAccount", CustomerRecord) msgbox db.errormessage DB.Commit

Craig_Wyeth1 · January 4, 2019, 12:14pm

no such table: MasterAccount

Albin_Kiland · January 4, 2019, 12:48pm

There’s your error right there. The database has no table called MasterAccount

Craig_Wyeth1 · January 4, 2019, 1:19pm

I’m clearly missing something as I created the DB with the associated Table.

Craig_Wyeth1 · January 4, 2019, 1:39pm

https://i.postimg.cc/L6M3YcPB/Screenshot-2019-01-04-at-15-17-09.png

Lars_Lehmann · January 4, 2019, 2:08pm

open the db in another sqlite manager such as “Datum” or so.

With this you can check if your changes in the xojo-sqlite-interface are commited correctly.

The IDE-inbuilt interface for sqlite isn’t alway the best choice.

Ralph_Alvy · January 4, 2019, 3:45pm

I assume this error occurs during a Debug session. If so, is that database also in your Debug folder for that project? If so, does it have a MasterAccount table?

Ralph_Alvy · January 4, 2019, 3:51pm

I’m actually not sure if what I said above is relevant if you have the database in the IDE itself. Not sure how that works during Debug. I only use databases that are not in the IDE.

Jean-Yves_Pochez · January 4, 2019, 4:06pm

not sure also the primary key named “ID” is a boolean field… will certainly not work. you must use an integer.

Richard_Duke · January 4, 2019, 4:48pm

that is true, but why say cannot find MasterAccount???

PaulS · January 4, 2019, 6:22pm

I see in your picture that you have added a link to the database in the IDE.
Is the link in the IDE pointing to the same location as the location that you are using to connect to the database (DBFile)?
If not then the database you connect to doesn’t have the table that you assume it does.

Furthermore I would advise you to use SpecialFolder to get to the documents folder.

DBFile = SpecialFolder.Documents.Child("Wyzelink").Child("Wyzelink Xojo Projects?").Child("ALC.sqlite")

Craig_Wyeth1 · January 6, 2019, 4:04am

Thank you for your advice and assistance. It is very much appreciated.

I have removed the ALC DB and MasterAccount table and recreate using DB Browser for SQLite as suggested by @Lars Lehmann
https://i.postimg.cc/Mpj6cVZf/Screenshot-2019-01-06-at-05-47-06.png
I have removed the link to the DB in the IDE and amended the ID Field to type Integer as suggested by @Ralph Alvy, @Jean-Yves Pochez and @Paul Sondervan
I have amended the link to the DB (ALC.DB) to use the SpecialFolder as advised by @Paul Sondervan

Thank you

Jean-Yves_Pochez · January 6, 2019, 9:29am

and … does it work now ?