Fordele mellem 10 databaser.

Hedder felterne i de 10 db'er det samme?

I så fald kan du lave en tabel indeholdene navnene på de 10 db'er og tabeller.
Så kan du bare lave en løkke allá:

Do until DB_RS.EOF
  Query = "SELECT FROM " & DB_RS("Navn") & ""
  DB_RS("Navn").Open... osv
 
  indsæt i data i felter her

  DB_RS("Navn").MoveNext
Loop

- Get it?

Ups - du skal selvfølgelig lukke DB_RS("Navn") inden DB_RS("Navn").MoveNext

Lige i mens jeg summer lidt på dit spørgsmål.....hvorfor skal det ud på 10 databaser?

Hvilken database(r) er der tale om?

Skal alle 10 databaser kunne vedligeholdes fra een asp side?

Skal man kune søge på tværs?

Skal man kunne se i asp i hvilken database et navn er placeret?


/s

Det behøver ikke være 10 databaser det kan evt, godt være 10 tables.

Jeg skal bare kunne fordele trafikken.

Jeg har 10 der script der henter data i databasen. Og de har tendens til at hente den samme ind record hvis det ligger i samme table.

Det ligger sådan at når scriptet har hentet inforamtionen i databasen skal den slette det igen. Og der kan den godt lave lidt bøvl når der er tale om kun en database.

Så kan du jo bruge mit eksempel - skal du ha' det uddybet?

Ja jeg er ikke helt med ...

Den skal fordele ca 9 felter på hver .. og det er samme navn på felterne.

Databasen kunne hedde filer1 filer2 ect.

Kan endda være jeg vælger at lave flere .. nu får vi se hva der er mest hensigst messig ..

Så der er 10 DB'er og ikke 10 tabeller?

det er for mig lige meget .. bare de er adskilt

Allright, gør følgende:

Lav en DB med 10 tabeller. De kan f.eks hedde Tabel1, Tabel2 osv.

Så kan du bare lave et loop:


<%
Connect til din database her
%>
<%
i = 1

for i = 1 to 10

Query = "SELECT * FROM Tabel" & i & ""

TabelNavn = "Tabel" & i

Set TabelNavn = Server.CreateObject("ADODB.RecordSet")
TabelNavn.open Query, Connect, 1, 3

Her indsætter, læser eller hvad du nu vil med dine data.

i = i + 1

Loop
%>

Det var jo et svar

Den ligger i et loop i forvejen: Hvordan løser jeg den ...

----------------------------------------------------------
If Not (rs.BOF Or rs.EOF) Then
nu = date
i = 1

Do While Not rs.EOF

for i = 1 to 5

Dim sqlAddUser

Set connect = server.createobject("ADODB.connection")
connect.Open = "driver={SQL Server};server=SQL2002;uid=bruger;pwd=password;database=basen"

sqlAddUser = "INSERT INTO table""& i &"" ([transmit]) VALUES( '0' )
           
connect.execute(sqlAddUser)

i = i + 1
loop

RS.movenext
Loop

----------------------------------------------------

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/afsender.asp, line 232

loop
^

Har du mulighed for at poste hele koden? - så kan det være jeg kan finde ud af noget