1 2 3 4 5 6 7 8 9 10 11 12 13
|
rq = rq & "insert into CARACPERSO (NomPerso,Carac,score) values ('" & txtNomperso.Text & "','Force'," & txtForce.Text & ");"
rq = rq & "insert into CARACPERSO (NomPerso,Carac,score) values ('" & txtNomperso.Text & "','Constitution'," & txtConstitution.Text & ");"
rq = rq & "insert into CARACPERSO (NomPerso,Carac,score) values ('" & txtNomperso.Text & "','Dexterite'," & txtDexterite.Text & ");"
rq = rq & "insert into CARACPERSO (NomPerso,Carac,score) values ('" & txtNomperso.Text & "','Intelligence'," & txtIntelligence.Text & ");"
rq = rq & "insert into CARACPERSO (NomPerso,Carac,score) values ('" & txtNomperso.Text & "','Sagesse'," & txtSagesse.Text & ");"
rq = rq & "insert into CARACPERSO (NomPerso,Carac,score) values ('" & txtNomperso.Text & "','Charisme'," & txtCharisme.Text & ");"
cmdCreatPerso.CommandText = rq
Try
cmdCreatPerso.ExecuteNonQuery()
Catch ex As Exception
MsgBox("deuxièmle" & ex.Message)
End Try |
Partager