Android Question Saving Blank Fields In SQLite

[Terradrones]

Hi,
I am trying to save the readings from a Level Observation into a SQLite database. When reading the Backsight on a Benchmark, fields such as Foresight, Adjustment, etc. will be blank. I have tried the following code, but it does not work:

Private Sub SaveLevelBook(A As Int)
Dim Text As String

Query = "INSERT INTO LevelBook VALUES (?,?,?,?,?,?,?,?)"

If A = 1 Then
'Collimation
Text = "" & "','" & "" & "','" & "" & "','" & NumberFormat2(CGlobals.CM, 1,3,3,False) & "','" & "" & "','" & "" & "','" & "" & "','" & ""
Else If A = 2 Then
'Backsight
If PntName.Text <> "" Then
Text = NumberFormat2(BSight.Text,1,3,3,False) & "','" & "" & "','" & "" & "','" & NumberFormat2(CGlobals.CM, 1,3,3,False) & "','" & "" & "','" & "" & "','" & "" & "','" & PntName.Text
Else
Text = NumberFormat2(BSight.Text,1,3,3,False) & "','" & "" & "','" & "" & "','" & NumberFormat2(CGlobals.CM, 1,3,3,False) & "','" & "" & "','" & "" & "','" & "" & "','" & "B\S"
End If
Else If A = 3 Then
'Intermediate
'Text = Text & "" & "','" & Format(CDbl(IntRead.Text), "F3") & "','" & "" & "','" & "" & "','" & Format(CDbl(RLevel.Text), "F3") & "','" & "" & "','" & "" & "','" & IntRemarks.Text & "')"
Else If A = 4 Then
'Foresight
If FSRemarks.Text <> "" Then
Text = "" & "','" & "" & "','" & NumberFormat2(FSRead.Text, 1,3,3,False) & "','" & "" & "','" & NumberFormat2(FSLevel.Text, 1,3,3,False) & "','" & "" & "','" & "" & "','" & FSRemarks.Text
Else
Text = "" & "','" & "" & "','" & NumberFormat2(FSRead.Text, 1,3,3,False) & "','" & "" & "','" & NumberFormat2(FSLevel.Text, 1,3,3,False) & "','" & "" & "','" & "" & "','" & "F\S"
End If
End If
CGlobals.SQL1.ExecNonQuery2(Query, Array As String(Text))
ToastMessageShow("Fieldbook Updated", False)
End Sub

Any advise please?

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

 

[Terradrones]

Hi,
I am trying to save the readings from a Level Observation into a SQLite database. When reading the Backsight on a Benchmark, fields such as Foresight, Adjustment, etc. will be blank. I have tried the following code, but it does not work:

***************************************************************** Start Code ***************************************************************

Private Sub SaveLevelBook(A As Int)
Dim Text As String

Query = "INSERT INTO LevelBook VALUES (?,?,?,?,?,?,?,?)"

If A = 1 Then
'Collimation
Text = "" & "','" & "" & "','" & "" & "','" & NumberFormat2(CGlobals.CM, 1,3,3,False) & "','" & "" & "','" & "" & "','" & "" & "','" & ""
Else If A = 2 Then
'Backsight
If PntName.Text <> "" Then
Text = NumberFormat2(BSight.Text,1,3,3,False) & "','" & "" & "','" & "" & "','" & NumberFormat2(CGlobals.CM, 1,3,3,False) & "','" & "" & "','" & "" & "','" & "" & "','" & PntName.Text
Else
Text = NumberFormat2(BSight.Text,1,3,3,False) & "','" & "" & "','" & "" & "','" & NumberFormat2(CGlobals.CM, 1,3,3,False) & "','" & "" & "','" & "" & "','" & "" & "','" & "B\S"
End If
Else If A = 3 Then
'Intermediate
'Text = Text & "" & "','" & Format(CDbl(IntRead.Text), "F3") & "','" & "" & "','" & "" & "','" & Format(CDbl(RLevel.Text), "F3") & "','" & "" & "','" & "" & "','" & IntRemarks.Text & "')"
Else If A = 4 Then
'Foresight
If FSRemarks.Text <> "" Then
Text = "" & "','" & "" & "','" & NumberFormat2(FSRead.Text, 1,3,3,False) & "','" & "" & "','" & NumberFormat2(FSLevel.Text, 1,3,3,False) & "','" & "" & "','" & "" & "','" & FSRemarks.Text
Else
Text = "" & "','" & "" & "','" & NumberFormat2(FSRead.Text, 1,3,3,False) & "','" & "" & "','" & NumberFormat2(FSLevel.Text, 1,3,3,False) & "','" & "" & "','" & "" & "','" & "F\S"
End If
End If
CGlobals.SQL1.ExecNonQuery2(Query, Array As String(Text))
ToastMessageShow("Fieldbook Updated", False)
End Sub

