|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/1/10 11:13:17 |
标题: |
bios仁兄你没有回答我还有一个问题哦? |
浏览:1138 |
|
加入我的收藏 |
楼主: |
procedure BitBtn1Click(Sender: TObject);
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
sRetValue:String;
begin
SQLServer := CreateOleObject('SQLDMO.Application'); 这里出错!
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
for i := 1 to nservers do
ListBox1.Items.Add(ServerList.Item(i));
SQLServer:=NULL;
serverList:=NULL;
end; 谁帮我看看这段代码为什么出错? 我应该在uses里面加个什么东西哦!
----------------------------------------------
中流一壶,千金争挈。宁为铅刀,毋为楮叶。错节盘根,利器斯别。识时务者,呼为俊杰! |
作者: |
cjrb (Thinking In 魂) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/1/10 12:34:06 |
1楼: |
uses comobj;
----------------------------------------------
充电..........
|
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/1/10 13:43:53 |
2楼: |
yes 晕 大哥什么时候问的这个问题呀 偶都不知道呀
----------------------------------------------
|
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/1/10 14:26:29 |
3楼: |
----------------------------------------------
|
作者: |
|
2004/1/10 15:46:13 |
4楼: |
谢谢.bios 老大可能是没有看到的原因吧!在你回答的第一个问题那里
----------------------------------------------
中流一壶,千金争挈。宁为铅刀,毋为楮叶。错节盘根,利器斯别。识时务者,呼为俊杰!
|
|