Spanish Error Desconocido

[dhernandez]

Buen dia a todos, pueden decirme de que se trata este error?

Aparentemente todo lo tengo correcto

 

[Heppy]

No se ve.

 

[dhernandez]

Perdon, a ver si lo notan ahora

 

[JoanRPM]

A mi, a veces, también me pasa que no sé de donde me viene el error.
Lo que hago es ponerlo en modo debug, así se para en la linea de código donde hay el error.
Con lo poco que se ve de código, parece que tienes un error al leer la base de datos, y lo tienes cuando lees la columna y fila 0.

Saludos.

 

[dhernandez]

Mire el error viene de una foto. tomo la foto, la almaceno en la base de datos todobien,, pero al leerlo, me viene ese error

 

[josete]

Si puedes postear el trozo de codigo en que esta la linea que da el error( parece la 545),mejor

 

[dhernandez]

ok, ese lo subo en seguida. gracias

 

[dhernandez]

Este es el codigo donde genera el error anterior.

Sub Camera1_PictureTaken (Data() As Byte)
     
     
            Dim aleatorio As Int
            aleatorio = Rnd(111,3333)
            Variables.aleatoriofoto1 = aleatorio

                  Dim filename As String = Variables.aleatoriofoto1 & ".png"
                  Dim dir As String = ruta & "/" & "DCIM"
     
                        camEx.SavePictureToFile(Data, dir, filename)
                        camEx.StartPreview 'restart preview

                             'send a broadcast Intent To the media scanner To force it To scan the saved File.
                             Dim Phone As Phone
                             Dim i As Intent
      i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _
            "file://" & File.Combine(dir,filename))
      Phone.SendBroadcastIntent(i)
     
      Dim InputStream3 As InputStream
                        InputStream3 = File.OpenInput(dir, filename)
                        Dim OutputStream3 As OutputStream
                        OutputStream3.InitializeToBytesArray(1000)
                             File.Copy2(InputStream3, OutputStream3)
                             Dim Buffer2() As Byte
                                   Buffer2 = OutputStream3.ToBytesArray
                                  
                                   SQLfront.ExecNonQuery2("INSERT INTO T_ACTIVIDAD VALUES(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)", Array As Object(Variables.empresa1,Variables.cserv1,Variables.personal_id1,Variables.fechahoy1,Variables.horahoy1,Variables.puesto1,Variables.act_mov1,Variables.Act_observ1,(Buffer2),Variables.act_gpslat1,Variables.act_gpslon1))

           
      pic1.SetBackgroundImage(LoadBitmapSample(dir,filename,100,100))


End Sub

 

[josete]

Segun el error el fallo parece efectivamente de lectura de de la base de datos pero en el codigo que subes solo veo que se insertan registros.me choca que parece que guardas imagenes con nombre aleatorio,eso no puede machacar alguna imagen en caso de coincidir el nombre con otro? Solo se me ocurre que hagas un log del numero de resultados que da la query (cursor.rowcount) si te da 0 esque la query falla .

 

[dhernandez]

De hecho lo he puesto fijo, con algun otro nombre y tampoco quieres..
La imagen pesa 15 mega por eso creo k no se transfiere completo no se, como sea... el BytesArray.
como le hago para mandar una imagen mas grande a mi sqlite?