3 replies to this topic

[mcj]

ja procurei algo no forum e nao encontrei nada.
Preciso atraves de um arquivo asp abrir um arquivo EXCEL e exportar as informacoes do arquivo EXCEL para um banco de dados SQL.

Mto dificil?

[MACUL]

Ai esta as formas de conectar, com cada um, agora p/ inserir vc terá que montar a string.

Driver ODBC para Excel
 
<%

   'Para Excel 97 / 2000

   oConn.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
   "DriverId=790;" & _
   "DBQ=\teste\teste.xls;" & _
   "DefaultDir=\teste;" 

>%

(*) - Abrindo uma planilha do Excel
 
<%

           'Você pode abrir um planilha Excel usando o provedor
   -   "OLE DB Provider for Microsoft Jet" , Vejamos um exemplo:

   oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
   "Data Source=\teste\teste.xls;" & _
   "Extended Properties=""Excel 8.0;HDR=Yes;"";" 

   'HDR=Yes significa que há um cabeçalho na linha 
   da célula, e o provedor não irá incluir a primeira linha da seleção no
   recordset. Se definir "HDR=No" então o provedor irá incluir a primeira linha da 
   célula no recordset.


>%

<%

   'Segurança Padrão:
   oConn.Open "Provider=sqloledb;" & _
   "Network Library=DBMSSOCN;" & _
   "Data Source=teste;" & _
   "Initial Catalog=pubs;" & _
   "User Id=sa;" & _
   "Password=;"

   'Para uma conexão segura:
   oConn.Open "Provider=sqloledb;" & _
   "Network Library=DBMSSOCN;" & _
   "Data Source=teste;" & _
   "Initial Catalog=pubs;" & _
   "Trusted_Connection=yes;"

   'Solicitando o nome e a senha do usuário:

   oConn.Provider = "sqloledb"
   oConn.Properties("Prompt") = adPromptAlways
   oConn.Open "Network Library=DBMSSOCN;" & _
   "Data Source=teste;" & _
   "Initial Catalog=pubs;" 
   'Nota: "Data Source" é o nome do servidor onde o SQL Server está localizado. 

>%

T +
MACUL

[mcj]

valewww


mas com isso ele vai importar o arquivo excel para o banco de dados??

[MACUL]

essa parte vc tem que fazer existe um insert select, mas acredito que não tem como funcionar em servidores <>s, faça assim :

bah baha bha
set rsexcel
set dbexcel
bah baha bha

rsexcel.open excel

while not rsexcel.eof

   dbSQL.execute "insert into tabela (campos) values( " & rsexcel("campo1") & ")"
  rsexcel.movenext
wend

assim vc consiguirá fazer.