Hi, super ich danke Euch !! Mu� also doch keine �berstunden schieben (bei dem Wetter!)!!!
Gr�sse J�rgen -----Urspr�ngliche Nachricht----- Von: Emanuel Ranieli [mailto:[EMAIL PROTECTED]] Gesendet: Donnerstag, 16. Mai 2002 11:54 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] AW: [aspdebeginners] exel-tabelle in db �bertragen Hallo J�rgen ich habe hier einen script, der von einem excel-file liest und es per html ausgibt. ich habe ihn nicht sauber gemacht, doch denke ich, dass er dir weiterhilft: im entsprechendem excel-file musst du jedoch noch den bereich markieren und ihm einen namen geben (bei mir "Tabelle2"). im excel machst du das mit STRG+F3 Gruss Emanuel -------------- start ------------------ Dim cn, rs, cmd, index ' �ffnen einer Verbindung zur Excel Datei Set cn = CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source= c:\inetpub\wwwroot\bischof\www\file6.xls;" & _ "Extended Properties=""Excel 8.0;HDR=Yes;"";" ' Ein Command Objekt erzeugen und die aktive Verbindung zuweisen Set cmd = CreateObject("ADODB.Command") cmd.ActiveConnection = cn ' Variante 1: definierter Zellenbereich in dem Worksheet ' cmd.CommandText = "SELECT * from 'Tabelle1$A1:B4'" cmd.CommandText = "SELECT * from Tabelle2" ' Variante 2: benannter Bereich 'cmd.CommandText = "SELECT * from 'Bereichsname'" ' mit dem vorbereiteten Command Objekt das Recordset �ffnen Set rs = cmd.Execute emanuel = "" x = 0 'Schreibt den titel Response.write("<table cellspacing=""2"" cellpadding=""5"" bgcolor=""#CCCCCC"">") & vbcrlf For Index=0 to (Rs.fields.count-1) Response.write("<td>" & Rs(Index).Name & "</td>") & vbcrlf Next Do while (Not Rs.eof) Response.write("<tr bgcolor=""#FFFFFF"">") & vbcrlf For Index=0 to (Rs.fields.count-1) x = x + 1 ' if instr(rs(index).value,"Stk") then if trim(rs(index).value) = "48129" then emanuel = x end if if isnumeric(trim(rs(index).value)) = true then farbe = "#FF0000" else farbe = "#009900" end if Response.write("<td><font color="""&farbe & """>" & Rs(Index) & "</font></td>") & vbcrlf Next Response.write("</tr>") & vbcrlf Rs.MoveNext Loop Response.write("</table>") & vbcrlf response.write("<br>1: "&emanuel) response.write("<br>"&x) -------------- ende ------------------- -----Urspr�ngliche Nachricht----- Von: J�rgen Wehrle [mailto:[EMAIL PROTECTED]] Gesendet: Donnerstag, 16. Mai 2002 11:42 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] exel-tabelle in db �bertragen Moin, ich habe eine exel-tabelle und soll diese in die datenbank schreiben. Wie kann so was gehen? Hat jemand vielleicht einen Hinweis oder so?? Vielen Dank im voraus J�rgen | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
