<% @Language=VBScript %>
<% Option Explicit %>
<HTML>
<BODY>
<!-- #include file="html/shared.vb.asp" -->
<%
'10
Function Metmaj(texte)
texte = Ucase(Left(texte,1)) & Lcase(Right(texte,Len(texte)-1))
Metmaj = texte
'15
end function
'------------------------------------
function mot_a_mot(chaine)
dim mot, tab_mot, cpt
cpt=0
chaine = trim(chaine)
'25
tab_mot=Split(chaine," ",-1,1)
For Each mot in tab_mot
mot=Metmaj(mot)
tab_mot(cpt)=mot
response.write(mot)
response.write("</br>")
cpt=cpt+1
Next
'35
chaine=Join(tab_mot," ")
response.write(chaine)
response.write("</br>")
mot_a_mot = chaine
end function
'41
'-------------------------------------
dim dbconn
set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.Open (*******)
'50
dim chaine, rs
dim strSQL, strSQL2
strSQL = "SELECT nom FROM table "
dim objrs
set objrs = Server.CreateObject("ADODB.Recordset")
objrs.open strSQL, dbconn
Do while Not objrs.EOF
chaine = objrs("nom")
chaine = mot_a_mot(chaine)
response.write("chaine:")
response.write(chaine)
response.Write("</br>")
strSQL2 = "UPDATE table SET nom=chaine;"
set rs = dbconn.execute(strSQL2)
objrs.Movenext
Loop
'59
objrs.close
set objrs = Nothing
dbconn.close
set dbconn = Nothing
response.write("</br>")
response.write("opération éfféctuée")
%>
</body>
</html>
voila j'ai un problème je dois mettre en majuscule tous les noms d'un champ dans une base de donnée mais j'ai une erreur et je ne sais pas pouquoi voila l'erreur que j'ai quand je vais sur ma page :
Microsoft OLE DB Provider for SQL Server error '80040e14'
'chaine' : nom de colonne incorrect.
/allegrodev/Metmaj.asp, line 72
le problème ne vient pas de la connexion car j'accède bien aux données de la table mais je ne peux pas les modifier
pour information je n'execute pas mon script sur le serveur mais sur un bureau d'accés a distance via une connexion VPN
pouvez vous m'aider
merci