E' possibile inviare da visual basic delle variabili ad una pagina web tramite post? In modo da poterle ricavare poi nella pagina con $GET.. In sostanza io mi ristrovo a programmare con visual basic e php. Il mio progetto è questo: un utente compilando dei text in un form (vb) inserisce determinati valori nelle celle di un file excel. E fin qui ce l'ho. Mò il fatto è che io vorrei dare quei valori anche a mysql in modo da avere anche database remoto. Come faccio?

Il codice della mia applicazione è questo:
codice:
Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Dim riga As Integer

Private Sub Command1_Click()
Set foglioExcel = Excel.Worksheets.Item(1)
foglioExcel.Activate
If appExcel.ActiveWindow Is Nothing Then
MsgBox "Nessuna finestra è attiva"
End If
riga = Val(Text11.Text)

foglioExcel.Range("A" & riga).Value = Text1.Text
foglioExcel.Range("B" & riga).Value = Text2.Text
foglioExcel.Range("C" & riga).Value = Text3.Text
foglioExcel.Range("D" & riga).Value = Text4.Text
foglioExcel.Range("E" & riga).Value = Text5.Text
foglioExcel.Range("F" & riga).Value = Text6.Text
foglioExcel.Range("G" & riga).Value = Text7.Text
foglioExcel.Range("H" & riga).Value = Text8.Text
foglioExcel.Range("I" & riga).Value = Text9.Text
foglioExcel.Range("J" & riga).Value = Text10.Text

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""

End Sub

Private Sub Form_Load()
appExcel.Visible = True
Set cartExcel = Excel.Workbooks.Open("C:\Cartel1.xls")
End Sub


Private Sub Text6_Change()
Text7.Text = Val(Text5.Text) - (Val(Text5.Text) * Val(Text6.Text) / 100)
End Sub

Private Sub Text8_Change()
Text9.Text = Val(Text7.Text) + (Val(Text7.Text) * Val(Text8.Text) / 100)
End Sub

Altra questione, per fare la % di un valore, basta che faccio:
valore iniziale - o + (valore iniziale * valore della percentuale /100)

no?


Grazie 1000