Statistik - flere søgestrenge

Det er der ikke nogle problemer i du skal bare huske kun at åbne til databasen en gang.
Derefter gør du følgende:
sql = conn.execute("SELECT ..");
Og løber sql igennem
srs = conn.execute("SELECT");

En anden mulighed er at du samler sql søgesætningerne i en sætning, men det kræver lidt kendskab til SQL

-> hbhansen

Sidder lige og leger lidt med det for at se om jeg kan få det til at virke.

Vender lige tilbage om lidt

-> hbhansen

Jeg plejer at åbne databasen på nedenstående måde: Jeg har prøvet at indsætte nogle søgestrenge, men får en fejl når jeg kører siden:

Provider error '80004002'

No such interface supported

/stat.asp, line 152

Kan du se hvad der er galt og om jeg har indsat din kode rigtigt. Det er jeg nemlig ikke helt sikker på!!

CONST adOpenStatic = 3, adLockReadOnly = 1, adCmdText = &H0001
Dim connectionString, CONN_USER, CONN_PASS
Dim recordSet
Dim forbindelse
Dim strSQL
Dim strSQL1
Dim strSQL2
Dim i
Dim c1

connectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxx.mdb")
Set forbindelse = Server.CreateObject("ADODB.Connection")
Set recordSet = Server.CreateObject("ADODB.recordSet")
forbindelse.Open connectionString, CONN_USER, CONN_PASS


strSQL = forbindelse.execute("SELECT * from Data d WHERE d.Status = 'Afventer' ORDER BY d.Spm_dato DESC")

strSQL1 = forbindelse.execute("SELECT * from Data d WHERE d.Status = 'Lukket sag' ORDER BY d.Spm_dato DESC")

strSQL2 = forbindelse.execute("SELECT * from Data d WHERE d.Status = 'Videresendt til...' ORDER BY d.Spm_dato DESC")

recordSet.Open strSQL, forbindelse, adOpenStatic, adLockReadOnly, adCmdText

  response.write "Der er ialt registreret " & recordSet.RecordCount & " spørgsmål/svar i databasen med status afventer!</p>" & vbCrLf

recordSet.Close

recordSet.Open strSQL1, forbindelse, adOpenStatic, adLockReadOnly, adCmdText

  response.write "Der er ialt registreret " & recordSet.RecordCount & " spørgsmål/svar i databasen med status lukket sag!</p>" & vbCrLf

recordSet.Close

recordSet.Open strSQL2, forbindelse, adOpenStatic, adLockReadOnly, adCmdText

  response.write "Der er ialt registreret " & recordSet.RecordCount & " spørgsmål/svar i databasen med status videresendt til!</p>" & vbCrLf

recordSet.Close
Set recordSet = Nothing

forbindelse.close

Set forbindelse = Nothing

Hvilken linie er siger den der er fejl?

linie 152 er den her:

recordSet.Open strSQL, forbindelse, adOpenStatic, adLockReadOnly, adCmdText

Jeg fjernede desuden ; efter søgestrengene da den ellers brokkede sig over dem. Det ved jeg ikke om har nogen betydning

Det kunne være du skulle prøve at flytte sql sætninger ned efter hver recordset :
strSQL = forbindelse.execute("SELECT * from Data d WHERE d.Status = 'Afventer' ORDER BY d.Spm_dato DESC")

recordSet.Open strSQL, forbindelse, adOpenStatic, adLockReadOnly, adCmdText

  response.write "Der er ialt registreret " & recordSet.RecordCount & " spørgsmål/svar i databasen med status afventer!</p>" & vbCrLf

recordSet.Close

strSQL1 = forbindelse.execute("SELECT * from Data d WHERE d.Status = 'Lukket sag' ORDER BY d.Spm_dato DESC")

recordSet.Open strSQL1, forbindelse, adOpenStatic, adLockReadOnly, adCmdText

  response.write "Der er ialt registreret " & recordSet.RecordCount & " spørgsmål/svar i databasen med status lukket sag!</p>" & vbCrLf

recordSet.Close

strSQL2 = forbindelse.execute("SELECT * from Data d WHERE d.Status = 'Videresendt til...' ORDER BY d.Spm_dato DESC")
recordSet.Open strSQL2, forbindelse, adOpenStatic, adLockReadOnly, adCmdText

  response.write "Der er ialt registreret " & recordSet.RecordCount & " spørgsmål/svar i databasen med status videresendt til!</p>" & vbCrLf

recordSet.Close

det kan også være fordi du bruger forbindelse.execute jeg tror nok det skal bruges sammen men en anden måde at åbne database på, jeg har det et eller andet sted jeg leder lige så poster jeg det !

Sådanne her får jeg mit til at virke !

'åbn dbase conn
connect="DSN=connectiondb;uid=;pwd="
Set Conn = Server.CreateObject("ADODB.Connection")
DBSti = "DBQ=" & Server.Mappath("xxx.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti

Set sql = Conn.Execute("SELECT ...")

do while (not sql.eof)
...
sql.movenext
loop

Jeg tror desværre ikke helt jeg forstår. Hvad vil du have ind i løkken og skal alle sql-søgestrengene stå efter hinanden.

Vil du ikke lige være flink og uddybe det en smule..

Du skal bare glemme do while løkken jeg havde ikke set at du brugte recordCount men det duer vel også hvis du bruger mit eksempel:

'åbn dbase conn
connect="DSN=connectiondb;uid=;pwd="
Set Conn = Server.CreateObject("ADODB.Connection")
DBSti = "DBQ=" & Server.Mappath("xxx.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti

Set sql = Conn.Execute("SELECT ...")

response.write "Der er ialt registreret " & sql.RecordCount & " spørgsmål/svar i databasen med status lukket sag!</p>" & vbCrLf

Jeg går til frokost nu og så må jeg lige kigge nærmere på det.

Tak for hjælpen :)

Så har jeg endelig fundet ud af det med inspiration fra din kode.

Tusind tak for hjælpen