关于用visual lisp连接到sql server2000时碰到的问题

Taoyimaier · 发表于 2003-5-10 10:01:00

下面是我用vlisp连接到sql数据库时碰到的问题，由于相关资料甚少，无法解决，请不要说一句让我看二次开发板块里的那篇文章就算给我解答了，那篇文章我看过几次了，写的不错，但它的例子是access，关于到sql数据库的连接字符串，我测试过，似乎不行，我还用了别的连接字符串（这些字符串在vb里是能够连接到sql的），同样也在vlisp里不行，提示实参太少，代码如下
;;;下面的这个函数是用来加载ado库的函数，已经测试达到预期目的
(defun ado:initado (/ adopath)
  (if (null adom-append)
(progn
   (setq
      adopath       (strcat       (getenv "systemdrive")
                     "\\Program Files\\Common Files\\System\\Ado\\"
            )
   )
   (if (findfile (strcat adopath "msado15.dll"))
      (vlax-import-type-library
      :tlb-filename
      (strcat adopath "msado15.dll")
      :methods-prefix
      "adom-"
      :properties-prefix
      "adop-"
      :constants-prefix
      "adoc-"
      )
      (alert "没有在指定的路径发现ado库文件")
   )
)
  )
)
;;;下面这个函数是一个用来执行查询命令的函数，接受一个字符串（sql查询语）
;;;然后返回一个记录集，如果是修改查询的话，则返回T或者Nil
(defun ado:execute_sql()
  (setq connect_obj (vlax-create-object "adodb.connection"))
  (setq       connect_str "DSN=northwind_test;UID=saWD=800513")
  (adop-put-connectionstring connect_obj connect_str)
  (adom-open connect_obj)
写到这里的时候程序写不下去了，因为怎么也连接不上数据库，提示实参太少，别的连接字符串我也试过一些，仍不行，关于odbc配置我想没有问题，各位大侠，帮帮忙，感激不尽