Connexion sql server avec ado.net

Soyez le premier à donner votre avis sur cette source.

Vue 14 698 fois - Téléchargée 4 606 fois

Télécharger le projet
Commenter

Description

J?ai parti d?un code hébergé sur VbFrance, j?ai l?adapté suivant mes besoins.
Il s?agit de se connecter à une base de données nommée « NorthWind » sous Sql Server
Puis de faire des manipulations classiques sur des bases des données (Ajout, Mise à jour, consultation) en utilisant le concept ADO.NET
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
nabilG
Messages postés
20
Date d'inscription
mercredi 18 juin 2003
Statut
Membre
Dernière intervention
19 juin 2009
 -
J'ai ajouté un bouton Delete pour éffacer, malheureusement la procédure qui suit ne fonctionne pas!
Pouvez-vous m'aider?

Private Sub DeleteRecord()
Dim Rowobj As Data.DataRow
Dim objCB As New SqlClient.SqlCommandBuilder
Dim StrSql As String

'pour pouvoir utilser les methodes update, delete..
objCB = New SqlClient.SqlCommandBuilder(objDA)

'MAJ Temporaire de la ligne au niveau mémoire
Rowobj = objDs.Tables("Employees").Rows(RowRecord)

'Valide toutes les modifications apportées au DataSet
objDs.Tables("Employees").Rows.Remove(Rowobj)
'MAJ au niveau SqlServer
'objDA.Fill(objDs, "Employes")
objDA.Update(objDs, "Employees")
Application.DoEvents()

If objDs.Tables(0).Rows.Count > 0 Then
RowRecord = RowRecord - 1
DisplayRecord(objDs, RowRecord)
End If

objCB = Nothing
End Sub

MERCI.
Signaler
sara_lou
Messages postés
1
Date d'inscription
dimanche 15 janvier 2006
Statut
Membre
Dernière intervention
22 janvier 2006
 -
Bonjour,
Je suis débutante dans le domaine ,j'aimereis bien savoir comment connecter une base de données en SQL server avec une application en VB6.
Veuillez bien m'aider SVP.
Cordialement...............merci
Signaler
Yoda2003
Messages postés
2
Date d'inscription
vendredi 6 juin 2003
Statut
Membre
Dernière intervention
25 mai 2005
 -
Salut,

Voici les modifications que j'ai apporter pour que l'édition fonctionne :

Private Sub UpdateRecord()
Dim Rowobj As Data.DataRow
Dim objCB As New SqlClient.SqlCommandBuilder

Rowobj = objDs.Tables("Employes").Rows(RowRecord)
Rowobj("Nom") = Nom.Text
Rowobj("Prenom") = Prenom.Text
objCB = New SqlClient.SqlCommandBuilder(objDA)
objDA.Update(objDs, "Employes")
objDs.Clear()
objDA.Fill(objDs, "Employes")
Application.DoEvents()
objCB = Nothing

End Sub

Les champs sont adapter a ma BD SQL ne pas oublier de les remettre a leur valeur initiale.

Bye @+
Signaler
cs_chris81
Messages postés
589
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
29 avril 2008
 2 -
ca doit etre parceque apres avoir fait une modif dans le dataset il ne doit pas faire SqlDataAdapter.Update
Signaler
Yoda2003
Messages postés
2
Date d'inscription
vendredi 6 juin 2003
Statut
Membre
Dernière intervention
25 mai 2005
 -
Salut,

Moi aussi j'ai le même problème, les éditions ne sont pas enregistré au niveau de la BD. Je tente de voir ce qui ne vas pas mais je suis un novice en programmation.

Je trouve ce code merveilleux pour un débutant comme moi, alors qui as une solution.
Merci.
Afficher les 8 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (NOURIi_BEN)