Visual Basic 6 - Problema con i file.dat

Forum - Visual Basic 6 - Problema con i file.dat

Giuan (Normal User)
Newbie

Messaggi: 7
Iscritto: 04/05/2012

Postato alle 20:31
Venerdì, 04/05/2012

Allora ragazzi,ho dei grossi problemi,dato che sono passato da studiare il c++ al visual basic...Premetto che quello che vi mostrerò,sarà un programmino in grado di salvare,modificare,o aggiungere nome,cognome,numero di matricola degli alunni di una scuola...Il mio problema,per quanto ora io sappia,è che dopo aver creato la struttura,dichiarato il buffer,non riesco a creare il file,o meglio dovrebbe crearmelo,ma mi dà errore sulla dichiarazione del buffer...Non so come procedere...Un aiuto,ma soprattutto ulteriori chiarimenti mi sarebbero molto grati,dato che i professori di oggi,si divertono a non spiegare più nulla...

Ultima modifica effettuata da Giuan il 04/05/2012 alle 20:39

nessuno (Normal User)
Guru^2

Messaggi: 6403
Iscritto: 03/01/2010

Postato alle 20:46
Venerdì, 04/05/2012

Sei sicuro che parliamo di VB6 o no ?

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

Giuan (Normal User)
Newbie

Messaggi: 7
Iscritto: 04/05/2012

Postato alle 20:56
Venerdì, 04/05/2012

Sisi sicurissimo,parliamo di VB6 tranuquillo

nessuno (Normal User)
Guru^2

Messaggi: 6403
Iscritto: 03/01/2010

Postato alle 20:58
Venerdì, 04/05/2012

Okay, allora mostra il codice e l'errore ... no ?

Giuan (Normal User)
Newbie

Messaggi: 7
Iscritto: 04/05/2012

Postato alle 15:30
Domenica, 06/05/2012

Codice sorgente - presumibilmente VB.NET

Option Explicit
Private Type Rec
Nome     As String * 40
Cognome  As String * 40
Classe   As String * 40
Nummat   As String * 40
End Type
Dim R As Rec
Public Filename As String
Public Stringa As String
Dim ultimoREC As Integer
 
Private Sub Form_Load()
Drive1.Drive = "C:"
Dir1.Path = Drive1.Drive
File1.Path = Dir1.Path
Txtpercorso = Dir1.Path
End Sub
 
Private Sub Command1_Click()
If (Option1 = True) Then
Form1.Show
End If
 
If (Text1.Text = "") And (Option2 = True) Then
MsgBox ("Immetti nome!!"), vbOKOnly, "      Error"
 
Else: Txtpercorso.Text = Dir1.Path + Text1.Text + ".dat"
      Stringa = Txtpercorso.Text
      Text1.Text = Stringa
      Form1.Show
End If
End Sub
 
Private Sub Dir1_Change()
File1 = Dir1
Txtpercorso.Text = Dir1.Path + Filename
End Sub
 
Private Sub Drive1_Change()
Dir1 = Drive1
Txtpercorso.Text = Dir1.Path + Filename
End Sub
 
Private Sub File1_Click()
Filename = File1
Txtpercorso.Text = Dir1.Path + "\" + Filename
End Sub
 
Private Sub Option1_Click()
Option1.Enabled = True
If (Option1 = True) Then
Text1.Visible = False
File1.Visible = True
End If
End Sub
 
Private Sub Option2_Click()
Option2.Enabled = True
If (Option2 = True) Then
File1.Visible = False
Text1.Visible = True
End If
End Sub
 
 
Private Sub Txtpercorso_Change()
Stringa = Txtpercorso.Text
End Sub

Codice sorgente - presumibilmente VB.NET

Dim mystringa As String
Dim lung      As Integer
Dim ult       As Long
Dim filenum   As Integer
Dim posiz     As Long
 
Private Type Rec
Matricola As String
Nome      As String * 10
Cognome   As String * 10
Classe    As String * 10
End Type
Dim R As Rec
 
Private Sub Form_Load()
Open Stringa For Random As #1 Len = Len(R)
Get #1, 1, R
List1.AddItem R.Matricola
While (Not EOF(1))
  Get #1, , R
  lstmatricole.AddItem R.Matricola
Wend
  Close
End Sub

