Connexion sql server avec ado.net
Soyez le premier à donner votre avis sur cette source.
Vue 14 956 fois - Téléchargée 4 694 fois
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
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
Codes Sources
A voir également
- Ado sql
- Ado net vb - Meilleures réponses
- C# / .NET : Class connexion (sql server, oracle, oledb) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Connexion et requetes sql server avec vb.net - CodeS SourceS - Guide
- Chaîne de connexion sql server authentification windows ✓ - Forum - C# / .NET
- Connexion sql server 2008 depuis VB6 ✓ - Forum - Visual Basic 6
- Chaine de connexion sql server c# ✓ - Forum - C# / .NET
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.
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
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 @+
- Messages postés
-
589
- Date d'inscription
- jeudi 2 octobre 2003
- Statut
- Membre
- Dernière intervention
- 29 avril 2008
2Moi 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.
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.