Android Tutorial Connect Android to MySQL Database Tutorial

ExecuteRemoteQuery("INSERT INTO main_table (A_C_Name,Temp,Humid,Date,Time) VALUES ('testing',25,44,'2013-12-31','"&EDT_Time.Text &"'") ", AirCondition_data)

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim hc As HttpClient
Dim  consultas, insert, foto As Int
    consultas = 2
    insert =3
    foto =4
    Dim Buffer() As Byte 'declares an empty array
    Dim a As StringUtils
    Dim consulfoto As String
    Dim nombrefoto As String
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim s As String
   

    Dim ImageView1 As ImageView
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
        hc.Initialize("hc")
    End If
    Activity.LoadLayout("2")
End Sub
Sub ExecuteRemoteQuery(Query As String, TaskId As Int)
    Dim req As HttpRequest
    req.InitializePost2("http://192.168.0.17/android/codigo1.php", Query.GetBytes("UTF8"))
    hc.Execute(req, TaskId)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
    Log("Error: " & Reason & ", StatusCode: " & StatusCode)
    If Response <> Null Then
        Log(Response.GetString("UTF8"))
        Response.Release
    End If
    ProgressDialogHide
End Sub
Sub hc_ResponseSuccess (Response As HttpResponse, TaskId As Int)
    Dim res As String
    res = Response.GetString("UTF8")
    Log("Response from server: " & res)
    Dim parser As JSONParser
    parser.Initialize(res)
    Select TaskId
        Case foto
            Dim l As List
            l = parser.NextArray
            If l.Size = 0 Then
                ToastMessageShow("no hay datos", False)
            Else
                  Dim m As Map
                m = l.Get(0)
                consulfoto = m.Get("IMAGE")
                nombrefoto = m.Get("NAME")
                lecturafoto
               
'               
            End If
    End Select
    Response.Release
End Sub

Sub insertofoto
    'convert the image file to a bytes array
    Dim InputStream1 As InputStream
  ' InputStream1 = File.OpenInput(File.DirRootExternal, "upc.3gp")
    InputStream1 = File.OpenInput("/mnt//extSdCard", "upc.3gp")
    Dim OutputStream1 As OutputStream
    OutputStream1.InitializeToBytesArray(64000)
   
    File.Copy2(InputStream1, OutputStream1)
    Dim Buffer() As Byte 'declares an empty array
   
    Buffer = OutputStream1.ToBytesArray
    Dim sa As StringUtils
    s=sa.EncodeBase64(Buffer)
    End Sub
    Sub lecturafoto
    Dim In  As InputStream
    Dim su As StringUtils
    Dim out As OutputStream   
    Dim b() As Byte
    Dim bmp As Bitmap
    b =su.DecodeBase64(consulfoto)
   
   
    In.InitializeFromBytesArray(b,0,b.Length)
   
' ABRE EL ARCHIVO EN LA SDCAR Y LA ABRE EN EL IMAGEVIEW PERO NO SE PUEDE ABRIR DESDE LA SDCARD
'    bmp.Initialize2(In)
'    out = File.OpenOutput(File.DirRootExternal,"foto.jpg",False)
'      File.Copy2(In,out)       
'    out.close
'    In.Close

'
   
   

    'GUARDA EL ARCHIVO EN LA SDCARD PERO NO ABRE EN EL IMAGEVIEW
    out = File.OpenOutput("/mnt//extSdCard","New.3gp",False)
    'out = File.OpenOutput(File.DirRootExternal,"New.3gp",False)   
    File.Copy2(In,out)       
    out.close 
   
    'bmp.Initialize2(In)
    In.Close
 
   
   
End Sub


Sub cargar_Click
    Dim fotob As String
    'fotob="SELECT IMAGE FROM PICTURE WHERE ID= 10 AND NAME ='nello'" 
        fotob="SELECT foto FROM familia WHERE ID='ospino'"
    ExecuteRemoteQuery(fotob,foto)
End Sub

Sub guarda_Click
Dim imagen As String
insertofoto
'imagen="INSERT INTO picture (ID, IMAGE, NAME)  VALUES (NULL,'"&s&"' ,'nello')"
'imagen="INSERT INTO familia (id ,direccion, foto)  VALUES ('ospino','calle 20# 18c-116 barrio guatapuri','"&s&"' )"
'ExecuteRemoteQuery(imagen,insert)
Dim z As String
z= DateTime.Date(DateTime.Now)&"/" &DateTime.time(DateTime.Now) 
Log("data time: " & z)
imagen="INSERT INTO video (id, video,fecha)  VALUES ('plata','"&s&"', '"& z &"')"
ExecuteRemoteQuery(imagen,insert)
End Sub