Comment mettre à jour la valeur d'un enregistrement de base de données dans VB

Comment modifier les valeurs enregistrées dans la base de données avec VB

Parmi les méthodes des confrères taoïstes ci-dessus :

sSQL=＂mettre à jour le champ de l'ensemble de tables=20＂

devrait être remplacé par :

sSQL=＂mettre à jour l'ensemble de table field1=20,...,field2=20 où id=3＂

Mais s'il n'y a pas d'enregistrement 3 dans votre base de données, une erreur se produira.

Il existe une autre façon d'utiliser le jeu d'enregistrements :

dim cn en tant que nouveau adodb.connection

dim rs comme nouveau adodb.recordset

rs.open "sélectionner * dans la base de données où id=3", adOpenDynamic, adLockOptimistic, -1

si ce n'est pas rs.eof alors

rs ("Champ 1 que vous souhaitez modifier") = "Valeur spécifique 1"

...

rs（＂Champ n＂ que vous souhaitez modifier）=＂Valeur spécifique n＂

rs.update

fin si

rs.close

Je fais habituellement cela lors de la conception. Bien que cela soit plus gênant, cela est fondamentalement sans erreur. De plus, il est préférable d'ajouter un identifiant lors de la conception de la base de données, afin de garantir l'unicité des données.

Modification de la base de données VB Access

Private Sub Command1_Click() 'Emprunter un livre'

Dim jc comme booléen

jc = Faux

Adodc1.Recordset.MoveFirst

Pour i = 1 à Adodc1.Recordset.RecordCount

Si Text1.Text = Adodc1.Recordset.Fields(1).Value et Adodc1.Recordset.Fields(4).Value = True Alors

Adodc1.Recordset.Fields(4).Value = Pas Adodc1.Recordset.Fields(4).Value

Adodc1.Recordset.Update

jc = Vrai

Fin si

Adodc1.Recordset.MoveNext

Suivant je

Si jc Alors MsgBox ＂Emprunt réussi＂ Sinon MsgBox ＂Le livre a été emprunté ou le livre n'existe pas＂

Fin du sous-marin

Private Sub Command2_Click() 'Retourner le livre'

Dim hs comme booléen

hs = Faux

Adodc1.Recordset.MoveFirst

Pour i = 1 à Adodc1.Recordset.RecordCount

Si Text1.Text = Adodc1.Recordset.Fields(1).Value et Adodc1.Recordset.Fields(4).Value = False Alors

Adodc1.Recordset.Fields(4).Value = Pas Adodc1.Recordset.Fields(4).Value

Adodc1.Recordset.Update

jc = Vrai

Fin si

Adodc1.Recordset.MoveNext

Suivant je

Si jc Alors MsgBox ＂Retour réussi＂ Sinon MsgBox ＂Le livre est déjà dans la bibliothèque ou le livre n'existe pas＂

Fin du sous-marin

Sous-Formulaire Privé_Load()

Texte1.Texte = ＂＂

Adodc1.Visible = Faux

Adodc1.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Path & ＂mybook.mdb;Persist Security Info =false＂

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "sélectionner * dans le livre"

Adodc1.Refresh

Fin du sous-marin

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!