Connexion VB6 SQL Server

Version imprimable

Bonjour à tous.
Suite à l'évolution de mon programme, je souhaite transformer ma connexion access vers SQL Server.
Ma connexion se faisait de cette manière dans un module, mais je découvre SQL Serveur et là je bloque malgrès des essais mais qui ne sont pas concluants ! Pouvez vous m'aider pour cette nouvelle connexion ?
Quel composant dois je prendre dans vb6 ?

Méthode actuelle pour access :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Global gConnexion As ADODB.Connection Global dynNomTable As ADODB.Recordset Global gProfil As Integer Global Gformula As String Global GNomReport As String ------------------------------------------------- Function connexion() On Error GoTo ErreurOpen strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & app.Path & "\Bdd.mdb" Set gConnexion = New ADODB.Connection gConnexion.Open strCnxn Exit Function ErreurOpen: Screen.MousePointer = vbArrow MsgBox "Problème d'accès aux données. Si le problème persiste, connectez vous à l'adresse suivante : http//:gestion.equipfoot.free.fr/form.html : " & Error, vbCritical End End Function

17/12/2010, 18h48
ProgElecT

Rechercher dans ce forum "VB6 SQL Server" ---> 1671 réponses dont une le 02/12/2010 connexion vb6 sur une base sql server qui répond sûrement à ton besoin.

En effet je te remercie. J'ai maintenant une connexion mais lorsque j'ouvre une form j'ai ce message d'erreur :

Citation:

Erreur d'execution : -2147217900
[Microsoft][ODBC SQL SERVER DRIVER][SQL SERVER] syntaxe incorrecte vers '<'

Et ceci sur la dernière ligne de code :

Code:

1
2
3
4
5
6
7
8
MonSQL$ = "SELECT ...., ...., ....FROM ....."
    MonSQL$ = MonSQL$ & " Where ...... =  " & cmb.......(0).ItemData(cmb.........(0).ListIndex)
    MonSQL$ = MonSQL$ & " And iif(S...... <> 0, S........ <=" & cmb.............ItemData(cmb.........ListIndex) & ")"
    MonSQL$ = MonSQL$ & " And iif(S........ <> 0, S......... >" & cmb............ItemData(cmbaaaaaaaaa.ListIndex) & ")"
    MonSQL$ = MonSQL$ & "  ORDER BY ...................."
 
    Set dynNomTable = New ADODB.Recordset ' on s'alloue de la mémoire pour créer une collection d'enregistrements
    dynNomTable.Open MonSQL$, gConnexion, adOpenForwardOnly, adLockReadOnly ' on extrait ce que l'on veut (avec ce que j'ai appelé MonSQL)

Citation:

Envoyé par angus9

.........
Et ceci sur la dernière ligne de code :

Code:

1
2
3
4
5
6
7
8
MonSQL$ = "SELECT ...., ...., ....FROM ....."
    MonSQL$ = MonSQL$ & " Where ...... =  " & cmb.......(0).ItemData(cmb.........(0).ListIndex)
    MonSQL$ = MonSQL$ & " And iif(S...... <> 0, S........ <=" & cmb.............ItemData(cmb.........ListIndex) & ")"
    MonSQL$ = MonSQL$ & " And iif(S........ <> 0, S......... >" & cmb............ItemData(cmbaaaaaaaaa.ListIndex) & ")"
    MonSQL$ = MonSQL$ & "  ORDER BY ...................."
 
    Set dynNomTable = New ADODB.Recordset ' on s'alloue de la mémoire pour créer une collection d'enregistrements
    dynNomTable.Open MonSQL$, gConnexion, adOpenForwardOnly, adLockReadOnly ' on extrait ce que l'on veut (avec ce que j'ai appelé MonSQL)

MonSQL$ et vraiment comme tu nous as mis ou les .......... contiennent autres choses ?

17/12/2010, 20h18
angus9

Re

Non non ils contiennent autre chose bien sûr ;-) des noms de champs de la table SQL Server.
Est ce que Sql Server ne comprend pas les inférieur ou supérieur à ?
18/12/2010, 09h26
OhMonBato

Bonjour,

le mieux serait que tu mettes le vrai code, pouquoi masquer des noms de variable? On pourrait un peu mieux comprendre.
18/12/2010, 09h33
angus9

RE

bonjour.
ce que j'ai fait mais sincèrement, je n'ai pas trouvé mon bonheur. J'ai essayé avec des mots clè, parcouru les Faq et tuto mais sans résultat. Si vous pouviez me guider... Tout fonctionne bien lorsque j'utilise une base access et pourquoi pas avec Sql Server (que je découvre).
Merci.
18/12/2010, 11h39
OhMonBato

Là je ne comprends pas, ton code est donc vraiment avec les "........." ? 8O

Si oui il y a comme un problème, sinon mets le code stp en remplaçant les "......." par ce que tu as vraiment.

Voici le code
En fait je choisis d'afficher noms et prénoms dans une liste view en fonction d'une catégorie mais aussi en fonction d'une saison (2010/2011 par exemple) qui apparait dans une combo aussi.
Dans la table Joueur il y a un champ SaisArr (2010), SaisDep (2011) et je fais le tri par rapport à ça.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ChargeInfo()
 
    Screen.MousePointer = vbHourglass ' Curseur souris = sablier
 
    MonSQL$ = "SELECT Nom, Prenom, Code FROM Joueur"
    MonSQL$ = MonSQL$ & " Where CodCategorie =  " & cmbCategorie(0).ItemData(cmbCategorie(0).ListIndex)
    MonSQL$ = MonSQL$ & " And iif(SaisArr <> 0, SaisArr <=" & cmbSaison.ItemData(cmbSaison.ListIndex) & ")"
    MonSQL$ = MonSQL$ & " And iif(SaisDep <> 0, SaisDep >" & cmbSaison.ItemData(cmbSaison.ListIndex) & ")"
    MonSQL$ = MonSQL$ & "  ORDER BY Nom, Prenom"
 
    Set dynNomTable = New ADODB.Recordset ' on s'alloue de la mémoire pour créer une collection d'enregistrements
    dynNomTable.Open MonSQL$, gConnexion, adOpenForwardOnly, adLockReadOnly ' on extrait ce que l'on veut (avec ce que j'ai appelé MonSQL)

18/12/2010, 12h36
OhMonBato

Dans tes clauses IIF, il y a un bien une indication si c'est True, mais si c'est False il n'y a rien ? Je pense qu'il faut aussi ajouter un espace après "<=" et ">"
26/12/2010, 00h51
Overcrash

Citation Angus9 :

Citation:

Affaire réglée pour ce problème !
En fait ma l'index de la combo était à -1 (vide) donc.... rien à voir avec Sql Server mais plutôt avec mon code