par
aspisterverte » 29 mars 2013, 17:59
Salut les pros du php.
J'aurai besoin de faire un bout de code en php mais hélas je suis du monde de l'asp.
Comme un exemple vaut mieux qu'un long discours pourriez vous m'iader à faire l'équivalent en php?
Set conn = CreateObject("ADODB.Connection")
conn.Open "DBQ=" & Server.Mappath("mabase.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
item_number = request("item_number")
amount = request("custom")
Set rs=server.createObject ("ADODB.recordset")
sql = "SELECT * from commandes WHERE commandes.idcommande="&item_number&" AND commandes.prix_final="&amount&" ;"
rs2.Open sql2, conn, 1, 2 ,1
rs2.fields("valid")= true
rs2.update
rs2.close
set rs2=nothing
conn.close
set conn=nothing
for a=0 to ubound(contenu)-1
sspdt = Split(contenu,"monseparateur")
idessin=sspdt(a)
idessin=left(idessin,5)
idessin=replace(idessin,"test","")
next
j'en suis là mais je seche...
$DSNLess='DRIVER={Driver do Microsoft Access (*.mdb)}; DBQ=C:\www\Admin\mabase.mdb';
$cnx=odbc_connect($DSNLess,'','');
$item_number = $_POST['item_number'];
$amount = $_POST['custom'];
sql = "SELECT * from commandes WHERE commandes.idcommande='$item_number' AND commandes.prix_final='$amount' ;"
à traduire............... rs.Open sql2, conn, 1, 2 ,1
à traduire............... rs.fields("valid")= true
à traduire............... rs.update
à traduire............... rs.close
à traduire............... set rs=nothing
odbc_close ($cnx);
à traduire............... for a=0 to ubound(contenu)-1
à traduire............... sspdt = Split(contenu,"monseparateur")
à traduire............... idessin=sspdt(a)
à traduire............... idessin=left(idessin,5)
à traduire............... idessin=replace(idessin,"test","")
à traduire............... next
D'avance merci pour le coup de main si vous en avez le temps
Salut les pros du php.
J'aurai besoin de faire un bout de code en php mais hélas je suis du monde de l'asp.
Comme un exemple vaut mieux qu'un long discours pourriez vous m'iader à faire l'équivalent en php?
Set conn = CreateObject("ADODB.Connection")
conn.Open "DBQ=" & Server.Mappath("mabase.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
item_number = request("item_number")
amount = request("custom")
Set rs=server.createObject ("ADODB.recordset")
sql = "SELECT * from commandes WHERE commandes.idcommande="&item_number&" AND commandes.prix_final="&amount&" ;"
rs2.Open sql2, conn, 1, 2 ,1
rs2.fields("valid")= true
rs2.update
rs2.close
set rs2=nothing
conn.close
set conn=nothing
for a=0 to ubound(contenu)-1
sspdt = Split(contenu,"monseparateur")
idessin=sspdt(a)
idessin=left(idessin,5)
idessin=replace(idessin,"test","")
next
j'en suis là mais je seche...
$DSNLess='DRIVER={Driver do Microsoft Access (*.mdb)}; DBQ=C:\www\Admin\mabase.mdb';
$cnx=odbc_connect($DSNLess,'','');
$item_number = $_POST['item_number'];
$amount = $_POST['custom'];
sql = "SELECT * from commandes WHERE commandes.idcommande='$item_number' AND commandes.prix_final='$amount' ;"
à traduire............... rs.Open sql2, conn, 1, 2 ,1
à traduire............... rs.fields("valid")= true
à traduire............... rs.update
à traduire............... rs.close
à traduire............... set rs=nothing
odbc_close ($cnx);
à traduire............... for a=0 to ubound(contenu)-1
à traduire............... sspdt = Split(contenu,"monseparateur")
à traduire............... idessin=sspdt(a)
à traduire............... idessin=left(idessin,5)
à traduire............... idessin=replace(idessin,"test","")
à traduire............... next
D'avance merci pour le coup de main si vous en avez le temps