form.show() vb2008

[jonnyx91]

FormClienti.Show() scritto nel codice della formDati, dovrebbe aprire la form Clienti.
Invece la form si apre, ma finite le istruzioni della formDati la form si chiude.

codice:
Private Sub FormDati_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stringa As String

stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & App.Path & "\" & "Registrazione.mdb;Jet OLEDBatabase Password=jh432gt65fr9p2ls6;"

cn = New ADODB.Connection
rs = New ADODB.Recordset

cn.Open(stringa)
rs.Open("SELECT * FROM Dati", cn, 1)

If (rs.BOF = True) Then
Unload(Me)
frmAnagrafica.Show()
Else
.....
End Sub

[Zlatan8.]

Beh, prova a mettere un .enabled dopo il .show...

[jonnyx91]

Ho provato con il debug.
Si apre la form, ma poi mi si chiude quando finisco di eseguire le funzioni della form principale.

[oregon]

Ma sei sicuro che il programma viene compilato?

In VB.NET non puoi scrivere

Unload(Me)

Guarda che se devi trasformare dei programmi VB6 in VB.NET, non ha senso che tu lo faccia postando sul forum ... VB.NET e' molto diverso da VB6 e il suo uso presuppone un certo studio del linguaggio (anche teorico, sui libri) per acquisire quelle cognizioni di base sull'OOP che tu non hai ancora.

[jonnyx91]

Si il programma viene compilato.
Lo eseguo passo passo con il debug e funziona tutto, tranne la show e la storia dei database di cui abbiamo parlato nell'altra discussione.
La form principale si chiude, si apre la form secondaria che però subito dopo si richiude e non rimane visualizzata come dovrebbe.

[oregon]

Con VB.2008 la riga

Unload(Me)

deve darti un errore ... non puoi compilarlo ...

[jonnyx91]

Si hai ragione.
Ho sbagliato a copiare la riga.
Colpa mia.
Me.Close() è la riga di codice che ho inserito e che mi chiude correttamente la form principale.

[oregon]

Quindi ... ?

Adesso quale codice stai utilizzando ?

[jonnyx91]

Private Sub FormDati_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stringa As String

stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & App.Path & "\" & "Registrazione.mdb;Jet OLEDBatabase Password=;"

cn = New ADODB.Connection
rs = New ADODB.Recordset

cn.Open(stringa)
rs.Open("SELECT * FROM Dati", cn, 1)

If (rs.BOF = True) Then
Me.Close
frmAnagrafica.Show()
Else
.....
End Sub

[jonnyx91]

Questo è il codice che sto usando adesso.