Bonjour,
voici mon problème (et j'ai pas beaucoup d'espoir de résolution mais on ne sait jamais)
J'ai une appli VB qui doit attauqer une base Velocis (là déjà ça craint).
Après moultes épreuves pour trouver le driver odbc, créer la connexion, j'ai enfin pu faire une première requête.
Ensuite j'ai attaqué une requête avec une date et après m'être batttu durement j'ai trouvé que pour une utiliser date il faut mettre un @ devant la chaine de caractère.
Je me disais que j'avais fait le plus dur!
Mais voici un nouveau problème. Je ramène un champ qui est un smallInt. Et là pouf, erreur
L'erreur intervient sur le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part ERROR [HY003] [Raima][ODBC Velocis SQL DRIVER]program type argument out of range
Elle intervient sur le getValue(3).
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 'On va chercher ses absences odbcQuery = "SELECT CLE_MOTIF_ABSENCE, DATE_DEBUT, DATE_FIN, DEMI_JOUR_DEBUT, DEMI_JOUR_FIN " odbcQuery = odbcQuery & "FROM VFICHE_ABSENCE " odbcQuery = odbcQuery & "WHERE VFICHE_ABSENCE.DATE_DEBUT >@'" & Date.Now.ToString("yyyy-MM-dd") & "' " odbcQuery = odbcQuery & "AND CLE_SALARIE=" & cleBodet & " " odbcQuery = odbcQuery & "ORDER BY DATE_DEBUT" odbcCmd = New OdbcCommand(odbcQuery, odbcConn) odbcReader = odbcCmd.ExecuteReader() Dim idMotif As Integer Dim dateDebut As Date Dim demiJourDebut As Object Dim dateFin As Date Dim demiJourFin As Object While odbcReader.Read idMotif = odbcReader.GetValue(0) dateDebut = odbcReader.GetValue(1) dateFin = odbcReader.GetValue(2) demiJourDebut = odbcReader.GetValue(3) demiJourFin = odbcReader.GetValue(4) End While odbcReader.Close()
Les champs DATE_DEBUT et DATE_FIN sont des dates; le champ CLE_MOTIF_ABSENCE est un champ integer et les deux autres des smallInt.
Quelqu'un aurait une idée?![]()
Partager