Discussion :

[angus9]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[angus9]

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

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

Et ceci sur la dernière ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[ProgElecT]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[angus9]

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 à ?

[OhMonBato]

Bonjour,

le mieux serait que tu mettes le vrai code, pouquoi masquer des noms de variable? On pourrait un peu mieux comprendre.