31
Programmazione / Re:[Risolto] Access forbiten file in scrittura
« il: 04 Novembre 2017, 01:45:24 »
Dal wiki:
E funziona!
Grazie a tutti per il supporto, una menzione particolare a Gianluigi e a vuott per la pazienza e i codici.
Quando tutto "l'ambaradan" funzionerà a dovere mi occuperò della pacchettizzazione i. .deb
Non temete vi "romperò i ..." ancora
Citazione
Usare la funzione write( ) con la funzione fopen( )Comunque ho trovato la "quadra" con:
Codice: [Seleziona]
Public Sub btn_reqins_Click()
Dim pnt1, pw, pr As Pointer
Dim i As Byte
Dim er_t As String
Dim dati_utente As String[]
Dim my_str As String
' popoliamo i campi utente ...
dati_utente = New String[]
dati_utente.Add(campi_utn[0] & utn_tb1.Text & "\n", 0)
dati_utente.Add(campi_utn[1] & utn_tb2.Text & "\n", 1)
dati_utente.Add(campi_utn[2] & utn_tb8.Text & "\n", 2)
dati_utente.Add(campi_utn[3] & utn_cb1.Text & " " & utn_tb3.Text & " " & utn_tb4.Text & " " & utn_tb5.Text & " " & utn_tb6.Text & " " & utn_tb7.Text & "\n", 3)
dati_utente.Add(campi_utn[4] & utn_tb9.Text, 4)
' ora prepariamo il puntatore per il file da aprire in scrittura ...
pnt1 = fopen("./fatture_user/Utente.ftr", "w")
If pnt1 = Null Then
er_t = "Impossibile aprire il file Prestazioni causa:\n" & Error.Text
Message.Error(er_t)
Else
' ... adesso i dati ...
For i = 0 To 4
'dati_utente[i]
pw = Alloc(dati_utente[i])
fwrite(pw, 1, Len(dati_utente[i]), pnt1)
Next
Endif
my_response = True
Free(pw)
fclose(pnt1)
requestwind.Close()
End
Grazie a tutti per il supporto, una menzione particolare a Gianluigi e a vuott per la pazienza e i codici.
Quando tutto "l'ambaradan" funzionerà a dovere mi occuperò della pacchettizzazione i. .deb
Non temete vi "romperò i ..." ancora