AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 06 07:54:17
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Data / SQL Server [ Base de données / ADO & DAO ] (lap2)

lundi 28 mai 2007 à 09:32:15 | Data / SQL Server

lap2

Bonjour à tous,

J'ai un souci avec mon application VB6 qui était à l'origine connectée à une base Access. Aujourd'hui, je dois la muter vers une base SQL Server. La connection ADO fonctionne très bien mais impossible de connecter les DATA ctrl.
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Public Function OuvreConnection(p_strServeur As String, p_strBase As String) As Boolean

Dim l_strconnectstring As String
p_strServeur = "HOG7RI7ZD24PTIT\SQLEXPRESS"
p_strBase = "GestDechMarkIV"

On Error GoTo erreur
'                                                    nom du serveur              nom de la base
' uid= nom de l'utilisateur
' pwd=mot de passe
l_strconnectstring = "uid=;pwd=;driver={SQL Server}; server=" & p_strServeur & ";database=" & p_strBase & ";dsn=''"
If p_adoConnect.State = adStateOpen Then p_adoConnect.Close

With p_adoConnect
    .ConnectionString = l_strconnectstring
    .ConnectionTimeout = 0
    .CommandTimeout = 0
    .Open
End With

OuvreConnection = True
Exit Function
erreur:
MsgBox Err.Description, vbCritical
OuvreConnection = False
End Function
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Form_Load()

On Error Resume Next

If OuvreConnection(p_strServeur, p_strBase) = True Then
    MsgBox "Connection ouverte " & vbCrLf & _
           "La connection est publique et s'appelle: p_adoConnect", vbInformation
            
  Else
     MsgBox "la connection n'a pu être ouverte"

  End If

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Set MonRsProd = New ADODB.Recordset
MonRsProd.Open "select* from Producteur order by NomSite", p_adoConnect, adOpenKeyset
While Not MonRsProd.EOF
cmbProd.AddItem MonRsProd!NomSite
MonRsProd.MoveNext
Wend
MonRsProd.MoveFirst
cmbProd.Text = MonRsProd("NomSite")
cmbProd.Enabled = False
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Set MonRsPrest = New ADODB.Recordset
MonRsPrest.Open "select* from Prestataire order by Nom", p_adoConnect, adOpenKeyset
While Not MonRsPrest.EOF
cmbInstFin.AddItem MonRsPrest!Nom
MonRsPrest.MoveNext
Wend
MonRsPrest.MoveFirst
cmbInstFin.Text = MonRsPrest("Nom")
cmbInstFin.Enabled = False
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Set MonRsPrest = New ADODB.Recordset
MonRsPrest.Open "select* from Prestataire order by Nom", p_adoConnect, adOpenKeyset
While Not MonRsPrest.EOF
cmbTrans.AddItem MonRsPrest!Nom
MonRsPrest.MoveNext
Wend
MonRsPrest.MoveFirst
cmbTrans.Text = MonRsPrest("Nom")
cmbTrans.Enabled = False
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Set MonRsPrest = New ADODB.Recordset
MonRsPrest.Open "select* from Prestataire order by Nom", p_adoConnect, adOpenKeyset
While Not MonRsPrest.EOF
cmbInstInt.AddItem MonRsPrest!Nom
MonRsPrest.MoveNext
Wend
MonRsPrest.MoveFirst
cmbInstInt.Text = MonRsPrest("Nom")
cmbInstInt.Enabled = False
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Set MonRsPrest = New ADODB.Recordset
MonRsPrest.Open "select* from Prestataire order by Nom", p_adoConnect, adOpenKeyset
While Not MonRsPrest.EOF
cmbNegoc.AddItem MonRsPrest!Nom
MonRsPrest.MoveNext
Wend
MonRsPrest.MoveFirst
cmbNegoc.Text = MonRsPrest("Nom")
cmbNegoc.Enabled = False

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Set MonRsDech = New ADODB.Recordset
MonRsDech.Open "select* from Dechet order by DechID", p_adoConnect, adOpenKeyset
While Not MonRsDech.EOF
cmbDech.AddItem MonRsDech!DechId
MonRsDech.MoveNext
Wend
MonRsDech.MoveFirst
cmbDech.Text = MonRsDech("DechID")
cmbDech.Enabled = False
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Set MonRsPrestation = New ADODB.Recordset
MonRsPrestation.Open "select* from Prestation order by PrestationID", p_adoConnect, adOpenKeyset
While Not MonRsPrestation.EOF
cmbCodePrestation.AddItem MonRsPrestation!PrestationID
MonRsPrestation.MoveNext
Wend
MonRsPrestation.MoveFirst
cmbCodePrestation.Text = MonRsPrestation("PrestationID")
cmbCodePrestation.Enabled = False
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Set MonRsTraitement = New ADODB.Recordset
MonRsTraitement.Open "select* from Traitement order by TraitID", p_adoConnect, adOpenKeyset
While Not MonRsTraitement.EOF
cmbCodeTrait.AddItem MonRsTraitement!TraitID
MonRsTraitement.MoveNext
Wend
MonRsTraitement.MoveFirst
cmbCodeTrait.Text = MonRsTraitement("TraitID")
cmbCodeTrait.Enabled = False
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
DTPicker1.Enabled = False
DTPicker2.Enabled = False
txtNumBord.Enabled = False
txtTonnage.Enabled = False
txtCout.Enabled = False
txtCoutTrans.Enabled = False
lblOK.Visible = False

