Notifikationer

Markér alle som læst Log ud

n1 Nybegynder

21. maj 2003 - 21:58 Der er 6 kommentarer og
1 løsning

program eller side der kan oprette alle poster

jeg ska bruge et program eller en ASP side der kan oprette alle poster fra 10000 til 99999.
jag har fået et asp script, som jeg ikke kan få til atvirke:

<%
Server.ScriptTimeout = 500

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath

("login_2000.mdb")

For i = 10000 To 99999
myConn.Execute("Insert Into Users (Random) Values (" & i & ")")
Next

myConn.Close
Set myConn = Nothing
%>

kan i mon få den til at virke???
i kan hente min database her:
http://www.panorama-biograferne.dk/nt/login_2000.mdb

Synes godt om

-master-d- Nybegynder

21. maj 2003 - 22:04 #1

Prøv den her :

<%
Server.ScriptTimeout = 500

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("login_2000.mdb")

For i = 10000 To 99999
myConn.Execute("Insert Into Users (Random) Values (" & i & ")")
Next

myConn.Close
Set myConn = Nothing
%>

Synes godt om

juks Novice

21. maj 2003 - 22:07 #2

prøv asp kategorien

Synes godt om

n1 Nybegynder

21. maj 2003 - 22:14 #3

det behøves ikke at være asp! kan acces ikke også finde ud af at gøre det?
dit script virkede ikke -master-d-.

Synes godt om

-master-d- Nybegynder

21. maj 2003 - 22:21 #4

Du kan hente din database her.

http://www.websamba.com/denpei/exp/355595/login_2000.zip

Og mit script virker !

Synes godt om

mortrr Praktikant

21. maj 2003 - 22:23 #5

Der er ikke noget i vejen med master-d's script.

Du kan såmænd gøre nøjagtigt det samme i en .vbs fil:

Set myConn = CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\temp\login_2000.mdb"

For i = 10000 To 99999
myConn.Execute("Insert Into Users (Random) Values (" & i & ")")
Next

myConn.Close
Set myConn = Nothing

Synes godt om

-master-d- Nybegynder

21. maj 2003 - 22:23 #6

Har du prøvet at lade den skrive noget bagefter den er færdig med indsætningen ?

ex.

<%
Server.ScriptTimeout = 500

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("login_2000.mdb")

For i = 10000 To 99999
myConn.Execute("Insert Into Users (Random) Values (" & i & ")")
Next

Response.Write "Nu er jeg færidg :D"

myConn.Close
Set myConn = Nothing
%>

PS. Du skal nok regne med at det tager lidt over 2 minutter at indsætte 89999 poster i en database.

Synes godt om

n1 Nybegynder

21. maj 2003 - 22:24 #7

takker

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

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access	9	16/04/202620:11	21/04/202615:43
AI integreret i Access Af per2edb i Access	3	06/04/202610:42	06/04/202612:58
Autonummerering Af hlnviv i Access	2	06/03/202606:24	06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access	6	03/03/202613:18	04/03/202608:09
Access database udskriver ikke rammer korrekt Af Uvanga i Access	8	18/11/202500:24	18/11/202510:25

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