Discussion :

[angus9]

Bonjour.

Je connais un petit soucis depuis le changement de base de données Sql Server 2005 entre VB6 ET CR(XI)
Vioici le message d'erreur :

Erreur d'exécution '-2147189563 (80014cc5)'

La syntaxe Basic n'est pas prise en charge dans la formule de sélection de groupes/enregistrements

Voici mon

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmdImprim_Click()
'Code du bouton impression qui est dans une forme qui affiche la liste des adresses (listview).
 
Gformula = "{MaTable.CodeCategorie} = " & cmbAdress.ItemData(cmbAdress.ListIndex) & " And {MaTable.SaisArr} <= " & cmbSaison.ItemData(cmbSaison.ListIndex) & " And {MaTable.SaisDep} > " & cmbSaison.ItemData(cmbSaison.ListIndex) & ""
GNomReport = "MonRpt.Rpt"
FrmCrystal.Show vbModal
 
End Sub

Code ci-dessous visible dans le Crystal Viewer qui appelle Gformula

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
 
Dim app As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
'------------------------------------------
Private Sub Form_Load()
 
Screen.MousePointer = vbHourglass
 
Set app = New CRAXDRT.Application
Set Report = app.OpenReport("C:\MaBase\Etat\" & GNomReport & "")
 
CRViewer1.ReportSource = Report
Report.RecordSelectionFormula = Gformula
Report.DiscardSavedData
CRViewer1.ViewReport
 
Screen.MousePointer = vbArrow
 
End Sub

Ma connexion VB6 -> Sql Server fonctionne très bien ainsi que la connexion dans Crystal XI -> Sql Server.
Pour le moment je ne vois pas ce qui se passe, pouvez vous m'aider ?

[ProgElecT]

Salut

Peut être un problème de syntaxe dans Gformula
Les champs litéraux doivent être entourés de '
Les champs date/time doivent être entourés de #

[angus9]

Il n'y a pas de champs date "SaisArr" correspond à 2012 par exemple et est enregistrée en smallInt dans la Bdd Sql.
Qu'appelles tu les champs litéraux ?

[ProgElecT]

Qu'appelles tu les champs litéraux ?

Tout ce qui est du texte.

[angus9]

Problème résolu.
En fait il suffit simplement d'indiquer le serveur, mot de passe... faire une connexion à partir de vb6 pour que l'état puisse afficher les données !