primo problema : come estrarre i dati da excel tranne quelli dove il campo è null
codice:cString=Application("CMM") Set objConn=Server.CreateObject("ADODB.Connection") objConn.Open cstring Set rs = Server.CreateObject("ADODB.Recordset") Set RsT = objConn.OpenSchema(20) NomeTabella = rsT("TABLE_NAME") rs.Open "SELECT [CENTRO DI COSTO],[CENTRO LAVORO] , [REPARTO], [NOME], [COGNOME] , [MATRICOLA] FROM [" & NomeTabella & "] WHERE [CENTRO DI COSTO] <> []" , objconn record = 1 if rs.eof then %> non ci sono dati da copiare <% else %> %>

Rispondi quotando