venerdì 22 gennaio 2021

SQL ottenere il valore MAX di più colonne


ecco il testo sql

select   cognome , nome

,(select max(v) from ( values (cognome) , (nome) )  AS MyTable(v) ) as tt

from persone 

martedì 18 febbraio 2020

Cannot resolve the collation conflict between "Latin1_General_CI_AS" and "SQL_Latin1_General_CP1_CI_AS" in the equal to operation.

SOLUZIONE

SELECT   *
FROM         tabella1
inner  JOIN  tabella2
ON tabella1.campoA COLLATE Latin1_General_CI_AS = tabella12.campo2


giovedì 5 settembre 2019

VB6 - caricare più istanze dello stesso form

Private Sub Command1_Click()
Dim newForm As Form

  Set newForm = New Form2
  newForm.Visible = True
 
 
End Sub

Private Sub Command2_Click()

  Me.Cls
  For i = 0 To Forms.Count - 1
    Me.Print Forms(i).Name, Forms(i).Visible, Forms(i).Label1.Caption
  Next
 
End Sub

Private Sub Command3_Click()

  totwidth = Screen.Width
  For i = 0 To Forms.Count - 1
    Forms(i).Left = totwidth / Forms.Count * i
    Forms(i).Width = totwidth / Forms.Count
    Forms(i).Top = 0
  Next
 
End Sub

Private Sub Form_Unload(Cancel As Integer)
  End
End Sub




sabato 31 agosto 2019

svuotare cache android (su honor 6a)


  1. impostazioni
  2. memoria e archiviazione
  3. pulizia archivio
  4. premi il tasto pulisci

martedì 7 maggio 2019

windows 10 va in sospensione

vedi link
Risolvere Windows 10 va in sospensione da solo dopo pochi minuti
praticamente  eseguire il comando "powercfg.cpl"
selezionare "specifica comportamento pulsanti di alimentazione"
togliere la spunta su "attiva avvio rapido"


giovedì 21 marzo 2019

Attivare eventi della rotellina del mouse nell'IDE di Visual Basic 6.0

Per scrivere questi appunti ho fatto riferimento al link
https://support.microsoft.com/it-it/help/837910/mouse-wheel-events-do-not-work-in-the-visual-basic-6-0-ide


Dal link di cui sopra cliccae su "Download del pacchetto VB6MouseWheel.EXE"

Lanciare il file appena scricato il quale scompatta il pacchetto. La nuova cartella ottenuta (forse è meglio) copiarla in c:\windows\sistem32

Eseguire CMD come amministratore

da windows\system32 lanciare da dos il comando ""regsvr32 <percorso>\VB6IDEMouseWheelAddin.dll"

aprire vb6

dal menu aggiunte scegliere gestione aggiunte

dalla finestra che appare cliccare sul
MouseWheel Fix.
fare click sulla casella di controllo Caricato/scaricato e anche la casella di controllo Carica all'avvio .