VB / ADODB / SQL

Question

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

cs_FPatrick · Answer

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

Papy440 · Answer

Merci beaucoup et à toi aussi Bonne et heureuse année.
Je vais tout de suite essayer.

Papy_440

zziy · Answer

un code vb  d'enregistrement svp, merci d'avance, je taf avec adodb , sql.. merci lol

VB / ADODB / SQL

3 réponses

Discussions similaires