ASP -> XLS nach SQL
lima-city → Forum → Programmiersprachen → Sonstige Programmiersprachen
anzeige
auslese
bitten
code
datei
datum
diversen quellen
feld
forum
http
idee
jemand
jet
ordern
rat
schaufeln
server
set
sonstige programmiersprachen
test
-
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> -->
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
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 -
Verschoben nach Sonstige Programmiersprachen
-
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. -
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 %>
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage