RaouL_BennetH
02-07-2008, 00:24
Ciao a tutti :)
ecco il codice incriminato:
Try
Dim db As New DbClass
db.OpenConnection()
Dim adapter As New OleDb.OleDbDataAdapter
Dim sSql As String = "SELECT t1.Valore, t1.Colore FROM tabella as t1 " & _
"WHERE @parametro1 LIKE @parametro2"
Dim selectCommand As New OleDb.OleDbCommand(sSql, db.ActiveConnection)
adapter.SelectCommand = selectCommand
selectCommand.Parameters.Add(New OleDb.OleDbParameter("@parametro1", OleDb.OleDbType.VarChar).Value = txtValore.Text)
selectCommand.Parameters.Add(New OleDb.OleDbParameter("@parametro2", OleDb.OleDbType.VarChar).Value = txtColore.Text)
Dim ds As New DataSet
adapter.Fill(ds, "table")
Dim bs As New BindingSource
bs.DataSource = ds.Tables("table")
bNav.BindingSource = bs
dgView.AutoGenerateColumns = False
dgView.DataSource = bs
GridProperty()
db.ActiveConnection.Close()
Catch ex As Exception
End Try
Beh.. qualsiasi cosa gli dia in pasto come parametri.. se ne frega e non mi trova un beneamato :cry:
:help:
ecco il codice incriminato:
Try
Dim db As New DbClass
db.OpenConnection()
Dim adapter As New OleDb.OleDbDataAdapter
Dim sSql As String = "SELECT t1.Valore, t1.Colore FROM tabella as t1 " & _
"WHERE @parametro1 LIKE @parametro2"
Dim selectCommand As New OleDb.OleDbCommand(sSql, db.ActiveConnection)
adapter.SelectCommand = selectCommand
selectCommand.Parameters.Add(New OleDb.OleDbParameter("@parametro1", OleDb.OleDbType.VarChar).Value = txtValore.Text)
selectCommand.Parameters.Add(New OleDb.OleDbParameter("@parametro2", OleDb.OleDbType.VarChar).Value = txtColore.Text)
Dim ds As New DataSet
adapter.Fill(ds, "table")
Dim bs As New BindingSource
bs.DataSource = ds.Tables("table")
bNav.BindingSource = bs
dgView.AutoGenerateColumns = False
dgView.DataSource = bs
GridProperty()
db.ActiveConnection.Close()
Catch ex As Exception
End Try
Beh.. qualsiasi cosa gli dia in pasto come parametri.. se ne frega e non mi trova un beneamato :cry:
:help: