Qery con datagrid

domenica 28 ottobre 2012 - 16.29

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Carmelo1965 Profilo | Junior Member

163 messaggi | Data Invio: dom 28 ott 2012 - 16:29

Ciao a Tutti, ho questo problema: Quando faccio la ricerca con tutto il Database mi apre nel datagrid in un'altro Form l'anagrafica giusta, quando faccio una ricerca Avanzata per anno ect.. mi apre sempre l'anagrafica numero due. Potete dirmi come posso fare ad aprire una anagrafica in una datagrid anche con ricerca avanzata.
P. S. la ricerca mi esce corretta. Vi inserisco quello che ho scritto nel corpo del Datagrid :
Private Sub Dgv1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Dgv1.CellContentClick
Dim con As New OleDb.OleDbConnection
Dim sql As String
Dim ds As New DataSet
Dim rs As New ADODB.Recordset
Dim da As OleDb.OleDbDataAdapter
Dim bs As New BindingSource
'con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =C:\Esempi Visual Basic\Access\ContattiDataBase1.mdb"
con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =C:\Passati\ContattiDataBase1.mdb"
Dgv1.Visible = True
Contatto.Show()
con.Open()
sql = "SELECT * FROM Passati where Azienda = '*?'"
ds = New DataSet("Passati")

da = New OleDb.OleDbDataAdapter(sql, con)

' da.Fill(ds, "Passati")

'Si crea la BindingSource

bs = New BindingSource()
bs.DataSource = ds

'bs.DataMember = "Passati"

Contatto.BsCont.Position = BsCont1.Position
If BsCont1.Position = BsCont1.Count = 1 Then
Beep()
Else
BsCont1.Position += 1
End If
UpdateDisplay()

con.Close()

'Questo alla DatagridView
Grazie mille
Ciao, ringrazio tutti per la vostra pazienza...

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !