CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

totalpc Seniormester

12. april 2010 - 08:34 Der er 1 kommentar og
1 løsning

Fra excel til db

Hej

Jeg har et script der trækker data ud fra min access db og laver en excel fil. Kan man i ASP lave det modsatte? Altså at man angiver en excelfil og så smider den automatisk data ind i databasen? Forudsat at det er en klart defineret standard hvilke kolonner der skal være selvfølgelig.

Synes godt om

totalpc Seniormester

12. april 2010 - 11:26 #1

Jeg har fundet nedenstående som dog ikke helt virker.
Jeg har en excelfil hvor der står:

Holdnr Navn Virksomhed

I databasen er der følgende felter

ID (autonr) Holdnr Navn Virksomhed

1. hvordan får jeg ID udfyldt? Skal det være med? Det er jo access autonummerering

2. Det eneste der sker når jeg kører det er at der står :
ID Holdnr Navn Virksomhed F5

På skærmen. Hvor kommer F5 fra og hvorfor sker der ikke mere?

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
'DECLARE THE ACCESS DATABASE CONNECTION
Dim rsAdd
Dim rsAdd_numRows

Set cn = Server.CreateObject("ADODB.Connection")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\Team-Emilie\stafet\stafet.mdb"
set rsAdd = Server.CreateObject("ADODB.Recordset")
rsAdd.ActiveConnection = cn
rsAdd.Source = "SELECT * FROM Hold"
rsAdd.CursorLocation = 2
rsAdd.LockType = 3
rsAdd.Open()

rsAdd_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>IMPORT EXCEL FILE IN ACCESS DATABASE</title>
</head>
<body>
<%
Dim objConn, objRS, strSQL
Dim xIndex

'DECLARE THE EXCEL WORKSHEET CONNECTION
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Excel Driver (*.xls)}; IMEX=1; HDR=NO; "&_
"Excel 8.0; DBQ=" & Server.MapPath("Holdnumre.xls") & "; "

'SET QUERY TO SELECT THE DATA CELLS FROM THE EXCEL WORKSHEET
'THIS CAN BE DONE IN VARIOUS DIFFERENT WAYS, BUT THIS WORKED
'FOR MY PURPOSE
strSQL = "SELECT * FROM A1:Q10000"

'EXECUTE THE QUERY TO THE EXCEL WORKSHEET
Set objRS=objConn.Execute(strSQL)
%>

<table border="0">
<tr>
<%
'EXTRACT THE HEADER VALUES TO DISPLAY ON THE WEBPAGE
For xIndex=0 To objRS.Fields.Count-1
Response.Write("<th>" & objRS.Fields(xIndex).Name & "</th>")
Next

'ITERATE THROUGH THE EXCEL WORKSHEET AND UPDATE INTO THE ACCESS DATABASE
'NOTE THE VALUE OF xIndex IS DIFFERENT FOR BOTH ACCESS AND EXCEL ARRAY
'THIS IS TO TAKE IN ACCOUNT THE PRIMARY KEY VALUE FIELD IN ACCESS IF IT IS
'SET TO AUTO NUMBER
Do Until objRS.EOF
If IsNull(objRS.Fields(0).Value) Then Exit Do
rsAdd.AddNew
Response.Write("<tr>")
For xIndex=0 To objRS.Fields.Count-1
curValue = objRS.Fields(xIndex).Value
Response.Write("<td>" & objRS.Fields(xIndex).Value & "</td>")
rsAdd.Fields(xIndex+1).Value = objRS.Fields(xIndex).Value
Next
Response.Write("</tr>")
rsAdd.Update
objRS.MoveNext
Loop
%>
</tr>
</table>
</body>

</html>

<%
rsAdd.Close
Set rsAdd = Nothing
%>

Synes godt om

totalpc Seniormester

12. april 2010 - 12:37 #2

Oprettet lige et spørgsmålet i et andet forum for excel eller vbscript

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

30/08

Test af Tesla Model 3 Performance: Aldrig har man fået så meget sportsvogn til så få penge

30/08

Dell vil frasælge cybersikkerhedsfirma efter flere forfejlede forsøg

30/08

Danmarks to store it-styrelser skal reduceres markant: Skal samlet sige farvel til hver fjerde stilling i de kommende år

30/08

Nørgaards kæmpe-comeback: ENDELIG får vi et ministerium for civilforsvar - og et ægte digitaliseringsministerium UDEN ligestilling

30/08

Du kan score op til 1,7 millioner kroner på at finde en enkelt sårbarhed

30/08

Nu når en af Danmarks helt store GDPR-retssager til vejs ende: Står over for bødekrav på 800.000 kroner

30/08

CrowdStrike med første regnskab efter globalt nedbrud: Har kostet selskabet 800 millioner kroner

30/08

Regeringen vil reducere bevilling til Datatilsynet med millioner: Skal bruge væsentligt færre penge på løn og tilsyn

30/08

Selskab med 40.000 ansatte dropper VMware efter ballade - vælger anden løsning

30/08

Politiet klar til at skrive kontrakt på nyt dansk fingeraftrykssystem frem til 2035: Leverandøren er fundet - nu mangler blot pengene

30/08

Utopi eller dystopi? Derfor er kunstig intelligens et tveægget sværd

Vis flere artikler

IT-JOB

Udviklings- og Forenklingsstyrelsen

Alsidig testmanager til udvikling af vigtige IT-systemer

Udviklings- og Forenklingsstyrelsen

BI-udvikler, der vil forme fremtidens BI-dataplatform i IT Service Management

Udviklings- og Forenklingsstyrelsen

UI-designer med flair for apps

ATP

Machine Learning Engineer til udvikling af ML-baserede systemer i Fraud Detection & AI Solutions

MAN Energy Solutions

Department Manager Edge Platform

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 23:37	Poe strøm Af lurup i LAN/WAN
I går 14:46	GIF-EDITOR Af snestrup2000 i Billedbehandling
I går 14:03	Logge ind Af Bob i PC
I går 12:12	2 skærme - 1 virker - den anden siger No signal Af eksmojo i Skærme
I går 10:33	openvpn projekt Af dcedata1977 i Windows