Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it L'avatar di GullMc
    Registrato dal
    Jun 2004
    Messaggi
    85

    $POST da Visual Basic - vb e php -

    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
    No! Provare No! Fare! O non fare! Non c'e' provare!!

    http://www.sensolibero.org/gull/varie/avatar.jpg

  2. #2
    Il crossposting non è ammesso
    Addio Aldo, amico mio... [03/12/70 - 16/08/03]

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.