大师们，如何连接MS_SQLserver 数据库

mapinfo600

  (vl-load-com)
(defun c:loadcircle(/ dbfile conn connstring sql rs resultlist count i pn)
  (setq dbfile (findfile "example.mdb")) ;设置数据库名称及路径
  ；；如果是MS_SQL数据库，如何连接
  (Setq conn(vlax-create-object "ADODB.Connection")) ;引用ADO控件
  ；；如何利用ADODB连接MS_SQLserver数据库？？？？？？？？

  (setq connstring (strcat "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" dbfile)) ;设置数据库连接字符串
  (vlax-invoke-method conn "open" connstring "" "" -1) ;打开数据库连接
  (setq sql "select [id],[x],[y],[z],[r] from [circle] order by [id]") ;设置查询SQL
  (setq rs (vlax-invoke-method conn "Execute" sql nil -1)) ;执行数据库查询
  (if  (/= (vlax-get-property rs "EOF") :vlax-true) ;判断有无数据
    (progn
      (setq resultlist (vlax-safearray->list (vlax-variant-value (vlax-invoke-method rs "GetRows" -1))));将返回值变成列表
      (setq count(vl-list-length (car resultlist)));查询列表长度，即记录数
      (setq i 0)
      (repeat count
        (setq x (vlax-variant-value(nth i(cadr resultlist)));取X坐标
              y (vlax-variant-value(nth i(caddr resultlist)));取Y坐标
              z (vlax-variant-value(nth i(cadddr resultlist)));取Z坐标
              r (vlax-variant-value(nth i(nth 4 resultlist)));取R长度
              i (1+ i)
              )
        ;;(princ (strcat "\n"  (rtos x) "," (rtos y) "," (rtos z) "," (rtos r))) ;列出记录内容
        (setq pn (list x y z)) ; 将XYZ组合成点坐标
        (command "_circle" pn r ) ;画圆
      )
    )
  )
  
  (setq sql "insert into [circle] ([id],[x],[y],[z],[r]) values(10,10,10,10,10)") ;插入记录
  (setq rs (vlax-invoke-method conn "Execute" sql nil -1)) ;执行数据库查询
  
  (vlax-release-object rs);释放记录集
  (vlax-invoke-method conn "close");关闭数据库连接
  (vlax-release-object conn);释放数据库连接
)

wzg35356

http://bbs.mjtd.com/thread-182498-1-1.html

hh_lj007

收藏，关注。二楼在明经的解答很详细。

mapinfo600

(setq connstring (strcat "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" dbfile)) ;设置数据库连接字符串
   (vlax-invoke-method conn "open" connstring "" "" -1) ;打开数据库连接？？
这两句，连接MSSQL如何写？