Connexion sql server avec ado.net
Soyez le premier à donner votre avis sur cette source.
Vue 14 728 fois - Téléchargée 4 612 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 net vb
- Visual basic ado.net - Meilleures réponses
- Ado sql - 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
- Chaine de connexion sql server c# ✓ - Forum - C# / .NET
- Quelle est la chaine de connection sql server 2005 ? ✓ - Forum - C# / .NET
- Connexion sql server c# - Forum - C# / .NET
Commentaires
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.