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 vb - cioè 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
    Utente di HTML.it L'avatar di MMarzia
    Registrato dal
    Mar 2001
    Messaggi
    1,781
    ricorda che la versione di visual basic va sempre specificata nel titolo, come da regolamento
    io sono festosamente cicciottello :: e. cartman

    t'amo senza sapere come, nè quando nè da dove,
    t'amo direttamente senza problemi nè orgoglio:
    così ti amo perchè non so amare altrimenti

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.