si grazie risolto..in parte...perchè se ho tot record mi visualizza solo tot-1?posto codice Vb 2008 se devo aprire un altro topic nella giusta sezione ditemelo
codice:
Dim ObjCommand As OleDbCommand
Dim Ultimo_ID
'Connessione
cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= DbCarrara.accdb"
cnn.Open()
ObjCommand = New OleDbCommand("SELECT TOP 1 * FROM Cliente ORDER BY IDcliente DESC", cnn)
Ultimo_ID = ObjCommand.ExecuteScalar()
'Query
sql = "SELECT Cliente.Cognome, Cliente.Nome, Cliente.Indirizzo, Cliente.Comune, Cliente.[Cognome Defunto], Cliente.[Nome Defunto], Cliente.[Zona Interrato], Cliente.[Posizione Nro], Servizio.NomeServizio, Servizio.Importo FROM Servizio INNER JOIN (Cliente INNER JOIN Cliente_Servizio ON Cliente.IDcliente = Cliente_Servizio.Cliente) ON Servizio.CodServizio = Cliente_Servizio.Servizio WHERE Cliente.IDcliente =" & Ultimo_ID
'Dataset
dts = New DataSet("DbCarrara")
'DataAdapter
dtp = New OleDb.OleDbDataAdapter(sql, cnn)
dtp.Fill(dts, "DbCarrara")
'BindingSource
bds = New BindingSource()
bds.DataSource = dts
bds.DataMember = "DbCarrara"
'DataGridView
DataGridView1.DataSource = bds
cnn.Close()
End Sub
nel datagridview mi visualizza sempre un record in meno..come mai?