error en compilacion mysql

[norte_67]

amigos, favor una ayuda, cuando compilo estas lineas, me sale

Static Function B_A(cArticulo)
oProducto:=TOleAuto():New("ADODB.Recordset")
oProducto:CursorLocation:= adUseClient
oProducto:Open("SELECT * FROM b_art WHERE cod_art = "+ Alltrim(cArticulo), oConexion,CursorType,LockType)
if (oProducto:RecordCount)==0
Msginfo("Existe")
Else
MsgInfo("No Existe")
Endif
Return

estoy haciendo una busqueda con ADO y Mysql, usando FWH8.12 y xharbour, algun comentario..??

Compilado y Enlazado de: [C:\GESTOR11\MENU.Exe]
Ejecución No. 3
Ejecutada a las: 18:02:37
============================================================
xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6195)
Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'C:\GESTOR11\PRG\menu01.prg'...
C:\GESTOR11\PRG\menu01.prg(574) Warning W0001 Ambiguous reference: 'CURSORTYPE'
C:\GESTOR11\PRG\menu01.prg(574) Warning W0001 Ambiguous reference: 'LOCKTYPE'
C:\GESTOR11\PRG\menu01.prg(580) Warning W0005 RETURN statement with no return value in function
No code generated.
MAKE Version 5.2 Copyright (c) 1987, 2000 Borland
** error 1 ** deleting C:\GESTOR11\OBJ\menu01.hrb
Ha habido ERRORES al intentar Generar la Aplicacion
============================================================
VERCE v4.3


Static Function B_A(cArticulo)
oProducto:=TOleAuto():New("ADODB.Recordset")
oProducto:CursorLocation:= adUseClient
oProducto:Open("SELECT * FROM b_art WHERE cod_art = "+ Alltrim(cArticulo), oConexion,CursorType,LockType)
if (oProducto:RecordCount)==0
Msginfo("Existe")
Else
MsgInfo("No Existe")
Endif
Return

[Lautaro]

Amigo norte_67,

Para los dos primeros, ( que son warning's no errores ) cursortype y locktype que son ?, son variables ?, si es asi te falta definirlas como local o private en la funcion y darles valor , si son constantes declaradas te falta el #define y el valor, por eso te reclama el compilador.

Para el tercer warning, tienes una funcion que no retorna nada, o retornas algo o la defines como static procedure b_a(carticulo) ....


Espero haberte ayudado,

Lautaro Moreira

[sjingo]

norte_67

Te falta incluir el archivo ado.ch, que es el que tiene definidas las constantes de ADO:
#include "ado.ch"

Y finalmente si la función no retorna nada deberías colocar

return nil

Saludos.
Marcelo Jingo