1. Accueil
  2. ASP / ASP.NET
  3. Sources ASP / ASP.NET
  4. Sources Base de données
  5. Modifier plusieurs lignes simultanément avec 1 chaîne aléatoire ds 1 bd

Modifier plusieurs lignes simultanément avec 1 chaîne aléatoire ds 1 bd

Soyez le premier à donner votre avis sur cette source.

Vue 6 459 fois - Téléchargée 205 fois

Télécharger le projet
Commenter

Description

Un code pratique qui permet de mettre à jour des milliers de lignes simultanément. Cet exemple montre comment mettre à jour plusieurs lignes en même temps avec une chaîne aléatoire par exemple.

Source / Exemple : 


<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Insérer une chaîne aléatoire dans une base de données</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
' un code pratique qui permet de mettre à jour des milliers de lignes simultanément

' Fonction qui génère un code aléatoire
	function code()
	codealea = ""
	' On mélange --> aléatoire
	Randomize
	For i = 1 to 8 ' <-- choisissez la longueur de la chaîne !
	intNum = Int(10 * Rnd + 48)
	intUpper = Int(26 * Rnd + 65)
	intLower = Int(26 * Rnd + 97)
	intRand = Int(3 * Rnd + 1)
	Select Case intRand
	Case 1
	strCode = Chr(intNum)
	Case 2
	strCode = Chr(intUpper)
	Case 3
	strCode = Chr(intLower)
	End Select
	' strCode est composé de chiffres, minuscules et majucules. on ajoute un a un les réultats de strCode
	codealea = codealea & strCode
	Next
	end function

	' on fait la connection à la base
	Set conn = Server.CreateObject("ADODB.Connection")
    conn.open "votre_base","",""
	' une requête simple pour écrire au bon endroit et compter le nombre de lignes
	sql = "select * from table"
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn, 3, 3
	' Début de la boucle
	rs.movefirst
	do while not rs.eof 
		laligne = rs.fields("n") 'permet de mettre dans la variable laligne le bon numéro de ligne
		' on appelle la fonction code()								 
		code()
		' une deuxième requête simple qui met à jour 
		sql2 = "UPDATE table SET le_champ = '" & codealea & "' where n like '"& laligne &"'"
		Set rs2 = Server.CreateObject("ADODB.Recordset")
		rs2.Open sql2, conn, 3, 3
  	rs.movenext
	loop
	' Fin de la boucle
response.write ("C'est fini") 'Voici une ligne complètement inutile, à part si vous n'êtes pas sûr que ça marche
%>
</body>
</html>

Conclusion :


Pensez à remplacer votre_base par le nom de votre base de données indiquée ds l'ODBC et les noms des champs de votre table (table, n).
Vous pouvez bien sûr mettre la chaîne de votre choix en remplaçant la ligne
code() par codealea = "ce_que_je_veux"
voilà !
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_fabrice69
Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Membre
Dernière intervention
11 décembre 2013
 6
11 avril 2003 à 09:36
C'est la dernière fois que je le dis, enleve les lignes de pub sur ton site. Si je le revois cet après-midi, ta source sera supprimée.

F___
cs_fabrice69
Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Membre
Dernière intervention
11 décembre 2013
 6
10 avril 2003 à 17:41
Peux tu enlever la pub pour ton site dans ton code source. Codes sources n'est pas la pour faire ta promotion publicitaire.

F___
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (webdesignasp)