EXCEL -> SQL

For at hendte fra et excel ark skal du også lave en SQL ..... Eks hvis du har nogle kolonner som dette:

dato(A1)  :  title(B1) :  beskrivelse (c1)
---------------------------------------------
20-12-2002 : noget      :  noget mere tekst



Og det så ligger i ark1:



set Conn = Server.CreateObject("ADODB.Connection")
set ConnDB = Server.CreateObject("ADODB.Connection")
set Rs = Server.CreateObject("ADODB.recordset")

' Open a connection to the Excel spreadsheet
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source="&Server.MapPath("test.xls")&";" & _
          "Extended Properties=""Excel 8.0;HDR=Yes;"";"

ConnDB.Open "....ConnectionString til din database....."


RS.Open "SELECT * from `ark1$`", Conn, 1, 2
while not RS.EOF
  dato = Year(rs("dato")) & "-" & Month(rs("dato")) & "-" & Day(rs("dato"))

  SQL = "INSERT INTO kalender (dato, title, beskrivelse) VALUES ("
  SQL = SQL & "#" & dato & "#,"
  SQL = SQL & "'" & rs("title") & "',"
  SQL = SQL & "'" & rs("beskrivelse") & "')"

  ConnDB.Execute(SQL)

  RS.MoveNext
Wend