APPUNTI: settembre 2013

giovedì 26 settembre 2013

[VB6] Sapere con VB6 la versione di un file exe

Public Function versionefile(sPath As String, sFileName As String) As String
Dim oFolder As Object
Dim oItem As Object

Set oFolder = CreateObject("Shell.Application").NameSpace(sPath & "")
For Each oItem In oFolder.Items
Debug.Print oItem.Name
If LCase(oItem.Name) = LCase(sFileName) Then
versionefile = oFolder.GetDetailsOf(oItem, 39)
End If
Next
Set oFolder = Nothing

End Function

mercoledì 25 settembre 2013

[html,js] Verifica i dati di un form prima dell'invio

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>

<script>
function richiestaValidata(nomeDelForm) {
        messaggio = "";
        //verifica se sono stati inseriti i dati necesari
        datiCompilati = true ;
        if (nomeDelForm.testo.value == "") {
            datiCompilati = false ;
            messaggio = messaggio + "Non e' stato compilato il campo. \n"
        }
        // in funzione della verifica precedente restituisce il buon esito o meno
        if (datiCompilati) {
            return true;
        } else {
            alert (messaggio);
            return false;
        }
    }
</script>

</head>
<body>
    <form id="form1" name="form1" method="post" action="#" onsubmit="return richiestaValidata(this)">
        <br>
        <table border="1">
            <tr>
                <td>Testo</td>
                <td><input name="testo" id="testo" type="text" ></td>
            </tr>
            <tr>
                <td align="left"><input   type="button" name="Annulla" value="Annulla" ></td>
                <td align="right"><input   type="submit" name="Invia" value="Invia" ></td>
            </tr>
        </table>
    </form>
</body>
</html>

venerdì 20 settembre 2013

[jQuery] Primo esempio con jquery

All'interno della sezione HEAD del nostro HTML richiamiamo il collegamento alla libreria JQUERY (utilizziamo il CDN messo a disposizione del sito jquery).
Creiamo una funzione (scrivendola nella sezione HEAD oppure in un file esterno che sarà richiamato) cha avrà il computo di assegnare il colore rosso alla proprietà color tag
h1.
function miaFunzione() {
$('h1').css ('color','red');
}

Ogni comando jQuery è fatto di 4 parti: la funzione (il simbolo del $) il selettore (in questo caso h1) l'azione (in questo caso css) ed i parametri (in questo caso trattandosi dell'azione css sono due, l'attributo ed il valore)

Questa funzione verrà chiamata da un link.
<a href=# onClick="miaFunzione()">Premi qui per cambiare il testo in rosso</a>

Ecco il codice completo
<html>
<head>
<script src="http://code.jquery.com/jquery-latest.js"></script>
<script>
function miaFunzione() {
$('h1').css ('color','red');
}
</script>
</head>
<body>
<h1>Testo scritto all'intero di un tag H1</h1>
<a href=# onClick="miaFunzione()">Premi qui per cambiare il testo in rosso</a>
</body>
</html>

Se si vuole che una funzione venga eseguita al caricamento della pagina bisogna definirla all'intenro della funzione
$(document).ready(function () {
miaFunzione();
});

Ecco l'esempio completo
<html>
<head>
<script src="http://code.jquery.com/jquery-latest.js"></script>
<script>
function miaFunzione() {
$('h1').css ('color','red');
}
$(document).ready(function () {
miaFunzione();
});
</script>
</head>
<body>
<h1>Testo scritto all'intero di un tag H1</h1>
</body>
</html>

Ultimo esempio
Alla funzione viene passato il parametro nuovoColore, e viene chiamata una volta al caricamento della pagina ed una volta da un link
<html>
<head>
<script src="http://code.jquery.com/jquery-latest.js"></script>
<script>
function miaFunzione(nuovoColore) {
$('h1').css ('color',nuovoColore);
}
$(document).ready(function () {
miaFunzione('red');
});
</script>
</head>
<body>
<h1>Testo scritto all'intero di un tag H1</h1>
<a href=# onClick="miaFunzione('green')">Premi qui per cambiare il testo in rosso</a>
</body>
</html>

mercoledì 18 settembre 2013

[ASP] VEDERE IN ASP IL CONTENUTO DI UNA TABELLA ACCESS

<%@ Language="VBScript" %>

<%
Option Explicit
%>
<br>
<div style="margin-left:auto;margin-right:auto;width:60%;">