il primo è il form generale....Il secondo invece è quello che si deve aprire quando clicco su creafile...come appena clicco,l'errore è il seguente:Errore di accesso al percorso file...Sono disperato ragà,aiutatemi per favore...

nessuno (Normal User)
Guru^2

Messaggi: 6403
Iscritto: 03/01/2010

Postato alle 15:34
Domenica, 06/05/2012

Ma

Stringa

che dovrebbe contenere il nome del file (e quindi, secondo buon senso, sarebbe meglio chiamare NomeFile) è pubblica per il Form1 non per il secondo.

Se vuoi usare una variabile pubblica tra Form, inseriscila in un Modulo.

Giuan (Normal User)
Newbie

Messaggi: 7
Iscritto: 04/05/2012

Postato alle 15:49
Domenica, 06/05/2012

Grazie mille,ho risolto...Per altri problemi chiedo qui...Grandissimo

Giuan (Normal User)
Newbie

Messaggi: 7
Iscritto: 04/05/2012

Postato alle 18:06
Martedì, 08/05/2012

Allora ragazzi il programma procede benino,ma il mio problema ora è un altro...Mi si presenta un errore sulla funzione CARICALISTAMATRICOLE e precisamente su lstmatricole.listindex =0 "Valore di proprietà non valido" !! Allora ragazzi io ho notato quest'altra cosa,che provando a levare questo comando cio mi deve scrivere sul file quando premo il tasto salva,lo fa,ma solo al secondo click..Come mai?? Ora invece,mi presenta un problema del tipo sulla put quando salvo...mi dice lunghezza del record non valida

Codice sorgente - presumibilmente VB.NET

Public Filename As String
 
Private Sub Form_Load()
Option1.Value = True
Drive1.Drive = "C:"
Dir1.Path = Drive1.Drive
File1.Path = Dir1.Path
Txtpercorso = Dir1.Path
End Sub
 
Private Sub Command1_Click()
If (Option1 = True) Then
Form1.Show
ElseIf (Text1.Text = "") And (Option2 = True) Then
MsgBox ("Immetti nome!!"), vbOKOnly, "      Error"
 
Else: Txtpercorso.Text = Dir1.Path + "\" + Text1.Text + ".dat"
      NomeFile = Txtpercorso.Text
      Form1.Show
End If
End Sub
 
Private Sub Dir1_Change()
File1 = Dir1
Txtpercorso.Text = Dir1.Path + "\" + Filename
End Sub
 
Private Sub Drive1_Change()
Dir1 = Drive1
Txtpercorso.Text = Dir1.Path + "\" + Filename
End Sub
 
Private Sub File1_Click()
Filename = File1
Txtpercorso.Text = Dir1.Path + "\" + Filename
End Sub
 
Private Sub Option1_Click()
Option1.Enabled = True
If (Option1 = True) Then
Text1.Visible = False
File1.Visible = True
End If
End Sub
 
Private Sub Option2_Click()
Option2.Enabled = True
If (Option2 = True) Then
File1.Visible = False
Text1.Visible = True
End If
End Sub
 
 
Private Sub Txtpercorso_Change()
NomeFile = Txtpercorso.Text
End Sub

Codice sorgente - presumibilmente VB.NET

Option Explicit
Private Type Rec
Matricola As String
Nome      As String
Cognome   As String
Classe    As String
End Type
Dim R As Rec
Dim ultimorec As String
 
Private Sub Aggiungi_Click()
Txtnome.Text = ""
Txtcognome.Text = ""
Txtmatricola.Text = ""
Txtclasse.Text = ""
Txtnome.Enabled = True
Txtcognome.Enabled = True
Txtmatricola.Enabled = True
Txtclasse.Enabled = True
End Sub
 
Private Sub Form_Load()
Percorso.Text = NomeFile
Visualizza.Value = True
Open NomeFile For Random As #1 Len = Len(R)
  If LOF(1) = 0 Then
   MsgBox ("  File vuoto !!"), vbOKOnly, " Information !!"
    Else: Caricalistamatricole
    End If
End Sub
 
Sub Caricalistamatricole()
lstmatricole.Clear
 Get #1, 1, R
 While Not (EOF(1))
 lstmatricole.AddItem R.Matricola
 Get #1, , R
Wend
lstmatricole.ListIndex = 0
End Sub
 
