[ASP + Acces] DSN less cursortype hoe?

Pagina: 1
Acties:

  • 4of9
  • Registratie: Maart 2000
  • Laatst online: 15-04 15:52
Hallo,

Ik heb een DB connectie en ik moet een recordcount doen, daar komt -1 uit.

Nu weet ik dat dat kan komen door de cursortype in te stellen.

Het was officieel een DSN connectie en nu Noodgedwongen een DSN less verbinding, alleen Hoe en waar stel ik nu die cursor type in?
code:
1
2
3
4
5
6
7
8
9
10
Dim Conn, dbPath
dbPath = "c:\blaat\blaat.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

SQL = "SELECT * FROM Plan order by Date desc"

Set rs = Conn.Execute(SQL)

Response.Write rs.recordcount

kan iemand mijn verder helpen?

Aspirant Got Pappa Lid | De toekomst is niet meer wat het geweest is...


Verwijderd

De cursortype heeft (voor zover ik weet) niets met je connectionstring te maken. Nu zeg je;

connectieobject.execute(SQLstatement)

Daarmee krijg je een recordset met de deafault locktype en cursor.

Je kan ook explicit een recordsetobject aanmaken zoals hieronder;

set objRs = server.createobject("adodb.recordset")
objRs.open SQLstatement, connectionobject, cursorsetting, locktype

(cursor en locktype zou wel eens andersom kunnen zijn)

Succes :)

  • BlackBurn
  • Registratie: Juni 2001
  • Laatst online: 20:35

BlackBurn

One Ring To Rule Them All

code:
1
2
3
4
5
6
7
8
9
10
Dim Conn, dbPath
dbPath = "c:\blaat\blaat.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

SQL = "SELECT * FROM Plan order by Date desc"

Set rs = Conn.Execute(SQL)

Response.Write rs.recordcount

Meestal krijg je de melding -1 als de server het aantal niet kan uitlezen wel kun je het als volgt doen.
code:
1
2
3
4
5
6
7
8
9
10
Dim Conn, dbPath
dbPath = "c:\blaat\blaat.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

SQL = "SELECT COUNT(*) FROM Plan"

Set rs = Conn.Execute(SQL)

Response.Write rs(0)

Veel succes :)

If it is broken, fix it. If it ain't broken, make it better!


Verwijderd

code:
1
2
3
4
5
6
7
8
9
10
Dim Conn, dbPath
dbPath = "c:\blaat\blaat.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

SQL = "SELECT * FROM Plan order by Date desc"
rs.CursorLocation = 3 ' adUseClient
rs.CursorType = 2 ' adOpenDynamic
Set rs = Conn.Execute(SQL)
Response.Write rs.recordcount

zoiets? (niet getest ofcourz)

  • 4of9
  • Registratie: Maart 2000
  • Laatst online: 15-04 15:52
thx...

Ik heb alleen toch mijn DSN aan de praat gekregen :o hoef ik het niet meer opnieuw te coden ;)

thx anyway

Aspirant Got Pappa Lid | De toekomst is niet meer wat het geweest is...