Qualche tempo fa, ho letto in un forum che qualcuno cecava una soluzione per riazzerare il campo contatore, dopo aver eliminato il contenuto di una tabella in SQL Server.
E' veramente molto semplice!
... è anche possibile fare ripartire il contatore da un certo numero o dal numero max che ha raggiunto.
Si pensi al caso in cui si voglia ripristinare una tabella dopo aver eliminato un certo numero di record.

Supponiamo che Amico sia il nome della nostra tabella e IdAmico quello del campo contatore.
Analizziamo tutte le situazioni:

1 - Fare ripartire da 1 il contatore:

                                  DBCC CHECKIDENT ('Amico', RESEED, 1);

2 - Fare ripartire il contatore da un certo valore (Esempio 20):

                                  DBCC CHECKIDENT ('Amico', RESEED, 20);

3 - Fare ripartire il contatore dal massimo valore raggiunto (ovviamente se la tabella non è vuota!!):

                DECLARE @MaxVal int SET @MaxVal = (SELECT MAX(IdAmico) FROM Amico)

                DBCC CHECKIDENT ('Amico', RESEED, @MaxVal)

Ovviamente per esguire questo monando bisogna avere tutte le autorizzazioni sul database, altrimenti il darà nessun risultato.

Ciao

Ivan

Come tutti i primi programmi anche io ho voluto provare il mitico "Hello World!!", ovviamente con un qualcosina in più ed un po' più personale.

Ricapitoliamo un po' la situazione:

- VSTO 2005 (ce lo!);

- SDK MOBILE 5 (ce lo!);

- POCKET PC (ce lo!);

- SQL 2005 CE (ce lo!).

Penso proprio di avere tutto (finalmente!!!), iniziamo.

Avviamo VSTO 2005 -> Nuovo progetto -> Seleziono Smart Device -> Pocket PC 2003 -> OK

e si apre quella che sarà la mia prima applicazione su PCC.

Cosi mi basta :

1 - Inserire nella proprietà Text del Form "Saluti";

2 - Trascinare sul Form due Label ed inserire nella Proprietà Text della prima la scritta "CIAO!!!" in quella della seconda "" (vuoto!!);

3 - Inserisco un Button e cambio la proprietà Text in "Clikka".

Passiamo poi alla modalita codice ed inseriamo questo:

Public Class Form1

            Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

                                    Handles Button1.Click

                     If Button1.Text <> "Esci" Then

                            Label1.Text = "NAPPIO!!!"

                            Label2.Text = "Da una vita che sogno di farlo!!!!!"

                            Button1.Text = "Esci"

                     Else

                            Me.Dispose()

                     End If

            End Sub

End Class

FANTASTICO!!!

Ecco cosa ottengo:

- Prima

- Dopo

Ciao

Ivan

La procedura che riporto di seguito è sicuramente il modo più facile per leggere i dati da un foglio Excel.

Una volta letti possono essere memorizzati in un database o utilizzati per qualsiasi motivo.

Per prima cosa Bisogna addizionare al progetto la libreria Microsoft Excel 11.0 Object Library. In questo mod

1 – Cliccare col tasto destro sul nome del progetto nella finestra Solution Explorer;

2 – Selezionare Add Reference …;

3 – Selezionare il Tab COM;

4 – Trovare ed aggiungere la libreria Microsoft Excel 11.0 Object Library.

Passiamo poi al codice:

Dim WithEvents xlBook As Excel.Workbook

Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button1.Click

Set xlBook = GetObject("C:\Esempio.xls")

xlBook.Application.Visible = False

xlBook.Windows(1).Visible = False

Dim Righe As Integer

Dim Colonne As Integer

'Il foglio Excel contiene tre righe e tre colonne

For Righe = 1 To 3

For Colonne =1 to 3                    

                            msgbox xlBook.Worksheets(1).Cells(Righe, Colonne).Value

                  next Colonne

next Righe

end sub

Ciao

Ivan