Bueno Saludos a todos y quisiera saber como actualizar mi bd desde un archivo Excel ubicado en el cliente.? por favor responder a mi correo
Gracias
| |||
Re: ASP Excel Set fs = Server.CreateObject("Scripting.FileSystemObje ct") Set fichero = fs.CreateTextFile("c:\datos\algo.xls",Tr ue)'path Dim pag, iEstado Dim oConn, SQL, rs Dim aDatos, iTotal Dim I, J set oConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") oConn.open "DSN=cancela" SQL="SELECT clsid,central,count(*) as num FROM diario Group By central WHERE tele = ANY (SELECT tele FROM acumave ) " rs.Open SQL, oConn do while not rs.EOF fichero.write rs("central") fichero.write(chr(9)) fichero.write rs("clsid")'registros fichero.write(chr(13)) rs.MoveNext loop fichero.close set fichero = nothing %> Salu2, cualquier cosa no dudes en escribir |