Viasual basic + acces

[matty1984]

Ciao a tutti, ho creato un piccola progetto che mi legge i dati di un data base fatto su acces. Il problemma e che vorrei inserire una funzione che quando il dato non viene trovato mi compare la scritta (dfato non trovato). Qualcuno sa come migliorare questo codice? mi sa dare qualche consiglio? sotto mettero il codi che ho scritto fino ad ora:



Public Class Form2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DATADataSet.Tabella1' table. You can move, or remove it, as needed.
Me.Tabella1TableAdapter.Fill(Me.DATADataSet.Tabell a1)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""

End Sub
Private Sub Form2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
If e.KeyData = Keys.Enter Then Me.Button1.PerformClick()
End Sub

Private Sub Tabella1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.Tabella1BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DATADataSet)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Testo As String
Testo = TextCerca.Text
Me.Tabella1TableAdapter.FillBycodicef(DATADataSet. Tabella1, "%" + Testo + "%")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextCerca.Text = ""
TextCerca.Focus()
End Sub

End Class

[SirJo]

Private Sub Form2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyData = Keys.Enter Then Me.Button1.PerformClick()
    End Sub

Orribile !!
Mi spieghi cosa dovrebbe fare questa routine ??
Se è come penso, quando l'utente preme il tasto "invio", viene simulato il click del pulsante Button1. E' così ??
Se la risposta è sì, non si fa così.
Cancella completamente quella routine, vai sulle proprietà del form, e la proprietà "AcceptButton" settala a "Button1"

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

Orribile !!
Per uscire da un programma non si dovrebbe mai usare END, sconsigliatissimo da oltre 20 anni !!
Se questa è la tua form principale, usa Me.Dispose(), altrimenti setta un valore di ritorno usando Me.DialogResult che poi intercetti sul form chiamante e da lì esci.

Sergio

[matty1984]

E' il mio primo progetto, comunque grazie per il consiglio. Riguardante la notifica del campo non trovato mi sai dare qualche consiglio? questro progrmma contiene vari nnominativi ecc... io inserendo il codice fiscale in una text mi trova il nominativo dandomi nome cognome ecc...

[renygade]

E' il mio primo progetto, comunque grazie per il consiglio. Riguardante la notifica del campo non trovato mi sai dare qualche consiglio? questro progrmma contiene vari nnominativi ecc... io inserendo il codice fiscale in una text mi trova il nominativo dandomi nome cognome ecc...

Ciao
Ma il codice l'hai scritto tu? Sai cosa fa, vero? Comunque rispetto al tuo quesito, basta che nella sub che esegue la query al database

Me.Tabella1TableAdapter.FillBycodicef(DATADataSet. Tabella1, "%" + Testo + "%")

verifichi quanti righe contiene la tabella1. (proprieta rows.count). Se sono 0, vuol dire che la query non ha soddisfatto nessuna richiesta e il dataset risulta vuoto perché nel db non c'è nessuno con quel codice fiscale...

[matty1984]

Grazie per la risposta :-)
Mi puoi aiutare con il codice? questi codici li ho assemblati prendendo varie informazioni da internet, io di visual basic sono alle primissime armi.

[renygade]

Grazie per la risposta :-)
Mi puoi aiutare con il codice? questi codici li ho assemblati prendendo varie informazioni da internet, io di visual basic sono alle primissime armi.

Beh.. sarebbe il caso che tu cominciassi a studiare un po'... Non puoi pensare di fare applicazioni basandoti solo sul copia/incolla...
Comunque parti da qua:

If ds.Tables(0).Rows.Count > 0 Then

E poi usi una messagebox per far apparire un form di avvertimento con scritto quello che vuoi tu