spamito
Messages postés183Date d'inscriptionsamedi 24 mars 2007StatutMembreDernière intervention30 mars 2013
-
3 oct. 2008 à 01:06
spamito
Messages postés183Date d'inscriptionsamedi 24 mars 2007StatutMembreDernière intervention30 mars 2013
-
3 oct. 2008 à 02:19
Salut encore une fois,
j'ai des problèmes en enregistrant un formulaire. Ma table "Demandes" contient trois champs numériques qui ont une relation avec trois autres tables, les champs sont "Fournisseur","Client" et "Demandeur". Voici mon code :
conn = New Connection
With conn
.Provider = "Microsoft.Jet.oledb.4.0"
.Open("data source=" & Application.StartupPath & "\BASE\BASE.mdb")
End With
rs = New Recordset
With rs
.ActiveConnection = conn
.Open("SELECT * FROM Demandes", , CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockPessimistic)
End With
Dim k
k = MsgBox("Voulez-vous enregistrer la demande n° " & ndemande.Text & " ?", vbYesNo)
If k = vbYes Then
rs.AddNew()
rs.Fields(0).Value = ndemande.Text
rs.Fields(1).Value = recueda.Text
rs.Fields(2).Value = fournisseur.Text
rs.Fields(3).Value = codeprojet.Text
rs.Fields(4).Value = client.Text
rs.Fields(5).Value = demandeur.Text
rs.Fields(6).Value = refdate.Text
If oui.Checked = True Then
rs.Fields(7).Value = True
Else
rs.Fields(8).Value = False
End If
rs.Fields(9).Value = justification.Text
rs.Update()
rs.Requery()
MsgBox("La demande a bien été enregistrée.", MsgBoxStyle.Information)
Else
Exit Sub
End If
Les données ne s'enregistrent pas parce que les champs fournisseur, demandeur et client de mon formulaire sont "text" et sur la base sont numérique. je n'ai pas envie qu'ils soient text sinon la base sera très remplie alors je préfère mettre le code de chacun.
Est-ce que cela est possible ?? Si c'est le cas pouvez-vous me dire où est l'erreur svp ? Est-ce qu'il est dans la requête ?
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 3 oct. 2008 à 02:05
salut,
pour convertir il y a la classe CONVERT
çà doit donner :
rs.Fields(5).Value = convert.toint32(demandeur.Text)
PS : ton code est mi VB.NET mi VB6 ...
<hr size="2" width="100%" />Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp