La DLL CBODBC32
Modérateurs: Super-Apogea, Super Modérateur
1 message
|Page 1 sur 1
La DLL CBODBC32
Bonjour,
Je suis entrain de développer une interface pour un client pour qu’il puisse récupérer le stock d’une date. J’ai utilisé la Bibliothèque CBODBC32.dll pour tirer profit des fonctions avancées de cette dernière.
Mais le problème que le message d’erreur s’affiche « 49 - Convention d'appel de DLL incorrecte ».
J’ai vérifier la documentation mais toujours le même problème.
J’ai lu dans la documentation qu’il y’a une base Access contient des exemples pour utiliser les fonctions avancées de la DLL précitée.
Voici le code que j’ai utilisé :
Public Declare Function CIALStockVal Lib "cbodbc32.dll" (ByVal DE_NO As Long, ByVal AR_REF As String, ByVal AG_NO1 As Long, ByVal AG_NO2 As Long, _
ByVal Datee As String, ByVal Resultat As Double) As Integer
Private Sub Command1_Click()
Dim intCodeErr As Integer
Dim ValStock As Double
Dim DateDeb As Date, DateFin As Date
Dim Debut As String, Fin As String
Dim st As String
On Error GoTo gggg
DateDeb = CDate("01/01/2013")
DateFin = CDate("31/01/2013")
Debut = "010107"
Fin = "310107"
OpenBaseSage ODBCCaisse
st = "SELECT AR_REF FROM F_ARTICLE"
OpenTable cnSage, st
Do While Not rsTable.EOF
intCodeErr = CIALStockVal(1, rsTable.Fields(0), 0, 0, Debut, ValStock)
MsgBox (ValStock)
rsTable.MoveNext
Loop
gggg:
If intCodeErr = 0 Then
MsgBox Err.Number & " - " & Err.Description
Else
MsgBox ("Le numéro de l'erreur est " & intCodeErr)
End If
cnSage.Close
Set cnSage = Nothing
End Sub
Remarque :
Pour les dates j’ai essayé avec le type « Date » et le « String ».
Merci d'avance
Je suis entrain de développer une interface pour un client pour qu’il puisse récupérer le stock d’une date. J’ai utilisé la Bibliothèque CBODBC32.dll pour tirer profit des fonctions avancées de cette dernière.
Mais le problème que le message d’erreur s’affiche « 49 - Convention d'appel de DLL incorrecte ».
J’ai vérifier la documentation mais toujours le même problème.
J’ai lu dans la documentation qu’il y’a une base Access contient des exemples pour utiliser les fonctions avancées de la DLL précitée.
Voici le code que j’ai utilisé :
Public Declare Function CIALStockVal Lib "cbodbc32.dll" (ByVal DE_NO As Long, ByVal AR_REF As String, ByVal AG_NO1 As Long, ByVal AG_NO2 As Long, _
ByVal Datee As String, ByVal Resultat As Double) As Integer
Private Sub Command1_Click()
Dim intCodeErr As Integer
Dim ValStock As Double
Dim DateDeb As Date, DateFin As Date
Dim Debut As String, Fin As String
Dim st As String
On Error GoTo gggg
DateDeb = CDate("01/01/2013")
DateFin = CDate("31/01/2013")
Debut = "010107"
Fin = "310107"
OpenBaseSage ODBCCaisse
st = "SELECT AR_REF FROM F_ARTICLE"
OpenTable cnSage, st
Do While Not rsTable.EOF
intCodeErr = CIALStockVal(1, rsTable.Fields(0), 0, 0, Debut, ValStock)
MsgBox (ValStock)
rsTable.MoveNext
Loop
gggg:
If intCodeErr = 0 Then
MsgBox Err.Number & " - " & Err.Description
Else
MsgBox ("Le numéro de l'erreur est " & intCodeErr)
End If
cnSage.Close
Set cnSage = Nothing
End Sub
Remarque :
Pour les dates j’ai essayé avec le type « Date » et le « String ».
Merci d'avance
- Posteur néophyte
- Messages: 9
- Inscription: Ven 10 Aoû 2012 01:10
1 message
|Page 1 sur 1
Qui est en ligne
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invités