Buongiorno Alessandro,per me non sarà facile darti tante informazioni, perchè sono auto didatta e quindi con molte lacune...cercherò comunque di darti più informazioni possibili e se qualcosa non so come verificarlo...se puoi dirmi come fare ti darò ancora
altre informazioni...per iniziare, secondo quello che mi chiedi:
1) ti servono proprio unicode? e sono tutte stringhe?
-Se non sbaglio l'unicode comprende tutti i caratteri anche quelli stranieri di altre lingue, ed effettivamente...no non mi servono, il progetto è solo per me in italiano.
- Diciamo che molti dei campi sono stringhe ma anche altri non lo sono. (Ho impostato tutto in questo modo pensando che non facesse tutta questa differenza...da profano....mi sembra di capire che innanzitutto dovrei sistemare queste cose,utilizzare
i campi giusti...quali mi consiglieresti per campi testo, numero? ho visto che c'è molte possibilità considerando che non è conosciuta la lunghezza di alcuni campi.
2) quello che non capisco è che operazioni fai e di quali operazioni parliamo in quei 5/6 secondi.
-Intendo che creo un record, immetto i dati nei campi e dal momento che salvo i dati devo attendere minimo 5 ..6 sec prima che l'applicazione abbia finito di fare le operazioni.
3) database è in AUTO CLOSE
- Per quanto riguarda se il database è di questo tipo ...non saprei se mi dai un indizio come poterlo riscontrare ti do anche questa notizia... se intendi le righe nella parte Load del form:
Private Sub frm_Lavorazione_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: questa riga di codice carica i dati nella tabella 'Database_PreventiviDataSet.Table_Preventivi'. È possibile spostarla o rimuoverla se necessario.
Me.Table_PreventiviTableAdapter.Fill(Me.Database_PreventiviDataSet.Table_Preventivi)
'TODO: questa riga di codice carica i dati nella tabella 'Database_GestioneDataSet.Table_Manutenzioni'. È possibile spostarla o rimuoverla se necessario.
Me.Table_ManutenzioniTableAdapter.Fill(Me.Database_GestioneDataSet.Table_Manutenzioni)
'TODO: questa riga di codice carica i dati nella tabella 'Database_ConfigurazioneDataSet.Table_Fornitori'. È possibile spostarla o rimuoverla se necessario.
Me.Table_FornitoriTableAdapter.Fill(Me.Database_ConfigurazioneDataSet.Table_Fornitori)
'TODO: questa riga di codice carica i dati nella tabella 'Database_ConfigurazioneDataSet.Table_Iva'. È possibile spostarla o rimuoverla se necessario.
Me.Table_IvaTableAdapter.Fill(Me.Database_ConfigurazioneDataSet.Table_Iva)
'TODO: questa riga di codice carica i dati nella tabella 'Database_GestioneDataSet.Table_MaterialiUtilizzati'. È possibile spostarla o rimuoverla se necessario.
Me.Table_MaterialiUtilizzatiTableAdapter.Fill(Me.Database_GestioneDataSet.Table_MaterialiUtilizzati)
'TODO: questa riga di codice carica i dati nella tabella 'Database_GestioneDataSet.Table_Lavorazioni'. È possibile spostarla o rimuoverla se necessario.
Me.Table_LavorazioniTableAdapter.Fill(Me.Database_GestioneDataSet.Table_Lavorazioni)
'TODO: questa riga di codice carica i dati nella tabella 'DataBase_GestioneDataSet.Table_Clienti'. È possibile spostarla o rimuoverla se necessario.
Me.Table_ClientiTableAdapter.Fill(Me.Database_GestioneDataSet.Table_Clienti)
frm_Gestione.Principale_ToolStripStatusLabel.Text = "---" 'Predispone il testo della toolstrip
End Sub
3) Se si tratta di più insert in un batch c'è da capire quante sono e come vengono fatte
- Su questo ...mi dispiace ma nonn ho capito cosa vuoi dire :-(
4) Puoi passarci parte del codice che viene eseguito durante l'operazione di salvataggio?
- La routine di salvataggio di una parte è questa:
Private Sub Clienti_SalvaRecord_Click(sender As Object, e As EventArgs) Handles Clienti_SalvaRecord.Click
'---- azzeramento barra inferiore ------------------------------------------
frm_Gestione.azzeramento_BarraNote()
'---------------------------------------------------------------------------
'---- immagazzina la posizione corrente del BindingNavigator Clienti--------
Dim rec As Integer = CInt(Me.Clienti_BindingNavigatorPositionItem.Text)
'--------------------------------------------------------------------------------
'inizia gestione eccezioni e calcolo
'Try
'-------------------- Controlla la presenza dei campi codice -----------------------------
If CodiceCliente_Clienti.Text = "" And ID_Clienti_Clienti.Text = "" Then ' se non sono presenti dati.
'---------------ROUTINE DI CALCOLO CODICE--------------------------------------------
'verifica la presenza dei campi nome e cognome e civico
If NomeClienteTextBox.Text <> "" And CognomeClienteTextBox.Text <> "" And CivicoClienteTextBox.Text <> "" Then
' se sono presenti dati dei campi nome e cognome e civico effettua il calcolo del codice cliente.
'----- Prepara le variabili del calcolo del codice Clienti se sono presenti i campi nome/cognome/civico
id = Clienti_BindingNavigatorPositionItem.Text
campo1 = NomeClienteTextBox.Text.Substring(1, 1)
campo2 = CognomeClienteTextBox.Text.Substring(1, 1)
campo3 = CivicoClienteTextBox.Text.Substring(0, 1)
'scrive e calcola il codice
Me.ID_Clienti_Clienti.Text = (id & campo1 & campo2 & campo3).ToUpper 'ToUpper converte in caratteri maiuscoli
Me.CodiceCliente_Clienti.Text = (id & campo1 & campo2 & campo3).ToUpper 'ToUpper converte in caratteri maiuscoli
' se non sono presenti dati dei campi nome e cognome e civico
' ma sono presenti dati nei campi Ragione sociale, Indirizzo Ragione Sociale e Civico Ragione Sociale.
ElseIf RagioneSocialeClienteTextBox.Text <> "" And IndirizzoRagSocClienteTextBox.Text <> "" And CivicoRagSocClienteTextBox.Text <> "" Then
'prepara le variabili del calcolo del codice Clienti se
'non sono presenti i campi nome/cognome/civico
'prende i valori su Rag.Soc/Ind.R.S./Civico Rag.Soc.
'toglie eventuali punti "."
Dim RSP As String = RagioneSocialeClienteTextBox.Text.Replace(".", "")
'Toglie eventuali spazi" "
Dim RSPS As String = RSP.Replace(" ", "")
'estrae dalla Ragione soc. il valore
campo1 = RSPS.Substring(1, 1) 'RS
'toglie eventuali punti "."
Dim IRSP As String = IndirizzoRagSocClienteTextBox.Text.Replace(".", "")
'Toglie eventuali spazi" "
Dim IRSPS As String = IRSP.Replace(" ", "")
campo2 = IRSPS.Substring(2, 1)
campo3 = CivicoRagSocClienteTextBox.Text.Substring(0, 1) 'civico
id = Clienti_BindingNavigatorPositionItem.Text
'scrive e compone il codice
Me.ID_Clienti_Clienti.Text = (id & campo1 & campo2 & campo3).ToUpper
Me.CodiceCliente_Clienti.Text = (id & campo1 & campo2 & campo3).ToUpper
Else
MessageBox.Show("Riscontratala mancanza di uno o più campi" & (Chr(13)) &
" vuoti indispensabili per genrare il codice del record." & (Chr(13)) &
"Verificare....", "ATTENZIONE!! SALVATAGGIO INTERROTTO.",
MessageBoxButtons.OK, MessageBoxIcon.Information)
'colora i campi importanti
Me.NomeClienteTextBox.BackColor = Color.Beige
Me.CognomeClienteTextBox.BackColor = Color.Beige
Me.IndirizzoClienteTextBox.BackColor = Color.Beige
Me.CivicoClienteTextBox.BackColor = Color.Beige
Me.RagioneSocialeClienteTextBox.BackColor = Color.Beige
Me.IndirizzoRagSocClienteTextBox.BackColor = Color.Beige
Me.CivicoRagSocClienteTextBox.BackColor = Color.Beige
Exit Sub
End If
End If
'------------------------------------------------------------------------------
frm_Gestione.azzeramento_BarraNote() 'azzeramento ToolStripProgressBar
Me.Validate()
Me.Table_ClientiBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database_GestioneDataSet)
Me.Table_ClientiTableAdapter.Fill(Me.Database_GestioneDataSet.Table_Clienti)
'mantiene la barra sul record corrente
Me.Table_ClientiBindingSource.Position = rec - 1
NomeClienteTextBox.Focus()
frm_Gestione.barra_progresso_continua()
frm_Gestione.Principale_ToolStripStatusLabel.Text = "Dati salvati nel database CODE:.. " & Me.CodiceCliente_Clienti.Text
'frm_Gestione.Principale_ToolStripStatusLabel1.Text = Me.CodiceCliente_Clienti.Text
disabilita_campi_code()
Me.NomeClienteTextBox.Focus()
Me.Clienti_SalvaRecord.Enabled = False '--- icona salva clienti
Me.Clienti_Elimina_ToolStripButton.Enabled = True
Me.NomeClienteTextBox.BackColor = Color.White
Me.CognomeClienteTextBox.BackColor = Color.White
Me.IndirizzoClienteTextBox.BackColor = Color.White
Me.CivicoClienteTextBox.BackColor = Color.White
Me.RagioneSocialeClienteTextBox.BackColor = Color.White
Me.CivicoRagSocClienteTextBox.BackColor = Color.White
Me.IndirizzoRagSocClienteTextBox.BackColor = Color.White
End Sub
5) Che versione ed edizione di SQL Server stai utilizzando (è un CE o un LocalDB)?
- Per quanto riguarda la versione di SQL...non so come fare per fartelo sapere, mentre per il tipo di database, questa è la stinga di connessione e se non sbagli è .."LocalDB"
Data Source=(LocalDB)\v11.0;AttachDbFilename="C:\Users\utente\Documents\Visual Studio 2013\Projects\GestionaleDitta\GestionaleDitta\Database_FatturazioneFattura.mdf";Integrated Security=True;Connect Timeout=30
Credo d'aver risposto a tutto ...o quasi....attendo la tua sentenza.....
Grazie
Guido
P.s.
Nel tentativo di modificare il tipo di carattere nelle query ho letto questo:
Nota importante Importante
I tipi di dati ntext, text e image verranno rimossi a partire da una delle prossime
versioni di Microsoft SQL Server. Evitare di utilizzare questi tipi di dati in un
nuovo progetto di sviluppo e prevedere interventi di modifica nelle applicazioni
che attualmente li utilizzano.
Utilizzare nvarchar(max), varchar(max) e varbinary(max) in alternativa.
http://msdn.microsoft.com/it-it/library/ms187993.aspx
Ho modificato i campi delle tabelle per vedere se c'è qualche cambiamento:
CREATE TABLE [dbo].[Table_Lavorazioni] (
[Id_Lavorazione] INT IDENTITY (1, 1) NOT NULL,
[CodiceLavorazioni] VARCHAR (10) NULL,
[CodiceCliente] VARCHAR (10) NULL,
[IDPreventivo] VARCHAR (10) NULL,
[IDDisegno] VARCHAR (10) NULL,
[NomeProprietario] VARCHAR (50) NULL,
[CognomeProprietario] VARCHAR (50) NULL,
[IndirizzoProprietario] VARCHAR (50) NULL,
[CivicoProprietario] VARCHAR (10) NULL,
[ComuneProprietario] VARCHAR (50) NULL,
[ProvinciaProprietario] CHAR (2) NULL,
[CapProprietario] NUMERIC (5) NULL,
[SettoreProprietario] VARCHAR (50) NULL,
[RagioneSocialeProprietario] VARCHAR (50) NULL,
[IndirizzoRagSocProprietario] VARCHAR (50) NULL,
[CivicoRagSocProprietario] VARCHAR (10) NULL,
[ComuneRagSocProprietario] VARCHAR (50) NULL,
[ProvinciaRagSocProprietario] CHAR (2) NULL,
[CapRagSocProprietario] NUMERIC (5) NULL,
[CodFiscaleProprietario] NUMERIC (16) NULL,
[PIvaProprietario] NUMERIC (11) NULL,
[TelefonoProprietario] NUMERIC (15) NULL,
[CellulareProprietario] NUMERIC (15) NULL,
[FaxProprietario] NUMERIC (15) NULL,
[EmailProprietario] VARCHAR (50) NULL,
[SitoProprietario] VARCHAR (50) NULL,
[NoteProprietario] VARCHAR (500) NULL,
[IndirizzoLavoro] VARCHAR (50) NULL,
[CivicoLavoro] VARCHAR (10) NULL,
[ComuneLavoro] VARCHAR (50) NULL,
[ProvinciaLavoro] CHAR (2) NULL,
[CapLavoro] NUMERIC (5) NULL,
[TipoFattura] VARCHAR (50) NULL,
[Piano] VARCHAR (5) NULL,
[Interno] VARCHAR (5) NULL,
[Scala] VARCHAR (5) NULL,
[c1] VARCHAR (50) NULL,
[c2] VARCHAR (50) NULL,
[c3] VARCHAR (50) NULL,
[c4] VARCHAR (50) NULL,
[c5] VARCHAR (50) NULL,
PRIMARY KEY CLUSTERED ([Id_Lavorazione] ASC)
);
ma non c'è un cambiamento apprezzabile...
Ho effettuato un controllo...ho notato che quando l'esecuzione passa
Me.Validate()
Me.Table_LavorazioniBindingSource.EndEdit()
---> Me.TableAdapterManager.UpdateAll(Me.Database_GestioneDataSet)
sul punto evidenziato qui si genera il rallentamento, quindi penso che sia proprio sul database.....o le tabelle....non so..
-------------------------------------------------------------------------------------------------------------------------------
Ho fatto una seconda prova, ho provato a modificare il codice di salvataggio:
Me.Validate()
Me.Table_LavorazioniBindingSource.EndEdit()
'Me.TableAdapterManager.UpdateAll(Me.Database_GestioneDataSet)
Me.Table_LavorazioniTableAdapter.Update(Me.Database_GestioneDataSet.Table_Lavorazioni)
funziona il salvataggio...ma i tempi sono gli stessi....
[SQL Server] Rallentamento nel salvataggio dati del database
