Visual Basic Programming
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
 
 
User Name:
Password:
Remember me
Go Back   ASP Free ForumsProgrammingVisual Basic Programming

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread ASP Free Forums Sponsor:
  #1  
Old February 16th, 2006, 03:25 AM
comix2000 comix2000 is offline
Registered User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Dec 2004
Posts: 13 comix2000 User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 22 m 27 sec
Reputation Power: 0
Datentypen vergleichen

Hallo,
ich suche eine perfekte Möglichkeit zur Überprüfung von requests. Ich hatte mir sowas vorgestellt wie unten dargestellt.
Der Prüfroutine wird der Wert, der zu prüfende Datentyp sowie pflichtfeld true/false übergeben.

In der Prüfroutine wird der jeweilige Wert für eine MySQL Datenbank vorbereitet.
Wir eine Bedinung nicht eingehalten wird die gedimmte Variable "Fehler" fortgeschrieben. Das schreiben der Werte in eine Datenbank wird dann nur vorgenommen wenn der fehler="" ist.

Ich wollte diese Funktion als include überall verwenden wo es notwendig ist.

Jetzt meine grossen Fragen:
1. Wie kann ich einen Wert auf integer übprüfen? (Ausser prüfen ob ein komma oder Punkt in dem Wert existiert)
2. Noch besser wäre es wenn die jeweilige Pürfroutine den Fehler so zurückgibt, das ich diese beim Rücksprung auf die Formularseite dem jeweiligen Formularfeld zuordnen kann.
3. Wie macht ihr das? Habt ihr verbesserungsvorschläge?

Code:
DIM fehler
vorname = pruefen(request("vorname"),"varChar",true)

function pruefen(wert,typ,pflicht)
  if pflicht and wert = "" then
    fehler_intern = "Pflichtfeld, "
  end if
  
  if fehler_intern = "" then
     SELECT CASE typ
	 case "varChar"
	     pruefen = replace(wert,"'","'")
	 case "date" 
	    if wert <> "" then
		if isdate(wert) then
		  pruefen = csqldatum(wert)
		else
		  fehler_intern = fehler_intern & "Kein Datum"
			
     END SELECT
  end if
  fehler = fehler & fehler_intern
end function

Reply With Quote
  #2  
Old February 16th, 2006, 03:30 AM
nofriends's Avatar
nofriends nofriends is offline
Senior Water Wizard
ASP Free God 11th Plane (10000 - 10499 posts)
 
Join Date: Aug 2004
Location: Cape Town, RSA
Posts: 10,186 nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)nofriends User rank is Brigadier General (60000 - 70000 Reputation Level)  Folding Points: 107805 Folding Title: Super Ultimate Folder - Level 1Folding Points: 107805 Folding Title: Super Ultimate Folder - Level 1Folding Points: 107805 Folding Title: Super Ultimate Folder - Level 1Folding Points: 107805 Folding Title: Super Ultimate Folder - Level 1Folding Points: 107805 Folding Title: Super Ultimate Folder - Level 1Folding Points: 107805 Folding Title: Super Ultimate Folder - Level 1
Time spent in forums: 3 Months 2 Weeks 2 Days 7 h 36 m 24 sec
Reputation Power: 699
Hi,

this is an International site, and we all speak or try to speak English here,
not everyone can understand you, so if you could please re-write your
post in English we could actually help you
__________________
Look! Its a ShemZilla



Reply With Quote
  #3  
Old February 16th, 2006, 10:03 AM
comix2000 comix2000 is offline
Registered User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Dec 2004
Posts: 13 comix2000 User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 22 m 27 sec
Reputation Power: 0
Oh, sorry I did not see that this is an international forum.
So i will translate for you:

Hallo (that was easy )
I am looking for a better oportunity to check requests by datatype and if its an must fill out field.
In my script the value will be checked an preperated so that it can easy insert to an MySQL database.

If the request value don´t pass the check an DIM var called "fehler" will be written. If after all checks the variable "fehler" is empty the Database will be updated.

Now my Questions:
1. How are you doing it, to achiev similar things I described? Do you have any Ideas to make this function more powerfull? Thanks.
Code:
DIM fehler
vorname = pruefen(request("vorname"),"varChar",true)

function pruefen(wert,typ,pflicht)
  if pflicht and wert = "" then
    fehler_intern = "Pflichtfeld, "
  end if
  
  if fehler_intern = "" then
     SELECT CASE typ
	 case "varChar"
	     pruefen = replace(wert,"'","'")
	 case "date" 
	    if wert <> "" then
		if isdate(wert) then
		  pruefen = csqldatum(wert)
		else
		  fehler_intern = fehler_intern & "Kein Datum"
			
     END SELECT
  end if
  fehler = fehler & fehler_intern
end function

Reply With Quote
Reply

Viewing: ASP Free ForumsProgrammingVisual Basic Programming > Datentypen vergleichen


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump


Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 





© 2003-2008 by Developer Shed. All rights reserved. DS Cluster 6 hosted by Hostway
Stay green...Green IT