[VB.Net] Aggiornare dbgrid a seguito nuova query

[Sypher]

Originariamente inviato da brunok
dagli strumenti (dati) seleziono gli oggetti, connessione, comando, sqldataadapter, creo un dataset e inserisco l'oggetto grid.
poi eseguo, se vuoi ti mando la videata.

Ma perchè non genera il nuovo set di dati conla query eseguita ?

Posta il codice!
Per grid intendi il DataGrid no?

[brunok]

' qui carico il 1°dataset, che contiene tutti irecord della tabella
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SqlDataAdapter1.Fill(DataSet11)
DataGrid1.Focus()
End Sub


' nell'evento change del text vorrei aggiornare il dataset
' ma non va

Private Sub TextBox1_TextChanged
Dim nuova_stringa As String
If Trim(TextBox1.Text) <> "" Then
nuova_stringa = " SELECT id, FOGLIO, QUADR, ORIENT, PUNTO, NOME, ORDINE, LATIT, LONGIT, NGAUSS, EGAUSS, XCAT, YCAT, QUOTA, NOTE, F15, F16 FROM PUNTRIG where nome like '%" & TextBox1.Text & "'"

If Me.SqlConnection1.State = ConnectionState.Closed Then
Me.SqlConnection1.Open()
End If

Dim mySqlDataAdapter As New System.Data.SqlClient.SqlDataAdapter(nuova_stringa , SqlConnection1)
mySqlDataAdapter.Fill(DataSet11, "PUNTRIG")

DataGrid1.DataSource = DataSet11
DataGrid1.Refresh()

End If
End Sub

sempre grazie.

" non s'agattara dinaj po pagai s'onori" che tradotto diventa
" non ci sono mai abbastanza denari per pagare l'onore"

[brunok]

Originariamente inviato da brunok
' qui carico il 1°dataset, che contiene tutti irecord della tabella
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SqlDataAdapter1.Fill(DataSet11)
DataGrid1.Focus()
End Sub


' nell'evento change del text vorrei aggiornare il dataset
' ma non va

Private Sub TextBox1_TextChanged
Dim nuova_stringa As String
If Trim(TextBox1.Text) <> "" Then
nuova_stringa = " SELECT id, FOGLIO, QUADR, ORIENT, PUNTO, NOME, ORDINE, LATIT, LONGIT, NGAUSS, EGAUSS, XCAT, YCAT, QUOTA, NOTE, F15, F16 FROM PUNTRIG where nome like '%" & TextBox1.Text & "'"

If Me.SqlConnection1.State = ConnectionState.Closed Then
Me.SqlConnection1.Open()
End If

Dim mySqlDataAdapter As New System.Data.SqlClient.SqlDataAdapter(nuova_stringa , SqlConnection1)
mySqlDataAdapter.Fill(DataSet11, "PUNTRIG")

DataGrid1.DataSource = DataSet11
DataGrid1.Refresh()

End If
End Sub

sempre grazie.

" non s'agattara dinaj po pagai s'onori" che tradotto diventa
" non ci sono mai abbastanza denari per pagare l'onore"

[Sypher]

Prova questo:

Private Sub TextBox1_TextChanged(object sender, System.EventArgs e)
Dim nuova_stringa As String
If Trim(TextBox1.Text) <> "" Then
nuova_stringa = " SELECT id, FOGLIO, QUADR, ORIENT, PUNTO, NOME, ORDINE, LATIT, LONGIT, NGAUSS, EGAUSS, XCAT, YCAT, QUOTA, NOTE, F15, F16 FROM PUNTRIG where nome like '%" & TextBox1.Text & "'"

If Me.SqlConnection1.State = ConnectionState.Closed Then
Me.SqlConnection1.Open()
End If
DataSet11.Reset()
Dim mySqlDataAdapter As New System.Data.SqlClient.SqlDataAdapter(nuova_stringa , SqlConnection1)
mySqlDataAdapter.Fill(DataSet11, "PUNTRIG")

DataGrid1.DataSource = DataSet11
DataGrid1.Refresh()

End If
End Sub