A voir également:
- Probleme au niveau de l'ajout
- Ajout rapide snap - Forum Snapchat
- Mise a niveau windows 7 vers 10 - Guide
- Ajout rapide snap fake - Forum Snapchat
- Dans la présentation à télécharger, déplacez l'image dans le cadre sans en modifier la taille. redressez l'image pour que le niveau de la mer soit à l'horizontale. faites correspondre : la ligne avec le niveau de la mer ; le point avec le sommet de la grande voile. combien d'oiseaux sont dans le cadre ? - Forum Word
- Problème au niveau des périphériques pnp ✓ - Forum Logiciels
2 réponses
Hello,
Semblerait que tu forces l'ajout d'une auto incrémentation, ou d'un numéro automatique. Quelle base de données utilises tu?
Copie/colle ta requête.
Semblerait que tu forces l'ajout d'une auto incrémentation, ou d'un numéro automatique. Quelle base de données utilises tu?
Copie/colle ta requête.
Alors alors, si tu ouvres ta base Access, et que tu fais un cliques droits> mode création sur ta table "Participante".
Dans les types de donées, y a t il un "NuméroAuto" quelques part? on dans les propriété "indexé" la valeur: "oui - sans doublon" dans l'un des champs suivants:
Dans les types de donées, y a t il un "NuméroAuto" quelques part? on dans les propriété "indexé" la valeur: "oui - sans doublon" dans l'un des champs suivants:
IdP
NomP
AgeP
FonctionP
NumTelP
NumTelE
NPE
AdresseP
TypeP
PriceP
DateBeg
8 avril 2014 à 09:40
BD: Access2007
VB2005
Voila ce que je fais:
'=================
Private Sub BtnAjouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAjouter.Click
'crátion d'une nouvelle ligne avec les données des textbox
dtr = dts.Tables("Participante").NewRow
If Me.TextBox11.Text = "" Then
MsgBox("???? ??? ???????", vbExclamation + vbOKOnly, "???")
'End If
ElseIf (Me.TextBox11.Text <> "") Then
'Try
While (Me.TextBox11.Text <> "")
dtr("IdP") = Me.TextBox11.Text
dtr("NomP") = Me.TextBox1.Text
dtr("AgeP") = Me.TextBox2.Text
dtr("FonctionP") = Me.TextBox3.Text
dtr("NumTelP") = Me.TextBox4.Text
dtr("NumTelE") = Me.TextBox9.Text
dtr("NPE") = Me.TextBox12.Text
dtr("AdresseP") = Me.TextBox13.Text
dtr("TypeP") = Me.TypeP.Text
dtr("PriceP") = Me.TextBox16.Text
dtr("DateBeg") = Me.DatDep.Text
'-----------------------
Dim today As System.DateTime
Dim duration As System.TimeSpan
Dim answer As System.DateTime
today = Me.DatDep.Text
Select Case Me.TypeP.Text
Case "???"
duration = New System.TimeSpan(30, 0, 0, 0)
Case "?????"
duration = New System.TimeSpan(60, 0, 0, 0)
Case "????? ????"
duration = New System.TimeSpan(90, 0, 0, 0)
Case "??? ????"
duration = New System.TimeSpan(180, 0, 0, 0)
Case "???"
duration = New System.TimeSpan(360, 0, 0, 0)
End Select
answer = today.Add(duration)
Me.TextBox5.Text = answer
dtr("DateEnd") = Me.TextBox5.Text
'-----------------------
' Else
' MsgBox("???? ??? ???????", vbExclamation + vbOKOnly, "???")
' End If
'ajout de la ligne dans le DataSet
dts.Tables("Participante").Rows.Add(dtr)
'création et exécution du commandbuilder pour mettre à jour le DataAdapter
cmdb = New OleDbCommandBuilder(dta)
'mise à jour des données du dataadapter(dta)à partir du commandbuilder (cmdb)
dta.Update(dts, "Participante")
'on vide le dataset pour le recréer avec les nouvelles données
dts.Clear()
dta.Fill(dts, "Participante")
dtt = dts.Tables("Participante")
MsgBox("Client ajoute avec succes")
End While
'End Try
End If
'MsgBox("??? ??????? ?????")
Me.TextBox11.Text = ""
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox12.Text = ""
Me.TextBox13.Text = ""
Me.TextBox16.Text = ""
Me.TextBox4.Text = ""
Me.TextBox5.Text = ""
Me.TextBox9.Text = ""
Me.DatDep.Text = ""
Me.TypeP.Text = ""
End Sub
'================
Et merci...