Hi,
I must be doing something wrong, see the code below.
What I do not understand - I get no error message! Please help me find out how to analyze the problem.
Thank you
Peter
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
			
			I must be doing something wrong, see the code below.
What I do not understand - I get no error message! Please help me find out how to analyze the problem.
Thank you
Peter
			
				B4X:
			
		
		
		Sub saveittodb (i As Int)
   Dim n,s As String
   n=addslashes(chosencontact)
   
   DateTime.dateformat="yyyy-MM-dd"
   
   s = "insert into voices values ('" & DateTime.date(DateTime.Now) & " " & DateTime.Time(DateTime.Now) & "','" & n & "'," & i & ", ?)"
   
   Dim InputStream1 As InputStream
  InputStream1 = File.OpenInput(File.DirRootExternal, "temp.3gpp")
  Dim OutputStream1 As OutputStream
  OutputStream1.InitializeToBytesArray(1000)
  File.Copy2(InputStream1, OutputStream1)
  Dim Buffer() As Byte 'declares an empty array
  Buffer = OutputStream1.ToBytesArray
   
   
   SQL1.BeginTransaction
  Try
     SQL1.ExecNonQuery2(s, Array As Object(Buffer))
  Catch
     Log(LastException.Message)
  End Try
  SQL1.EndTransaction
   
End Sub 
				 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		