ho creato questo codice per vedere sql su richiesta su datagridview, vorrei modificare sql per far si che anzichè vedere tutta la tabella solo dei dati filtrati , come posso modificare il codice?sql con l'apice è il codice che vorrei lanciare
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.Click
Button2.Enabled = True
Dim item = TextBox1.Text
Dim con1 As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=D:\db.mdb")
Dim sql As String
'sql = "SELECT Elenco.id, Elenco.domanda, Elenco.durata_ore, Elenco.durata_min, Elenco.durata_sec, Elenco.dimensione, Elenco.Risposta, Elenco.dataaggiunto FROM Elenco.domanda Like = '*" & item & "*' "
sql = "SELECT Elenco.id, Elenco.domanda, Elenco.durata_ore, Elenco.durata_min, Elenco.durata_sec, Elenco.dimensione, Elenco.Risposta, Elenco.dataaggiunto FROM Elenco"
Try
Dim adapter As New OleDbDataAdapter(sql, con1)
' Gets the records from the table and fills our adapter with those.
Dim dt As New DataTable("Elenco")
adapter.Fill(dt)
' Assigns our DataSource on the DataGridView
dgv1.DataSource = dt
Dim sql1 As String
sql1 = "SELECT * FROM elenco"
Dim adapter1 As New OleDbDataAdapter(sql1, con1)
Dim cmd1 As New OleDbCommand(sql1, con1)
'Dim dt1 As New DataTable("users")
con1.Open()
Dim myreader As OleDbDataReader = cmd1.ExecuteReader
myreader.Read()
con1.Close()
Catch Ex As Exception
MessageBox.Show("Impossibile connettersi al database!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
con1.Close()
End Try
E
Rispondi quotando
