Dim RecordData As List
RecordData.Initialize
Dim PlayerData As Map
PlayerData.Initialize
PlayerData.Put("Name",txtName.Text )
PlayerData.Put("SecondName", txtSurName.Text)
PlayerData.Put("FullName",txtFullName.Text)
PlayerData.Put("playerid",txtPlayerID.Text)
PlayerData.Put("BirthDay",txtBirthDay.Text)
PlayerData.Put("SubDate",DateTime.Now)
PlayerData.Put("mobile",txtDocNumber.Text)
PlayerData.Put("sendsms",chkSendSMS.Checked)
Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.DirDefaultExternal ,"temp.jpg")
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
File.Copy2(InputStream1, OutputStream1)
Dim Buffer() As Byte 'declares an empty array
Buffer = OutputStream1.ToBytesArray
PlayerData.Put("picture",Buffer)
RecordData.Add(PlayerData)
DBUtils.InsertMaps(Main.SQLDB ,"Players", RecordData)