Jusque là, tout va bien .... Mais la suite ne marche pas ....Pouvez-vous
m'aider ?

ctrlData1.Connect = "uid=;pwd=;driver={SQL Server}; server=" & p_strServeur & ";database=" & p_strBase & ";dsn=''"
ctrlData1.recordSource = "Select* from Registre; "
ctrlData1.Refresh

End sub

Merci d'avance,

@+

Lap2




Cette discussion est classé dans : select, from, enabled, adoconnect, monrsprest

Répondre à ce message

Sujets en rapport avec ce message

Syntaxe "Select From" [ par MSI ] Dans la table MATABLE, je voudrais selectionner les enregistrements dont les champs CHAMPS1 et CHAMPS2 ont respectivement la valeur numerique N1 et N2 Requêtes imbriquées [ par Luke ] Je désire faire avec VB6 une requête imbriquée qui ira dans Access 97 me chercher les infos demandées et les afficher. J'ai fait la requête facilement Requête très imbriquée [ par Luke ] Mon problème:J'ai une requête (voir plus bas) qui fonctionne bien. Sauf que dès que je mets le ORDER BY, ca plante.Cette requête remplis les champ d'u Recherche sur une base access [ par TST ] je fais une recherche sur 2 tables ayant les mêmes noms des champs:Mon code est le suivant:-strsql="select*from tempoMembres"-strsql="select*from Memb requetes imbriquées [ par choup ] bonjour,j'ai fait une requete imbriquée qui marche quand il n'y a qu'un résultat à sortir. Mais lorsque j'ai 2 résultat j'ai un message d'ereur qui me ADO & Requetes [ par BasicInstinct ] 'lut a tous & merci a toi qui me repondra :)J'ai développé une application + Bdd avec une connection ADO.pour faire une requete du type select * from ADODC Datagrid [ par Radj411 ] Hello,Je vous écrit car j'ai un problème lorsqu'on fait une requête (SELECT * FROM ....) après un nom rentré dans un textBox le adodc1.refresh ne mar pb de requete SQL Serveur [ par riderbmx ] Voila mon problème, j'effectue la requete ci desous dans un Analyseur de requete, et celle ci marche trés bien:SELECT max(convert(int,No)) FROM reques datagrid et textbox.... [ par Arkarch ] Bonjour, j'ai une question qui va ptetre vos paraitre bete mais voilà : J'ai un datagrid qui pompe un fichier .mdb j'ai fait :Set rs = New ADODB.Con Combobox [ par noe ] Salut a touscomment mettre dans un combobox les infos d'une base Accesvoici mon code'============================================'Procédure de charge


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


HTC Touch HD
Entre 25€ et 605€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto friends
Photo pretty girlPhoto bassin pour poisson rouge

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,390 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.