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
14 mars 2007 à 16:11
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.
22 janv. 2006 à 21:58
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
25 mai 2005 à 04:02
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 @+
24 mai 2005 à 10:56
23 mai 2005 à 21:48
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.
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.