Sub Ordinafile()
Dim i As Integer
Dim j As Integer
Dim r1 As Rec
Dim r2 As Rec
ultimorec = LOF(1) / Len(R)
For i = 1 To ultimorec - 1
 For j = i + 1 To ultimorec
  Get #1, i, r1
  Get #1, j, r2
  If (r1.Matricola > r2.Matricola) Then
    Put #1, i, r2
    Put #1, j, r1
  End If
    Next j
    Next i
  End Sub
Sub Disattiva()
Txtnome.Enabled = False
Txtcognome.Enabled = False
Txtmatricola.Enabled = False
Txtclasse.Enabled = False
End Sub
Sub Attiva()
Txtnome.Enabled = True
Txtcognome.Enabled = True
Txtmatricola.Enabled = False
Txtclasse.Enabled = True
End Sub
  
 
Private Sub lstmatricole_Click()
Dim x As Integer
 x = lstmatricole.ListIndex + 1
 Get #1, x, R
 Txtnome.Text = R.Nome
 Txtcognome.Text = R.Cognome
 Txtclasse.Text = R.Classe
 Txtmatricola.Text = R.Matricola
End Sub
 
Private Sub Modifica_Click()
If (Modifica.Enabled = True) And (lstmatricole.ListCount > 0) Then
Attiva
Else:  MsgBox ("Nessuna matricola presente!!"), vbOKOnly, "  Information !!"
       Aggiungi.Value = True
End If
Dim x As Integer
x = lstmatricole.ListIndex + 1
Txtcognome.Text = R.Cognome
Txtnome.Text = R.Nome
Txtclasse.Text = R.Classe
Txtmatricola.Text = R.Matricola
End Sub
 
Private Sub Pulisci_Click()
Txtnome.Text = ""
Txtcognome.Text = ""
Txtmatricola.Text = ""
Txtclasse.Text = ""
End Sub
 
Private Sub prec_Click()
If (lstmatricole.ListCount > 0) Then
If lstmatricole.ListIndex = 0 Then
  lstmatricole.ListIndex = lstmatricole.ListCount - 1
Else: lstmatricole.ListIndex = lstmatricole.ListIndex - 1
End If
Else: MsgBox ("Nessuna matricola presente!!"), vbOKOnly, "  Information !!"
End If
End Sub
 
Private Sub primo_Click()
If (lstmatricole.ListCount > 0) Then
lstmatricole.ListIndex = 0
Else: MsgBox ("Nessuna matricola presente!!"), vbOKOnly, "  Information !!"
End If
End Sub
Private Sub succ_Click()
If (lstmatricole.ListCount > 0) Then
 If lstmatricole.ListIndex = lstmatricole.ListCount - 1 Then
  lstmatricole.ListIndex = 0
Else: lstmatricole.ListIndex = lstmatricole.ListIndex + 1
End If
 Else: MsgBox ("Nessuna matricola presente!!"), vbOKOnly, "  Information !!"
End If
End Sub
 
 
 
 
 
Private Sub ultimo_Click()
If (lstmatricole.ListCount > 0) Then
lstmatricole.ListIndex = lstmatricole.ListCount - 1
Else: MsgBox ("Nessuna matricola presente!!"), vbOKOnly, "  Information !!"
End If
End Sub
 
Private Sub Salva_Click()
  If (Aggiungi.Value = True) Then
   ultimorec = LOF(1) / Len(R)
   R.Matricola = Txtmatricola.Text
   R.Classe = Txtclasse.Text
   R.Cognome = Txtcognome.Text
   R.Nome = Txtnome.Text
   Put #1, ultimorec + 1, R
   Ordinafile
   Caricalistamatricole
   Txtnome.Text = ""
   Txtcognome.Text = ""
   Txtmatricola.Text = ""
   Txtclasse.Text = ""
   Else:
         R.Nome = Txtnome.Text
         R.Cognome = Txtcognome.Text
         R.Classe = Txtclasse.Text
         lstmatricole.AddItem R.Matricola
         Put #1, lstmatricole.ListIndex + 1, R
         lstmatricole.Clear
         Ordinafile
         Caricalistamatricole
         
   End If
End Sub
 
Private Sub Uscita_Click()
Close #1
Form1.Hide
End Sub
 
Private Sub Visualizza_Click()
If (Visualizza.Enabled = True) Then
  Disattiva
End If
End Sub

Ultima modifica effettuata da Giuan il 08/05/2012 alle 18:23