您现在的位置: 天下网吧 >> 网吧天地 >> 天下码农 >> 编程界 >> 正文

如何在VB中使用导入API

2008-11-6VB大世界佚名
我正在尝试在 Visual Basic 中使用导入 API。但是我发现很难找到正确的 dll。我知道 C++ 中有一个 dll,但是,有没有可以从 VB 应用程序调用的 dll 呢?

DB2DD 专家 George Baklarz

有两种方法可以完成这项工作。一种方法就是在 VB 的 DECLARE 部分列出您希望调用的 C API,然后利用标准的调用序列从 VB 调用它,如下面的代码样本所示:



Type SQLCA_STRUCT

    sqlcaid As String * 8

    sqlcabc As Long

    sqlcode As Long

    sqlerrml As Integer

    sqlerrmc As String * 70

    sqlerrp As String * 8

    sqlerrd(6) As Long

    sqlwarn As String * 11

    sqlstate As String * 5

End Type

Public Declare Function sqlepstart Lib "db2app" Alias "sqlepstart_api" 

(ByVal junk&, ByRef sqlca As SQLCA_STRUCT) As Integer

'

DB2_start = sqlepstart(0, sqlca)        ' Start DB2 call



另一种方法就是生成一个文件,然后发出一条命令在后台执行该函数(当然,取决于您正在试图做什么):



fileno = FreeFile

Open db2file For Output As #fileno

sqlstmt = "" + _

          "db2start;" + vbNewLine + _

          "quit;"

          

Print #fileno, sqlstmt         ' Write commands to a file

Close #fileno                  ' Close it and execute the command

db2cmd = "db2cmd /i /c db2 -tvf " + db2file       ' Generate the command

progID = Shell(db2cmd, vbMinimizedNoFocus)       ' Shell out to run it



最后,DB2 的下一个版本将允许您象运行普通的 SQL 表函数那样运行特殊的 API 命令。这会返回有关目前可在 DB2 中找到的许多管理 API 的结果。因此,无需进行 API 调用,您只需使用 SQL 调用就可从 DB2 获取信息。

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛 https://bbs.txwb.com

关注天下网吧微信/下载天下网吧APP/天下网吧小程序,一起来超精彩

本文来源:VB大世界 作者:佚名

声明
声明:本站所发表的文章、评论及图片仅代表作者本人观点,与本站立场无关。若文章侵犯了您的相关权益,请及时与我们联系,我们会及时处理,感谢您对本站的支持!联系邮箱:support@txwb.com,系统开号,技术支持,服务联系QQ:1175525021本站所有有注明来源为天下网吧或天下网吧论坛的原创作品,各位转载时请注明来源链接!
天下网吧 网吧天下