*************************************************************************** End Code *************************************************************************************

Any advise please?

 

[AnandGupta]

O My GOD, @Terradrones

You did not understand Erel's message. He means click this,



And write the code there,



You can edit your post above and make the required corrections too.

 

[Terradrones]

Hi Anand

Thanks for that. I am getting a bit old for this new stuff!! Maybe I should retire.

I will figure the correct procedure for blank values in a SQLite database myself.

 

[Mahares]

Text = "" & "','" & "" & "','" & "" & "','" & NumberFormat2(CGlobals.CM, 1,3,3,False) & "','" & "" & "','" & "" & "','" & "" & "','" & ""

The above is not a correct way. Text should be defined as an array not a simple string. See below:
Use a format like this to apply to your data:

Dim Query As String ="INSERT INTO student VALUES (?,?,?)"
    Dim Text() As Object = Array As Object(NumberFormat2(888, 1,0,0,False), "mahares","")
    SQL.ExecNonQuery2(Query, Text)

Erel asked you to post your code inside tags. Why did you ignore his request?
Why did you post the same infornation in 2 different posts of this thread?

 

[AnandGupta]

Why did you post the same infornation in 2 different posts of this thread?

He is new here, and I think he did not understand it. See how much effort he gave to write long 'stars' and Start Code.
He will sure learn quickly.

 

[Terradrones]

Thank you very much, Mahares.

Not sure why I am doing stupid things lately. I think I have too much on my plate. I am maintaining 2 Surveying programs at the moment....one is for the Microsoft Compact Framework and the other for the PC, which is very similar to AutoCad lite, but more surveying orientated. And I am also trying to rewrite the Mobile version for the Android Platform. And next week I am starting fulltime on a road construction Project as a Surveyor outside Cape Town.

 

[Mahares]

Thank you very much, Mahares.

No problem. You do not have to answer until your try the code to see if it helped you or not. When Erel asked you to use code tags, you are using the wrong way to apply tags. He does not mean something like this:
****** Start Code *******
'your code
************ End Code

To use code tags you can use the procedure in post 4, but the way I do is this:
1. I type or paste my code.
2. I come to the beginning of the code and type the word: code between 2 brackets []
3. I go to the end of the code and type: /code between 2 other brackets.[]
4. Preview the code before posting it by clicking the 'Preview' button. This way you will see what it looks like when posted to be sure it complies.

 

[Terradrones]

Thank you very much Mahares, it is working

I will remember your advise about posting code in the future.

One other question: I am using the B4XTable to display my Dumpy Level Fieldbook. If a field is "" in the SQLite database, the table displayes a "0"...how can I make it to also display "" in the Table?

 

[Mahares]

a field is "" in the SQLite database, the table displayes a "0"...how can I make it to also display "" in the Table?

The reason it is showing 0 instead of blank is because you defined the column as NUMBERS. If you define it as TEXT, it will be blank. It will not affect the other numbers: B4XTable1.COLUMN_TYPE_TEXT

 

[Terradrones]

Thank you very much, Mahares. I still have so much to learn