Questo topic e' stato chiuso dal moderatore.
25/07/09 14:23
Swanny
Buongiorno a tutti, sono nuovo nel forum e del linguaggio di programmazione in VB. Vi parlo da autodidatta che sta cercando di imparare qualcosa su questo linguaggio (ho acquistato un manuale di programmazione in VB6 da cui sto cercando di imparare qualcosa), purtroppo non posso usare il più aggiornato VB.NET date le scarse qualità del mio PC. Vi espongo il problema...sto cercando di creare un database dove catalogare i numerosi libri che possiedo e per far ciò ho creato un database in access (lista.mdb) convertendolo in versione95 (la versione 2003 non era supportata da VB6) con una tabella (lista) e 3 campi:
1. Titolo --> Testo
2. Anno --> Testo
3. Promo_Trama --> Memo
Poi un form in VB6 con l'interfaccia composta da 3 textbox, 3 label, 3 bottoni, 1 controllo data, 1 commondialog:
TextBox: txttitolo, txtanno, txttrama;
Label: lbltitolo, lblanno, lbltrama;
Bottoni: cmdsalva, cmdelimina, cmdesci.
Data: data1
Commondialog: CommonDialog1
Sono riuscito a collegare il DB al form tramite il controllo DATA1 e le sue proprietà DATABASENAME e RECORDSOURCE, e cercando su google ad effettuare la funzione salva ed elimina.
SALVA:
Private Sub cmdsalva_Click()
Data1.Recordset.AddNew
End Sub
ELIMINA:
Private Sub cmdelimina_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Alla fine ho creato il progetto in exe tramite il menù File->Crea progetto.exe
Ho messo il database e l'exe in una cartella e l'ho spostato da desktop a documenti così da metterlo da parte. Però appena lanciato l'exe non mi riesce di salvare il contenuto nel db poichè ho spostato tutto dalla sua posizione originaria, c'è un modo per far si che dopo lo spostamento e la creazione dell'exe il programma funzioni ugualmente?
Info: mi hanno fatto vedere un metodo + semplice per la creazione del db tramite il visual data manager di VB6, sembra si tutto automatico, solo che con questa procedura non riesco a salvare in un file di testo il contenuto di una determinata textbox, per farlo dovrei usare:
Private Sub cmdsalvatxt_Click()
Open "percorso\fileprova.txt" For Output As #1
Print #1, txttitolo.text
Close #1
End Sub
solo che in fase di debug mi da questo errore: impossibile trovare il metodo o il membro dei dati, evidenziandomi la dicitura .text alla riga prin#1. che dovrei fa?
Spero di non pretendere troppo, grazie a chi saprà aiutarmi.
1. Titolo --> Testo
2. Anno --> Testo
3. Promo_Trama --> Memo
Poi un form in VB6 con l'interfaccia composta da 3 textbox, 3 label, 3 bottoni, 1 controllo data, 1 commondialog:
TextBox: txttitolo, txtanno, txttrama;
Label: lbltitolo, lblanno, lbltrama;
Bottoni: cmdsalva, cmdelimina, cmdesci.
Data: data1
Commondialog: CommonDialog1
Sono riuscito a collegare il DB al form tramite il controllo DATA1 e le sue proprietà DATABASENAME e RECORDSOURCE, e cercando su google ad effettuare la funzione salva ed elimina.
SALVA:
Private Sub cmdsalva_Click()
Data1.Recordset.AddNew
End Sub
ELIMINA:
Private Sub cmdelimina_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Alla fine ho creato il progetto in exe tramite il menù File->Crea progetto.exe
Ho messo il database e l'exe in una cartella e l'ho spostato da desktop a documenti così da metterlo da parte. Però appena lanciato l'exe non mi riesce di salvare il contenuto nel db poichè ho spostato tutto dalla sua posizione originaria, c'è un modo per far si che dopo lo spostamento e la creazione dell'exe il programma funzioni ugualmente?
Info: mi hanno fatto vedere un metodo + semplice per la creazione del db tramite il visual data manager di VB6, sembra si tutto automatico, solo che con questa procedura non riesco a salvare in un file di testo il contenuto di una determinata textbox, per farlo dovrei usare:
Private Sub cmdsalvatxt_Click()
Open "percorso\fileprova.txt" For Output As #1
Print #1, txttitolo.text
Close #1
End Sub
solo che in fase di debug mi da questo errore: impossibile trovare il metodo o il membro dei dati, evidenziandomi la dicitura .text alla riga prin#1. che dovrei fa?
Spero di non pretendere troppo, grazie a chi saprà aiutarmi.
aaa