Carta hype, scaricare giacenza media

 Premi sui tre pallini in basso a destra

Premi su "profilo" in alto a destra

Premi su "Giacenza media" (circa a metà pagina, si trova nella sezione Profilo personale)

Visual Studio, aprire file excel

 Sui riferimenti aggiungere "Microsoft Excel 16.0 Object Library"

codice

Public Class Form1

    Dim oExcel As Microsoft.Office.Interop.Excel.Application

    Dim oBook As Microsoft.Office.Interop.Excel.Workbook

    Dim oSheet As Microsoft.Office.Interop.Excel.Worksheet

    Dim raXL As Microsoft.Office.Interop.Excel.Range

    Private Sub BtnApriExcel_Click(sender As Object, e As EventArgs) Handles BtnApriExcel.Click

        ' Start Excel and get Application object.

        oExcel = CreateObject("Excel.Application")

        oExcel.Visible = True

        ' open a workbook.

        oBook = oExcel.Workbooks.Open("D:\DiscoD\pgmVS\Gru_pcs_2_D13\elencoPCSD13.xlsx")

        oSheet = oBook.ActiveSheet

        ' Start Excel and get Application object.

        oExcel = CreateObject("Excel.Application")

        oExcel.Visible = True

        ' Add a new workbook.

        oBook = oExcel.Workbooks.Add

        oSheet = oBook.ActiveSheet

        ' Add table headers going cell by cell.

        oSheet.Cells(1, 1).Value = "testo"

        ' Format A1:D1 as bold, vertical alignment = center.

        oSheet.Range("A1", "I1").Font.Bold = True

    End Sub

End Class

VB6 MsFlexGrid ordinamento colonna

 vedi i seguenti link

https://www.vbforums.com/showthread.php?150582-Sorting-Dates-in-MSFlexGrid

http://helpcentral.componentone.com/docs/vsflexgrid8/sortproperty.htm

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 

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

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

svuotare cache android (su honor 6a)

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