哪位老大帮忙转换一下VB程序，我转的好像有点问题！

Question

Declare Function SQLAllocEnv Lib "db2cli" (phenv&) As Integer
Declare Function SQLAllocConnect Lib "db2cli" (ByVal henv&, phdbc&) As Integer
这是我转的
Function SQLAllocEnv(phenv:integer):word;stdcall; external 'db2cli.dll';
Function SQLAllocConnect(henv:integer; phdbc:integer) :word;stdcall; external 'db2cli.dll';

Answer 1

Function SQLAllocEnv(phenv:integer):integer;stdcall; external 'db2cli.dll';
Function SQLAllocConnect(henv:integer; phdbc:integer) :integer;stdcall; external 'db2cli.dll';

Answer 2

Function SQLAllocEnv(phenv:integer):integer;external db2cli name 'SQLAllocEnv';
Function SQLAllocConnect(henv:integer; phdbc:integer):integer;external db2cli name 'SQLAllocConnect';

Answer 3

第二次回复的内空有点错误
Function SQLAllocEnv(phenv:integer):integer;external 'db2cli.dll' name 'SQLAllocEnv';
Function SQLAllocConnect(henv:integer; phdbc:integer):integer;external 'db2cli.dll' name 'SQLAllocConnect';

Answer 4

http://cvs.sourceforge.net/viewcvs.py/open-dbexpress/dbxoodbc/OdbcApi.pas?rev=1.7就有你要的

Answer 5

问题解决了，非常感谢aiirii(ari-爱的眼睛)