Sub BtInsertPDF_Click
If EditTextTitle.Text<>"" Then
Dim PdfData() As Byte = ImageToBytes(Page)
Dim Orario As String
Dim text As String
Dim date As String
Dim Ora As String
text = EditTextTitle.Text
'Variabili Orario
Dim now As Long
Dim M, H As String
DateTime.DateFormat = "dd MMM yyyy"
date = DateTime.Date(DateTime.now)
H = DateTime.GetHour(DateTime.Now)
M = DateTime.GetMinute(DateTime.Now)
Ora = H & ":" & M
Orario = date &" "& Ora
Sql.ExecNonQuery2("INSERT INTO FilePdf (Name,Pdf,Data,Link) VALUES(?,?,?,?)", Array(text,PdfData,Orario,LinkDir))
Cursor=Sql.ExecQuery("SELECT Name,Pdf,Data,Link FROM FilePdf ORDER BY ID DESC")
For i = 0 To Cursor.RowCount-1
Cursor.Position=i
Log(Cursor.GetString("Name"))
Log(Cursor.GetString("Data"))
Log(Cursor.GetString("Link"))
Next
Cursor.Close
PanelHomePDF.Visible=True
PanelInsertPDFText.Visible=False
EditTextTitle.Text=""
Else
Msgbox("Enter a Name or Descrition","Info")
End If
End Sub