ciao a tutti ragazzi
ho un problemino con vb 6, che potete vedere nell'allegato, che riguarda il codice di un programma che deve inserire dei parametri in un file random....cosa significa quell'errore ?
ciao a tutti ragazzi
ho un problemino con vb 6, che potete vedere nell'allegato, che riguarda il codice di un programma che deve inserire dei parametri in un file random....cosa significa quell'errore ?
il codice della funzione incriminata è questo :
Private Sub addstud_Click()
Call OpenFileStud
NumeroElementi = LOF(1) / Len(Studente)
For I = 1 To NumeroElementi
Get #1, I, Studente
If Login.Text = Trim(User.Login) Then
MsgBox "La login inserita è gia presente!", vbInformation, "Cambia login!"
txtlogin.Text = ""
Call CloseFileStud
Exit Sub
End If
Next
Studente.Login = Login.Text
Studente.Password = cripta(Password.Text)
Studente.Nome = Nome.Text
Studente.Cognome = Cognome.Text
Studente.Descrizione = Descrizione.Text
Studente.Livello = Livello.ListIndex
Studente.Cellulare = Cell.Text
Studente.Città = City.Text
Studente.Classe = ClassCombo.ListIndex
Studente.CodFiscale = CodFisc.Text
Studente.DataNascita = Nascita.Text
Studente.Email = mail.Text
Studente.Specializzazione = SpecCombo.ListIndex
Studente.Telefono = Tel.Text
Studente.Via = Via.Text
Put #1, NumeroElementi + 1, Studente
Call CloseFileStud
MsgBox "Studente inserito con successo!", vbInformation, "Successfull!"
Call pulisci(True)
End Sub
ah e questa è la dichiarazione della variabile studente, che vb 6 mi indica:
Private Type MyStudent
Login As String * 8
Password As String * 8
Livello As Integer
Descrizione As String * 100
Classe As String * 10
Specializzazione As String * 18
Cognome As String * 20
Nome As String * 20
DataNascita As data
CodFiscale As String * 18
Via As String * 35
Città As String * 25
Telefono As Integer
Cellulare As Integer
Email As String * 40
End Type
Public Studente As MyStudent
allora raga, niente?
novità ? dai raga v elo chiedo per favore, se c'è qualcuno che mi può aiutare che lo faccia che mi manca solo questo pezzetto di programma per finire il mio progetto e se non lo finisco vado nei guai
allora raga ? niente ancora
A' Nando... dacce tempo,no ?....Originariamente inviato da Nandos
allora raga ? niente ancora
A parte scherzi....
DataNascita As data
e' solo un errore di battitura, o viene interpretato come un tipo (NON) definito dall'utente ???
Pero' il codice andrebbe SEMPRE:
1) provato sul PC (Full Compile)
2) racchiuso nel tag CODE (#), perlomeno sarebbe leggibile !
Ciao !
IceCube_HT (VB6 fan Club)
ooookkkk, grazie mille, errore di battitura ( poi l'ho visto :S )
allora ragazzi, ora ho messo anche la gestione delle assenze vera e propria ma quando vado a fare la ricerca mi da sempre che lo studente ricercato è inesistente :S.....come faccio ora ???
ecco il codice:
http://www.hostingfiles.net/files/20...NZE_FINALE.zip
so andato un pò avanti. ora quando aggiungo un'assenza allo studente non la salva
ecco il codice:
con la dichiarazione della variabile studentcodice:Private Sub Addass_Click() Dim a, b As Integer Call OpenFileStud NumeroElementi1 = LOF(1) / Len(studente) For i = 1 To NumeroElementi1 Get #1, i, studente If Text1.Text = Trim(studente.Nome) And Text2.Text = Trim(studente.Cognome) Then a = studente.assenze b = a + 1 lblassenze.Caption = b studente.assenze = b Put #1, NumeroElementi1, studente Call CloseFileStud MsgBox "Assenza aggiunta con successo!", vbInformation, "Successfull!" Exit Sub End If Next End Sub
codice:Private Type Mystud Login As String * 8 Password As String * 8 Livello As Integer Descrizione As String * 100 Classe As String * 10 Specializzazione As String * 50 Cognome As String * 50 Nome As String * 50 DataNascita As Date CodFiscale As String * 50 Via As String * 50 Città As String * 50 Telefono As String * 50 Cellulare As String * 50 assenze As Integer Email As String * 100 End Type Public studente As Mystud
dove sta sbagliato :S, la aggiunge una volta ma la proxima mi tiene sempre 0 come assenze e non le salva :S
Permessi di invio
