VB6 & SQL Server 2012

Version imprimable

18/04/2020, 21h04
Guy_Lejeune

VB6 & SQL Server 2012

Bonjour,
Je recherche en vain à pouvoir interagir avec ma base de données SQLserver.
J'ai la connexion, je peux lire les données et les retourner dans un msflexgrid, mais par contre, lorsque je veux modifier, ajouter un élément, il m'indique :
Le jeu d'enregistrements suivant ne prend pas en charge la mise à jour. Il s'agit peut être d'une limitation du fournisseur ou du type de verrou sélectionné."
Quelqu'un aurait la solution?
En vous remerciant.
Guy.
18/04/2020, 21h09
ProgElecT

Salut, bienvenue sur DVP

Un peu de ton code, la connexion à la base de données, le branchement à ta table, permettrait sûrement de t'aider efficacement.

Citation:

Envoyé par ProgElecT

Salut, bienvenue sur DVP

Un peu de ton code, la connexion à la base de données, le branchement à ta table, permettrait sûrement de t'aider efficacement.

Bonjour,

Merci de cette rapide réponse.
Voici ci dessous le code demandé.
En te remerciant encore de ton aide.
Bien à toi .
Guy

Dans le Module

Code:

1
2
3
4
5
6
7
8
9
10
11
Public Cnx As New ADODB.Connection
 
    Public Function ConnexionSQL()
        Set Cnx = New ADODB.Connection
        Cnx.ConnectionTimeout = 25
        Cnx.CommandTimeout = 180
        Cnx.CursorLocation = adUseClient
        Cnx.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Audiciel;Data Source=DESKTOP-J96RF2E;Trusted_Connection=True;"
        Cnx.Open
        MsgBox (" La Base de données Audiciel est ouverte et active")
    End Function

Dans le form:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Edit_Data()
    With MSFlexGrid1
 
    'déclarations
        Dim Inp As String
        Dim SelectedField As String
        Dim Rec As New ADODB.Recordset
 
    'ouvre la table
        ConnexionSQL
        strsql = "select Users_Password FROM users Where users_Id = " & .TextMatrix(.Row, 0)
        Rec.Open strsql, Cnx
        Rec.Fields(0) = Inp
 
    'Ferme la DB
        Cnx.Close
        MsgBox (" La Base de données Audiciel est à présent refermée")
 
    'recharge la table
        Call Me.ChargeData
 
    End With
End Sub

19/04/2020, 14h26
ProgElecT

Salut

Ta ligne 12 dans le code du form, essais

Code:

Rec.Open strsql, Cnx, adOpenStatic, adLockPessimistic
19/04/2020, 18h45
Guy_Lejeune
Merci de ta réponse.Cette étape fonctionne.

Mais à présent sur le code modifié (voir ci-dessous), il me change la valeur sur TOUS les enregistrements de la table
Code:

1 2 3 4 5 ConnexionSQL strsql = "select Users_Password FROM users Where users_Id = " & .TextMatrix(.Row, 0) Rec.Open strsql, Cnx, adOpenStatic, adLockPessimistic Rec.Fields(0) = Inp Rec.Update
et me retourne l'erreur :

Citation:

Erreur d'exécution '-2147467259 (80004005)'
Informations sur la colonne clé insuffisantes ou incorrectes. Trop de lignes sont affectées par la mise à jour.

Il me semble bien lui dire de me ressortir l'enregistrement sur un index (clé unique qui plus est) se trouvant dans la cellule sélectionnée.

PS : Comme tu l'auras peut être remarqué, je suis très (très) novice. C'est la première fois que je me lance dans une connexion avec SQL server. Jusqu'ici, j'ai toujours attaqué des bases de données MDB.

Aurais tu des liens parmi lesquels je pourrais me documenter de façon plus pragmatique?

En te remerciant encore vivement.

Bien cordialement

Guy.
19/04/2020, 20h33
ProgElecT
Re

Peux tu nous mettre ce que tu lis de la requête MsgBox strsql, juste avant l'ouverture de la table.
De plus, suite à l'ouverture de la table, fait un
Code:

1 2 3 Rec.MoveFirstg Rec.MoveLast MsgBox Rec.RecordCount
Cela confirme le renvoi de tous les enregistrements de ta BD ?
19/04/2020, 22h02
Guy_Lejeune

Re,

1. MsgBox(strsql) rend : select users_password from Users where users_id=2
2. Rec.RecordCount rend 1

Bien à toi.

Guy
19/04/2020, 22h32
ProgElecT

Re ...re :aie:

Essais de préciser le nom du champ à remplir Rec.Fields("NomDuChamp") = Inp, l'erreur retournée étant pour partie

Citation:

Informations sur la colonne clé insuffisantes ou incorrectes.

Sinon, Fields(0) ne doit pas correspondre au champ clef de la table, surtout s'il est auto-incrémenté.

Citation:

Aurais tu des liens parmi lesquels je pourrais me documenter de façon plus pragmatique?

Un lien pour Un peu de lecture
20/04/2020, 14h19
Guy_Lejeune

Re-Bonjour,
Malgré les modifications apportées, la procédure passe bien la modification dans la table … mais à tous les champs, puis ensuite génère le message d'erreur.
Est-ce qu'il me faut donner d'autres paramètres à rec.update qui pose problème ?
20/04/2020, 14h32
Guy_Lejeune

* * * * * * * *
J'ai trouvé !!!!!! c'est tout con.
Le paramètre adLockPessimistic n’est pas pris en charge si la propriété CursorLocation a la valeur adUseClient.
Or, elle l'était. je l'ai faite sauter et …. ca marche !

Encore un tout grand merci pour ton aide.
(Il se peut toutefois que vu mon expérience, il me faille encore crier à l'aide …):lol:

Bien à toi.
Guy.