<%
Dim objConn 'oggetto connessione
Dim objRS 'oggetto recordset

dim strSql 'stringa per eseguire sql (da dare in pasto a objRs)
dim strRisultato 'stringa del risultato dell'sql
dim i,j 'contatori

    'creo un'istanza di Connection
    Set objConn = Server.CreateObject("ADODB.Connection")
    'mi connetto al db senza DSN
    objConn.Open "Provider = Microsoft.Jet.Oledb.4.0; Data Source =" & Server.MapPath("[MIO_DATABASE].mdb")

    'creo un'istanza di RecordSet
    Set objRS = Server.CreateObject("ADODB.Recordset")

    'apro e popolo il recordset con la lista delle richieste di reset password fatte da questo utente
    strSql = " SELECT * "
    strSql = strSql & " FROM [MIA_TABELLA] "

    'apro il recorsdet
    objRS.Open strSQL, objConn, , , 1 ' adCmdText =1
    if not objRS.eof then
        'memorizzo il risultato su una stringa
        strRisultato = objRS.GetString(,,"</td><td>","</td></tr><tr><td>"," ")
        'tolgo gli ultimo otto caratteri
        strRisultato = left(strRisultato,len(strRisultato)-8)
%>

<table class='listaProfili'>
    <thead><tr>
        <%
        'riporta il nome dei campi
        for i=0 to objRS.fields.count – 1
            response.write "<th>" & objRS.fields(i).name & "</th>"
        next
        %>
    </tr></thead>
    <tbody>
        <tr>
            <td><%Response.Write(strRisultato)%></td>
        </tr>
    </tbody>
</table>

<%
    end if
    'chiudo Recordset e Connection
    objRS.Close
    Set objRs = Nothing
    objConn.Close
    Set objConn = Nothing
%>
</div>
<br>

martedì 17 settembre 2013

CAMBIARE LAYOUT TASTIERA SU WINDOWS 7

Andare su pannello di controllo

1. Impostare la visualizzazione per categoria

2. Cliccare su tastiere o altri metodi di input

Sulla nuova finestra che appare cliccare su cambia tastiere

[VB6] popolare una griglia con il risultato di una query

Private Sub AggiornaGridDb(nomegriglia As MSFlexGrid, nomeRecordSet As Recordset)
'viene passato il nome di una grid ed il nome di un recordset
'popola la grid in modo che rappresenti come una tabella tale recordset
'PREREQUISITI, IL RECORDSET DEVE ESSRE GIA' ATTIVO

Dim CONTA As Integer
Dim stringaOttenuta As String

'formatta la griglia in funzione del risultato della recordset: numero campi e intestazioni di colonna
nomegriglia.Cols = nomeRecordSet.Fields.Count
nomegriglia.FixedCols = 0
nomegriglia.Rows = 1
nomegriglia.Clear
For CONTA = 0 To nomeRecordSet.Fields.Count – 1
nomegriglia.TextMatrix(0, CONTA) = nomeRecordSet.Fields(CONTA).Name
Next

'riporta tutti i record della query
If nomeRecordSet.EOF Then Exit Sub
nomeRecordSet.MoveFirst
While Not nomeRecordSet.EOF
stringaOttenuta = nomeRecordSet.GetString(adClipString, 1, vbTab)
stringaOttenuta = Left(stringaOttenuta, Len(stringaOttenuta) – 1)
nomegriglia.AddItem stringaOttenuta
Wend

End Sub

SELEZIONARE ANCHE I CAMPI NULL CON IL COMANDO LIKE '%'

Quando si filtra un campo utilizzando la condizione Like '%', non vengono presi in considerazione i campi NULL.
Diventa quindi utile usare il comando COALESCE.
Il comando colaesce restituisce il primo valore non nullo di una lista di valori passatagli come parametri.
Per cui con la sintassi
COALESCE (nomeCampo, '')
verrà restituito il valore di nomeCampo se questo non è nullo altrimenti viene restiutita una stringa vuota (una stringa vuota non è nulla)

Ecco l'esempio completo
SELECT * FROM MIATABELLA
WHERE ( COALESCE (MIOCAMPO, '') LIKE '%'

vedi il link
http://msdn.microsoft.com/en-us/library/ms190349.aspx

cambiare il proprietario di una tabella in sql server

Per cambiare il proprietario di una tabella (o ad una vista) aprire SQL QUERY ANALIZER

lanciare il comando

sp_changeobjectowner 'nome_tabella', nuovoProprietario