Buondi
sto impazzendo e non capisco perchè non va ... cioè ho una textbox e una combobox da cui ricavo una parola ed un id di un numero che andrà associato alla parola scritta tramite aggiungi_button
prima però si deve controllare se esiste gia quella parola ... con controlla_button .. il problema è che la query di controllo_esistenza.commandtext="query..." mi da sempre risultato 0 ... PERCHE'?????
codice:
Imports System.Data
Imports System.Data.OleDb
Public Class Parole_Chiavi
'Creo una connessione con il database
Dim Connessione As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\smspanel.mdb;Persist Security Info=True")
'Creo una nuova istanza di DataAdapter
Dim DataAdapter As New OleDbDataAdapter
'Creo una nuova istanza di DataSet
Dim DataSet As New DataSet
'Creo un nuovo DataView
Dim DataView As New DataView
'Creo un nuova istanza currency manager per controllarlo esplicitamente
Dim CrManager As CurrencyManager
Private Sub Parole_Chiavi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Codice non rilevante....
End Sub
Private Sub Aggiungi_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Aggiungi_button.Click
Codice non rilevante...
End Sub
Private Sub Controlla_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Controlla_button.Click
'Mi prendo l'id della combobox
Dim id_numero As Integer = Numero_combobox.SelectedValue
'Mi prendo il numero di telefono
Dim Parola_Chiave As String = ParolaChiave_textbox.Text
If Parola_Chiave = "" Then
Errore_label.Text = "Hai lasciato il campo ''Parola Chiave'' Vuoto, correggere prima di procedere"
Else
'Procedo ad aggiungere il nuovo record
Dim Controllo_eistenza As OleDbCommand = New OleDbCommand
Controllo_eistenza.Connection = Connessione
Controllo_eistenza.CommandText = "SELECT * FROM chiavi WHERE chiave LIKE '" & Parola_Chiave & "' "
'Apriamo la connessione
Connessione.Open()
'Eseguiamo e vediamo se funziona
Try
Controllo_eistenza.ExecuteNonQuery()
Catch Eccezione As OleDb.OleDbException
MessageBox.Show(Eccezione.Message)
End Try
Connessione.Close()
End If
End Sub
End Class