熟悉 SQLDMO 的大佬来参乎参乎,ExecuteWithResultsAndMessages如何用 ( 积分: 100 )

  • 主题发起人 主题发起人 zyycc
  • 开始时间 开始时间
Z

zyycc

Unregistered / Unconfirmed
GUEST, unregistred user!
近来用SQLDMO编程,想用ExecuteWithResultsAndMessages来得到结果及返回的信息

var Str:WideString;SQLServer,CurDB:variant

SQLServer := CreateOleObject('SQLDMO.SQLServer');
SQLServer.LoginSecure := True;
SQLServer.Connect;
CurDB:=SQLServer.Databases.Item('pub');

CurDB.ExecuteWithResultsAndMessages(Memo1.Lines.Text,
Length(Memo1.Lines.Text)+20,Str);

可是,不论Str为什么类型,Str的值始终为空,郁闷!
 
近来用SQLDMO编程,想用ExecuteWithResultsAndMessages来得到结果及返回的信息

var Str:WideString;SQLServer,CurDB:variant

SQLServer := CreateOleObject('SQLDMO.SQLServer');
SQLServer.LoginSecure := True;
SQLServer.Connect;
CurDB:=SQLServer.Databases.Item('pub');

CurDB.ExecuteWithResultsAndMessages(Memo1.Lines.Text,
Length(Memo1.Lines.Text)+20,Str);

可是,不论Str为什么类型,Str的值始终为空,郁闷!
 
楼主,好像你的数据库名字写错了呢,应该是pubs的吧。
 
SQLServer.connect "服务器名","用户名","密码"
你的这个也有错呀。
 
导入SQL-DMO类型库后用TSQLSERVER2
 
To willing66,xrs
我用的是ole对象,而不是用的类型库。另外数据库名也正确。
若我用 CurDB.ExecuteWithResults 可正常完成,但我想返回信息,却返回不了。

网上有此讨论,但未能解决,在experts-exchange.com上有解,但要卡注册才行。
 
多人接受答案了。
 
后退
顶部