Merci beaucoup et à toi aussi Bonne et heureuse année.
Je vais tout de suite essayer.
Papy_440
-------------------------------
Réponse au message :
-------------------------------
> PB1:
> 'Déclarations des variables
> Dim cnn1 As ADODB.Connection
> Dim rstEmployees As ADODB.Recordset
> 'Ouverture de la base (dans le cas d'une base Sql Server)
> Set cnn1 = New ADODB.Connection
> strCnn = "driver={SQL Server};server=srv;" & _
> "uid=sa;pwd=;database=pubs"
> cnn1.Open strCnn
>
> 'Ouverture de la table employé
> Set rstEmployees = New ADODB.Recordset
> rstEmployees.CursorType = adOpenKeyset
> rstEmployees.LockType = adLockOptimistic
> rstEmployees.Open "employee", cnn1, , , adCmdTable
> 'Demande les informations à l'utilisateur
> strID = Trim(InputBox("Employé ID:"))
> strFirstName = Trim(InputBox("Nom"))
> strLastName = Trim(InputBox("Prénom"))
> 'Procède à l'insertion
> If (strID <> "") And (strFirstName <> "") _
> And (strLastName <> "") Then
> rstEmployees.AddNew
> rstEmployees!emp_id = strID
> rstEmployees!fname = strFirstName
> rstEmployees!lname = strLastName
> rstEmployees.Update
> booRecordAdded = True
> 'Affichage de l'informatios
> MsgBox "Nouveau enr: " & rstEmployees!emp_id & " " & _
> rstEmployees!fname & " " & rstEmployees!lname
> Else
> MsgBox "Entrez l'id , le nom et le prénom"
> End If
>
> Ca fonctionne avec le movelast
>
> PB2:
> Il faut définir toutes les valeurs de la table dans le cas suivant :
> insert into toto values(enr1,enr2,enr3) quand la table à trois champs
>
> insert into toto(enr1,enr3) values(enr1,enr3) quand la table à trois champs mais on veut remplir que le premier et le dernier...
> Bon courage et bonne fête
>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Voilà, j'ai quelques problèmes.
> > - PB n°1 : j'utilise une requête sql d'attribution de table pour utiliser différentes bases de données.
> > Set conct = new ADODB.Connection
> > etc...
> >
> > Set recor = new ADODB.Recordset
> > etc...
> >
> > Le problème est que les instructions :
> > recor.Addnew
> > recor.Movelast
> > et autres ne marche pas.
> >
> > - PB n°2 : quand je fais une requête SQL comme INSERT INTO nomtable VALUES ( var1, var2, var3, etc... );
> > il me met un message d'erreur "Des valeurs requises ne sont pas renseignées"
> >
> > Je remercie d'avance mon sauveur
.
> >
> > Papy_440
>