kostenloser Webspace werbefrei: lima-city


ASP -> XLS nach SQL

lima-cityForumProgrammiersprachenSonstige Programmiersprachen

  1. Autor dieses Themas

    nanofrager

    nanofrager hat kostenlosen Webspace.

    Hallo Leute,

    will euch mal um einen Rat bitten:

    Es geht darum, dass ich aus einer Excel Datei, die Daten aus ein MS-SQL Server drauf backen möchte und das ganze in ASP/VBScript.

    Habe schon mal aus diversen Quellen das Auslesen aus einer Excel Datei geschaft und die Anzeige per html in einer Table. Nun fehlt mir jedoch an Idee wie ich die Datensätze auf SQL hinbekomme. Wie kann ich am besten die einzelen Felder ansteuern?

    Hier der Code für auslesen der xls:

    <%@ Language=VBScript %>
    <% Option Explicit%>
    <%
    Dim adoCn
    Dim adoRs
    Dim adoFld
    Dim strQuery
    Dim strResults
    DIm test
    
    Const adUseClient = 3
    Const adClipString = 2
    
    Const strColDelim = "  </td><td>"
    Const strRowDelim = "</td></tr><tr><td>"
    
    Set adoCn = CreateObject("ADODB.Connection")
    Set adoRs = CreateObject("ADODB.Recordset")
    
    
    With adoCn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = _
    "Data Source=C:\test2.xls; Extended Properties=Excel 8.0;"
    .CursorLocation = adUseClient
    .Open
    End With
    
    
    strQuery = "SELECT * FROM [test$] ORDER BY Name"
    test = "SELECT * FROM [test$]"
    With adoRs
    Set .ActiveConnection = adoCn
    .Open test
    End With
    %>
    
    <html>
    
    <head>
    <!--<title>Still on the Island</title>
    <style>
    body {font:10pt tahoma;}
    table {font:10pt tahoma;}
    </style>-->
    </head>
    <body>
    <!--<h1>Who's Still on the Island?</h1>-->
    <table cellspacing="0" border="1"
    style="border:1px solid silver;">
    <!--<tr>
    <td rowspan="<%'= adoRs.RecordCount + 2 %>">
    <img src="island.gif">
    </td>
    </tr>-->
    <tr>
    
    <%
    For Each adoFld in adoRs.Fields
    
    Response.Write "<td style=""border-bottom:" & _
    "1px solid silver;""><b>" & adoFld.Name & _
    "</b></td>"
    Next
    %>
    
    </tr>
    <tr>
    <td>
    <%
    
    strResults = adoRs.GetString(adClipString, _
    adoRs.RecordCount, strColDelim, _
    strRowDelim)
    strResults = Left( strResults, _
    InStrRev(strResults,"<tr><td>") - 1)
    
    Response.Write strResults
    
    
    
    
    
    %>
    
    
    </table>
    <%
    adoRs.Close
    set adoRs=nothing
    adoCn.Close
    set adoCn=nothing
    %>
    </body>
    </html>
    
    
    <!--<HTML>
    <HEAD>
    <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
    </HEAD>
    <BODY>
    
    <P> </P>
    
    </BODY>
    </HTML> -->
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

  3. Du bist im falschen Forum. Ich glaube kaum, dass dir jemand mit PHP hier weiterhelfen kann. Guckst du eher bei sonstige Programmiersprachen:
    http://www.lima-city.de/board/sonstige-programmiersprachen
  4. djfun

    Co-Admin Kostenloser Webspace von djfun

    djfun hat kostenlosen Webspace.

    Verschoben nach Sonstige Programmiersprachen
  5. nanofrager schrieb:
    Ach wenn du ASP kannst, dann kommst du auch locker mit PHP klar... :-)

    Das mag sein. Wenn du in ein PHP Forum schreibst, ist es allerdings normalement andersrum. Der leser kann nicht ASP, sondern PHP.
  6. nanofrager schrieb:

    Habe schon mal aus diversen Quellen das Auslesen aus einer Excel Datei geschaft und die Anzeige per html in einer Table. Nun fehlt mir jedoch an Idee wie ich die Datensätze auf SQL hinbekomme. Wie kann ich am besten die einzelen Felder ansteuern?



    Öffne einfach eine Verbindung zu der MS-SQL DB-Server und schaufeln die Daten per INSERT-Command drauf. z.B.:
    <%
    Dim connString
        connString = "PROVIDER=MSDASQL;"
        connString = connString & "DRIVER=SQL Server;"
        connString = connString & "SERVER=<ipadresse/name des sqlservers>;"
        connString = connString & "UID=<username>;"
        connString = connString & "PWD=<passwort>;"
        connString = connString & "DATABASE=<datenbankname>;""
    
    Dim objConn
    Set objConn = Server.CreateObject("ADODB.Connection")
        objConn.Open connString
    
    Dim sqlquery
       sqlquery = "INSERT INTO deineTabelle (spalteA, spalteB, ..., spalteZ) VALUES (wertA, wertB, ..., wertZ)"
    
       objConn.Execute sqlquery
    
        objConn.Close
    Set objConn = Nothing
    %>

  7. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!