[asp] code werkt niet

[midget]

Op dit moment heb ik een asp code die niet wil werken, wat doe ik fout?

code:

  SqlSelect = "ACCT_NAME,ADDRESS2,CITY,TELEPHONE,TLX_FAX,ACCT_TYPE"
  SqlFrom   = request("dir")& "\contact.DBF"
  SqlOrder  = "ACTT_NAME"

  oRContact.open "SELECT " & SqlSelect & " FROM " & SqlFrom & " ORDER BY " & SqlOrder ,oCContact


  Response.Write "<TABLE>"
  Do Until oRContact.EOF   
    Response.Write "<TR>"
    Response.Write "<TD>" & oRContact("ACCT_NAME") & "</TD>"
    Response.Write "<TD>" & oRContact("ADDRESS2") & "</TD>"
    Response.Write "<TD>" & oRContact("CITY") & "</TD>"
    Response.Write "<TD>" & oRContact("TELEPHONE") & "</TD>"
    Response.Write "<TD>" & oRContact("TLX_FAX") & "</TD>"
    Response.Write "<TD>" & oRContact("ACCT_TYPE") & "</TD>"
    Response.Write "</TR>"
     oRContact.MoveNext
   Loop
  Response.Write "</TABLE>"

%>

<%
  oRContact.Close
  oCContact.Close
%>

[Verwijderd]

"het werkt niet" erg globaal weer, wat voor foutmelding krijg je? krijg je geen foutmelding wat gebeurd er dan wel? kortom wat is het probleem?!?

[midget]

Error melding

code:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Visual FoxPro Driver]SQL: Column 'CONTACT' is not found.
/kassa/Contact.asp, line 32

line 32 is hier lijn:

[lijn]
oRContact.open "SELECT " & SqlSelect & " FROM " & SqlFrom & " ORDER BY " & SqlOrder ,oCContact
[/lijn]

[Verwijderd]

Wat staat er in de oCContact var

[midget]

Op dinsdag 07 mei 2002 10:21 schreef vanDee het volgende:
Wat staat er in de oCContact var

Waar staat die dan? Ik wil eigenlijk de
SqlOrder = "contact"

Weg hebben, maar ik hou een foutmelding

[Sjaaky]

Als je de sql-query even response.write voordat je hem uitvoert, is het makkelijker debuggen.

[midget]

Op dinsdag 07 mei 2002 10:33 schreef Sjaaky het volgende:
Als je de sql-query even response.write voordat je hem uitvoert, is het makkelijker debuggen.

en dat doe ik door?
sorry gisteren begonnen en enkele databases haal ik zo binnen, maar met dit bestand heb ik ruzie

[Gert]

Replace( oRContact.Open, Response.Write ) en hij schrijft em.

[Sjaaky]

code:

sql = "SELECT "& SqlSelect &" FROM "& SqlFrom &" ORDER BY "& SqlOrder
response.write sql

Maar wat staat er nu eigenlijk in oCContact?? Dit is nu namelijk een parameter aan de functie oRContact.open.

[PhoneTech]

Op dinsdag 07 mei 2002 10:39 schreef peterzwet het volgende:

[..]

en dat doe ik door?
sorry gisteren begonnen en enkele databases haal ik zo binnen, maar met dit bestand heb ik ruzie

Sorry hoor...maar de eerste indruk was dat we met een ervaren programmeur te maken hebben...

Je probleem ligt dus in de SQL string! Het ziet er naar uit dat je kolommen aanspreekt die niet bestaan.

Waarschijnlijk heb je dit stukje code niet zelf getikt en ergens vandaan geript zonder de code te snappen!

Ik geef je 1 tip! Begin bij het begin!

[Verwijderd]

Op dinsdag 07 mei 2002 10:45 schreef PhoneTechnician het volgende:
Sorry hoor...maar de eerste indruk was dat we met een ervaren programmeur te maken hebben...
..
_*Bash*
..

Omdat jouw eerste indruk niet goed is heb je gelijk het recht die knakker in te maken? beetje onvriendelijk vind je niet ?

[PhoneTech]

Op dinsdag 07 mei 2002 10:48 schreef Yarvieh het volgende:

[..]

Omdat jouw eerste indruk niet goed is heb je gelijk het recht die knakker in te maken? beetje onvriendelijk vind je niet ?

Sorry...Ik raak de laatste tijd nogal een beetje snel geagiteerd...komt mede door al die andere klote dingen die in en rond ons land gebeuren...word ik een beetje kribbig van...

Maar terug naar het probleem... Ik heb even de moeite genomen om je code te herschrijven met de gedachte dat er al een ObjConn gemaakt is:

code:

'Hoe je de SQL string opbouwt maakt niet zoveel uit, als de informatie en syntax maar goed is
strSQL = "SELECT ACCT_NAME,ADDRESS2,CITY,TELEPHONE,TLX_FAX,ACCT_TYPE FROM Tabel ORDER BY ACTT_NAME"

'De grote debug truuk (hoe schrijf je dat??????)
response.write strSQL

'Het mooie van die strSQL die je terugkrijgt, 
'is dat je deze makkelijk kan plakken in access of zo, 
'en een veel betere foutmelding krijgt :)


'Maakt er een recordset object van
Set OrContact = ObjConn.execute(strSQL)



Response.Write "<TABLE>"
DO WHILE NOT oRContact.EOF 
    Response.Write "<TR>"
    Response.Write "<TD>" & oRContact("ACCT_NAME") & "</TD>"
    Response.Write "<TD>" & oRContact("ADDRESS2") & "</TD>"
    Response.Write "<TD>" & oRContact("CITY") & "</TD>"
    Response.Write "<TD>" & oRContact("TELEPHONE") & "</TD>"
    Response.Write "<TD>" & oRContact("TLX_FAX") & "</TD>"
    Response.Write "<TD>" & oRContact("ACCT_TYPE") & "</TD>"
    Response.Write "</TR>"
     oRContact.MoveNext
Loop
Response.Write "</TABLE>"

'Om het te sluiten!
OrContact.Close
'Om het geheugen vrij te maken (erg belangrijk!!)
Set OrContact = Nothing

'En met alle andere objecten doen natuurlijk
%>

Ik hoop dat je hier mee verder kunt komen...Neem anders even een kijkje op http://www.4guysfromrolla.com.

[4of9]

de error is toch vrij duidelijk?

of zie ik iets over het hoofd?

Column 'CONTACT' is not found