如何在VB中使用导入API

最新推荐文章于 2024-03-11 10:37:04 发布

jiaohe2000

最新推荐文章于 2024-03-11 10:37:04 发布

阅读量576

点赞数

文章标签： api vb db2 string integer command

我正在尝试在 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 &quot;db2app&quot; Alias &quot;sqlepstart_api&quot; 
(ByVal junk&amp;#38;, ByRef sqlca As SQLCA_STRUCT) As Integer
'
DB2_start = sqlepstart(0, sqlca)        ' Start DB2 call

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

     
     
fileno = FreeFile
Open db2file For Output As #fileno
sqlstmt = &quot;&quot; + _
          &quot;db2start;&quot; + vbNewLine + _
          &quot;quit;&quot;
          
Print #fileno, sqlstmt         ' Write commands to a file
Close #fileno                  ' Close it and execute the command
db2cmd = &quot;db2cmd /i /c db2 -tvf &quot; + db2file       ' Generate the command
progID = Shell(db2cmd, vbMinimizedNoFocus)       ' Shell out to run it

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