DW ultradev 4 og sql

det er formodentligt fordi du kører beregninger inden i din SQL streng.
Gør det istedet at du laver dine beregninger først, gemmer dem som en sessions variabel og så kører SQLén. altså noget i retningen af (jeg kan ikke helt gennemskue om dine værdier er tal eller tekst og hvad du præcist vil):

session(\"data1\") = Replace(persondata__c, \"\'\", \"\'\'\")

session(\"data2\") =Replace(persondata__t, \"\'\", \"\'\'\")

persondata.Source = \"SELECT *  FROM data  WHERE \'\"&session(\"data1\")&\"\' = \'\"&session(\"data2\")&\"\'\"

Hmmmmmmmm er du sikker på at den værdi der vælges i request.form(\"c\") findes i databasen, som et feldt.

Der hele ser rigtigt ud og skulle køre uden problem.

request.form(\"c\") er ikke et field men et navn på en record!

søger i navn (\"C\") efter navnet (\"kurt\")
eller
søger i adresse (\"c\") efter adressen (\"navlevej\")

jeg håber dette er mere klart!

nu melder den (jeg reponser sqlén):


SELECT * FROM data WHERE fornavn = klaus hylde
Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression \'fornavn = klaus hylde\'.

/journal/result.asp, line 22

Hmmmmmm du må have en stave fejl i din (\"c\") som ikke matcher navnene i databasen.

Du skriver at (\"c\") ikke er et \'feldt\' i DB\'en, det skal det da være ellers kan du jo ikke finde noget ved at spørge på feldtet \'fornavn\'?

Jeg søger fra en side hvor mine værdier ser sådan ud:

      <form name=\"search\" method=\"post\" action=\"result.asp\">
              <select name=\"c\" class=\"formfelter\">
                <option value=\"CPR-NUMMER\" selected>cpr</option>
                <option value=\"FORNAVN\">fornavn</option>
                <option value=\"EFTERNAVN\">efternavn</option>
                <option value=\"TELEFON\">telefon</option></select>
              <br>
              <input type=\"text\" name=\"t\" class=\"formfelter\">
              <input type=\"submit\" name=\"s\" value=\"s&oslash;g\" class=\"formknap\">
            </form>

og den responses også med:
SELECT * FROM data WHERE CPR-NUMMER = 1111111111

1111111111 har jeg selv skrevet ind i databasen under record CPR-NUMMER!

tak for at i prøver!

Og du er sikker på at CPR-NUMMER, FORNAVN, EFTERNAVN......... hedder det samme i databasen??

Hvor mange linier er der i din database, altså hvor mange Personer ??

ca 4000
jeg kan ikke rigtigt finde ud af det. Det nemmeste ville være hvis en af jer har lavet en søgeside med dropdownliste og et søgefelt. Desuden result.asp siden. Hvis jeg kunne se koden på disse. (vel og mærke lavet id ultradev ) så kunne jeg måske finde fejlen.

Der er et andet problem!
>> SELECT * FROM data WHERE CPR-NUMMER = \'1111111111\' giver fejl
>> SELECT * FROM data WHERE FORNAVN = \'Jan Mikael\' er ok!

begge er sat som tekststrenge i access databasen! Jeg kan ikke lige dreje hvad man kan gøre her?

Det er fordi du skifter mellem \'Tekst\' feldter og \'TAL\' feldter i databasen

<%
set persondata = Server.CreateObject(\"ADODB.Recordset\")
persondata.ActiveConnection = MM_connection_STRING
If Request.Form(\"c\") = \"CPR-NUMMER\" or \"TELEFON\" Then
persondata.Source = \"SELECT *  FROM data WHERE \" + Replace(persondata__c, \"\'\", \"\'\'\") + \" = \" + Replace(persondata__t, \"\'\", \"\'\'\") + \"\"
Else
persondata.Source = \"SELECT *  FROM data WHERE \" + Replace(persondata__c, \"\'\", \"\'\'\") + \" = \'\" + Replace(persondata__t, \"\'\", \"\'\'\") + \"\'\"
End If
persondata.CursorType = 0
persondata.CursorLocation = 2
persondata.LockType = 3
persondata.Open()
persondata_numRows = 0
%>

Der hvor jeg har skrevet If Request.Form(\"c\") = \"CPR-NUMMER\" or \"TELEFON\" Then skal alle dine TAL feldter skrives ind i \"\" adskilt med en OR sætning.

(Nu skal det F..... virke ;-))

Hmmmmmmmmmmmmm strangeeeeeeeeeeeee jeg kan ikke lægge det ind som et svar ?????? kun som en kommentar????

Hvis det kommer ind igen er det altså fordi jeg lige sidder og prøve at lægge det ind som et svar, lykkes det ikke må vi jo lige have fat i admin og melde fejlen....

Det er fordi du skifter mellem \'Tekst\' feldter og \'TAL\' feldter i databasen

<%
set persondata = Server.CreateObject(\"ADODB.Recordset\")
persondata.ActiveConnection = MM_connection_STRING
If Request.Form(\"c\") = \"CPR-NUMMER\" or \"TELEFON\" Then
persondata.Source = \"SELECT *  FROM data WHERE \" + Replace(persondata__c, \"\'\", \"\'\'\") + \" = \" + Replace(persondata__t, \"\'\", \"\'\'\") + \"\"
Else
persondata.Source = \"SELECT *  FROM data WHERE \" + Replace(persondata__c, \"\'\", \"\'\'\") + \" = \'\" + Replace(persondata__t, \"\'\", \"\'\'\") + \"\'\"
End If
persondata.CursorType = 0
persondata.CursorLocation = 2
persondata.LockType = 3
persondata.Open()
persondata_numRows = 0
%>

Der hvor jeg har skrevet If Request.Form(\"c\") = \"CPR-NUMMER\" or \"TELEFON\" Then skal alle dine TAL feldter skrives ind i \"\" adskilt med en OR sætning.

(Nu skal det F..... virke ;-))

Ok nu funger det pludselig igen :0?

For nemhedens skyld er alle felter registreret som tekst. Både telefon og cprnummer er tekst i databasen. Jeg har dobbeltjekket! Men tilgængæld har jeg prøvet at slette alt og starte forfra da jeg opdagede at man ikke kunne bruge - i cpr-nummer. Desuden har jeg lavet alt med småt , da jeg ikke ved hvor case sensitiv SQL/ACCESS/ASP er!

nu melder den:
SELECT * FROM data WHERE \'CPR-NUMMER\'= \'1111111111\'
ADODB.Field error \'800a0bcd\'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/journal/result.asp, line 30

og det er vist et meget godt tegn. Men skal det virkeligt være så svært?

Jeg hæver points og vedlægger HELE result.asp og search.asp


result:
<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"Connections/connection.asp\" -->
<%
Dim Recordset1__t
Recordset1__t = \"xyz\"
if (Request.Form(\"t\") <> \"\") then Recordset1__t = Request.Form(\"t\")
%>
<%
Dim Recordset1__c
Recordset1__c = \"xyz\"
if (Request.Form(\"c\") <> \"\") then Recordset1__c = Request.Form(\"c\")
%>
<%
set Recordset1 = Server.CreateObject(\"ADODB.Recordset\")
Recordset1.ActiveConnection = MM_connection_STRING
Recordset1.Source = \"SELECT *  FROM data  WHERE \'\" + Replace(Recordset1__c, \"\'\", \"\'\'\") + \"\'= \'\" + Replace(Recordset1__t, \"\'\", \"\'\'\") + \"\'\"
response.write Recordset1.Source
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<%=(Recordset1.Fields.Item(\"CPRnummer\").Value)%><br>
<%=(Recordset1.Fields.Item(\"FORNAVN\").Value)%>
</body>
</html>
<%
Recordset1.Close()
%>


search:
<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"Connections/connection.asp\" -->
<%
set Recordset1 = Server.CreateObject(\"ADODB.Recordset\")
Recordset1.ActiveConnection = MM_connection_STRING
Recordset1.Source = \"SELECT * FROM data\"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"css.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"100%\" align=\"center\">
  <tr>
    <td valign=\"middle\">
      <table border=\"0\" cellspacing=\"0\" cellpadding=\"10\">
        <tr>
          <td bgcolor=\"#CCCCCC\" class=\"overskrifter_sort\">velkommen til: <%= Session(\"MM_UserName\") %><br>
          </td>
        </tr>
        <tr>
          <td bgcolor=\"#CCCCCC\">
            <form name=\"search\" method=\"post\" action=\"result.asp\">
              <select name=\"c\" class=\"formfelter\">
                <option value=\"CPR-NUMMER\" selected>cpr</option>
                <option value=\"FORNAVN\">fornavn</option>
                <option value=\"EFTERNAVN\">efternavn</option>
                <option value=\"TELEFON\">telefon</option>
                <option value=\"L&AElig;GE\">l&aelig;ge</option>
              </select>
              <br>
              <input type=\"text\" name=\"t\" class=\"formfelter\">
              <input type=\"submit\" name=\"s\" value=\"s&oslash;g\" class=\"formknap\">
            </form>
            </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>
<%
Recordset1.Close()
%>

Prøv lige denne.

Results.asp


<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"Connections/connection.asp\" -->
<%
Dim Recordset1__t
Recordset1__t = \"xyz\"
if (Request.Form(\"t\") <> \"\") then Recordset1__t = Request.Form(\"t\")
%>
<%
Dim Recordset1__c
Recordset1__c = \"xyz\"
if (Request.Form(\"c\") <> \"\") then Recordset1__c = Request.Form(\"c\")
%>
<%
set Recordset1 = Server.CreateObject(\"ADODB.Recordset\")
Recordset1.ActiveConnection = MM_connection_STRING
Recordset1.Source = \"SELECT *  FROM data  WHERE \" + Replace(Recordset1__c, \"\'\", \"\'\'\") + \" = \'\" + Replace(Recordset1__t, \"\'\", \"\'\'\") + \"\'\"
response.write Recordset1.Source
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<p>
  <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
  <%=(Recordset1.Fields.Item(\"CPRnummer\").Value)%><br>
  <%=(Recordset1.Fields.Item(\"FORNAVN\").Value)%>
  <% End If \' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
</p>
<% If Recordset1.EOF And Recordset1.BOF Then %>
<p>Ingen data fundet.</p>
<% End If \' end Recordset1.EOF And Recordset1.BOF %>
<p>&nbsp;</p>
</body>
</html>
<%
Recordset1.Close()
%>

Du har sat \' omkring c og det skal der ikke være kun om den værdi du som tekst spørger til i databasen, ikke feldt navnet.

Hvis det var tal feldt du spurgte til skal der heller ikke \' omkring t

Og så har jeg også addet et par \'Show Region\' hvis der er data og hvis der ikke er data

SQL & Access er ikke case sensitive.

ASP kan være Case sensitive.

nu har du også lavet dit cpr feldt om i databasen, så husk at rette navnet til i din drop down menu også!!!!

sorry jeg kan se at det ikke var den sidste version jeg fik lagt ud men alle felterne er rettet til småt og uden - (bindestreg)

fejlen er nu:

Microsoft VBScript runtime error \'800a01a8\'

Object required: \'\'

/journal/result.asp, line 29



result:
<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"Connections/connection.asp\" -->
<%
Dim persondata__t
persondata__t = \"xyz\"
if (Request.Form(\"t\") <> \"\") then persondata__t = Request.Form(\"t\")
%>
<%
Dim persondata__c
persondata__c = \"xyz\"
if (Request.Form(\"c\") <> \"\") then persondata__c = Request.Form(\"c\")
%>
<%
set persondata = Server.CreateObject(\"ADODB.Recordset\")
persondata.ActiveConnection = MM_connection_STRING
persondata.Source = \"SELECT *  FROM data  WHERE \'\" + Replace(persondata__c, \"\'\", \"\'\'\") + \"\'= \'\" + Replace(persondata__t, \"\'\", \"\'\'\") + \"\'\"
persondata.CursorType = 0
persondata.CursorLocation = 2
persondata.LockType = 3
persondata.Open()
persondata_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<%=(Recordset1.Fields.Item(\"cprnummer\").Value)%><br>
<%=(Recordset1.Fields.Item(\"fornavn\").Value)%>
</body>
</html>
<%
persondata.Close()
%>

search:
<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"Connections/connection.asp\" -->
<%
set Recordset1 = Server.CreateObject(\"ADODB.Recordset\")
Recordset1.ActiveConnection = MM_connection_STRING
Recordset1.Source = \"SELECT * FROM data\"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"css.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"100%\" align=\"center\">
  <tr>
    <td valign=\"middle\">
      <table border=\"0\" cellspacing=\"0\" cellpadding=\"10\">
        <tr>
          <td bgcolor=\"#CCCCCC\" class=\"overskrifter_sort\">velkommen til: <%= Session(\"MM_UserName\") %><br>
          </td>
        </tr>
        <tr>
          <td bgcolor=\"#CCCCCC\">
            <form name=\"search\" method=\"post\" action=\"result.asp\">
              <select name=\"c\" class=\"formfelter\">
                <option value=\"CPR-NUMMER\" selected>cpr</option>
                <option value=\"FORNAVN\">fornavn</option>
                <option value=\"EFTERNAVN\">efternavn</option>
                <option value=\"TELEFON\">telefon</option>
                <option value=\"L&AElig;GE\">l&aelig;ge</option>
              </select>
              <br>
              <input type=\"text\" name=\"t\" class=\"formfelter\">
              <input type=\"submit\" name=\"s\" value=\"s&oslash;g\" class=\"formknap\">
            </form>
            </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>
<%
Recordset1.Close()
%>

Og hvis du stadigt ikke kan få det til at funge så send lige Databasen til mig, hvis du må og vil selvfølgelig. Så skal jeg lige skrue den sammen.

Du har stadigt fejl efter hvad du skriver

<form name=\"search\" method=\"post\" action=\"result.asp\">
              <select name=\"c\" class=\"formfelter\">
                <option value=\"CPR-NUMMER\" selected>cpr</option>
                <option value=\"FORNAVN\">fornavn</option>
                <option value=\"EFTERNAVN\">efternavn</option>
                <option value=\"TELEFON\">telefon</option>
                <option value=\"L&AElig;GE\">l&aelig;ge</option>
              </select>


Kan du ik bare lige sende skidtet til eksperten@formor.dk ??

Det er en meget fortrolig database med 4000 personer og oplysninger om disse som under ingen omstændigheder må komme ud på nogen måde!

Ligenu kan jeg næsten sige HURRA, der er en tom side som result. Den respons.writer min SQL rigtigt tror jeg!

Den som kan svare mig hvordan jeg for result ud på siden kan få points!

SELECT * FROM data WHERE \'fornavn\'= \'Jan Mikael\'
SELECT * FROM data WHERE \'cprnummer\'= \'1111111111\'

Fjern nu den \' fra c

altså i i db conn vinduet skriver du denne sql sætning

SELECT *
FROM NutProdukter
WHERE c = \'t\'

Øhhhhhhhhhhhh jeg sad lige og kiggede lidt mere på det.

Nogle gange poster du sider hvor recordsettet hedder \'recordset1\' og andre gange hvor det hedder \'persondata\'
Det hele går op i en stor forvirring hvis du sidder og arbejder på forskellige sider og laver om hele tiden. (Jeg ved jo ikke hvad du laver og ikke laver)

Post lige den aktuelle side som du vil have lavet og ikke de test sider du har lavet, Ok ?

table (data) = \"cprnummer\",\"fornavn\",\"efternavn\",\"telefon\",\"laege\"

search:
<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"Connections/connection.asp\" -->
<%
set Recordset1 = Server.CreateObject(\"ADODB.Recordset\")
Recordset1.ActiveConnection = MM_connection_STRING
Recordset1.Source = \"SELECT * FROM data\"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"css.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"100%\" align=\"center\">
  <tr>
    <td valign=\"middle\">
      <table border=\"0\" cellspacing=\"0\" cellpadding=\"10\">
        <tr>
          <td bgcolor=\"#CCCCCC\" class=\"overskrifter_sort\">velkommen til: <%= Session(\"MM_UserName\") %><br>
          </td>
        </tr>
        <tr>
          <td bgcolor=\"#CCCCCC\">
            <form name=\"search\" method=\"post\" action=\"result.asp\">
              <select name=\"c\" class=\"formfelter\">
                <option value=\"cprnummer\" selected>cpr</option>
                <option value=\"fornavn\">fornavn</option>
                <option value=\"efternavn\">efternavn</option>
                <option value=\"telefon\">telefon</option>
                <option value=\"laege\">l&aelig;ge</option>
              </select>
              <br>
              <input type=\"text\" name=\"t\" class=\"formfelter\">
              <input type=\"submit\" name=\"s\" value=\"s&oslash;g\" class=\"formknap\">
            </form>
            </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>
<%
Recordset1.Close()
%>



result:
<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"Connections/connection.asp\" -->
<%
Dim persondata__t
persondata__t = \"xyz\"
if (Request.Form(\"t\") <> \"\") then persondata__t = Request.Form(\"t\")
%>
<%
Dim persondata__c
persondata__c = \"xyz\"
if (Request.Form(\"c\") <> \"\") then persondata__c = Request.Form(\"c\")
%>
<%
set persondata = Server.CreateObject(\"ADODB.Recordset\")
persondata.ActiveConnection = MM_connection_STRING
persondata.Source = \"SELECT *  FROM data  WHERE \'\" + Replace(persondata__c, \"\'\", \"\'\'\") + \"\'= \'\" + Replace(persondata__t, \"\'\", \"\'\'\") + \"\'\"
response.write persondata.Source
persondata.CursorType = 0
persondata.CursorLocation = 2
persondata.LockType = 3
persondata.Open()
persondata_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
</body>
</html>
<%
persondata.Close()
%>

Ok.

Brug så lige denne som result.

Læg mærke til at SQL strengen er ændret så der ikke er \' omkring din c

Altså i stedet for
select * from data where \'c\' = \'t\'
så
select * from data where c = \'t\'

hvis c var et tal feldt så skulle den se sådant ud
select * from data where c = t  altså ingen \' nogen steder



<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"Connections/connection.asp\" -->
<%
Dim persondata__t
persondata__t = \"xyz\"
if (Request.Form(\"t\") <> \"\") then persondata__t = Request.Form(\"t\")
%>
<%
Dim persondata__c
persondata__c = \"xyz\"
if (Request.Form(\"c\") <> \"\") then persondata__c = Request.Form(\"c\")
%>
<%
set persondata = Server.CreateObject(\"ADODB.Recordset\")
persondata.ActiveConnection = MM_connection_STRING
persondata.Source = \"SELECT *  FROM data  WHERE \" + Replace(persondata__c, \"\'\", \"\'\'\") + \" = \'\" + Replace(persondata__t, \"\'\", \"\'\'\") + \"\'\"
response.write persondata.Source
persondata.CursorType = 0
persondata.CursorLocation = 2
persondata.LockType = 3
persondata.Open()
persondata_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<p>
  <% If Not persondata.EOF Or Not persondata.BOF Then %>
  <%=(persondata.Fields.Item(\"cprnummer\").Value)%><br>
  <%=(persondata.Fields.Item(\"fornavn\").Value)%>
  <% End If \' end Not persondata.EOF Or NOT persondata.BOF %>
</p>
<% If persondata.EOF And persondata.BOF Then %>
<p>Ingen Data fundet</p>
<% End If \' end persondata.EOF And persondata.BOF %>
<p>&nbsp;</p>
</body>
</html>
<%
persondata.Close()
%>

Prøv lige dette, håber det funger da det er håndskrevet så UD skulle kunne læse det.

Hvis ikke dette funger, så laver du en KOPI af din database, åbner den i MS ACCESS, åbner dit TABLE data.
Trykker ctrl + A så alt markeres, går op under EDIT og vælger DELETE RECORD så slettes alle 4000 personer i databasen.
Den tomme database sender du så til mig.
Jeg gidder ikke sidde og rode mere med denne simple side, hvis det ikke funger sender du DB\'en.

Det virker! og heldigvis bojohansen. Jeg er meget taknemlig for denne gang!
Der er nogle småfejl hvis man vælger telefon, men jeg regner med at det er databasen eller hvis den ikke eksistere. Du har lavet en god beskrivelse af hvad du har gjort så jeg kan godt finde ud af resten!
tak!

Ahhhhhhhhhh det var sgu dejligt :-)) *LOL*

Hvis du føler for det, så send databasen uden klient info i, men indsæt eventuelt nogle feldter med fiktiv info om de telefon feldter som giver bøvl, så skal jeg prøve at kigge på det, Ok?