PB中使用OLE时,碰到的数组问题,请大家不吝赐教!!!

icedian 2002-03-25 09:47:02
再VB中很正常,能够读取ODBC数据源列表:
dim odbcDSN as object
Dim DSL() As String
Dim i As Integer
Dim bln As Boolean
Set odbcDSN = CreateObject("ODBCTool.Dsn")
bln = odbcDSN.GetDataSourceList(DSL)
For i = LBound(DSL) To UBound(DSL)
CmbDSN.AddItem DSL(i)
Next i
再PB中,则总是报错:
OLEObject ole_dsn
int li_result
string ls_dsn_list[]
boolean lb_result
int li_index
ole_dsn =create OLEObject
li_result =ole_dsn.connectToNewObject("ODBCTool.Dsn")
if li_result =0 then
ole_dsn.GetDataSourceList(ls_dsn_list) //此调用出错
else
messagebox('错误','连接ODBCTool.Dsn失败!')
return 0
end if
if lb_result =true then
For li_index = LowerBound(ls_dsn_list) To UpperBound(ls_dsn_list)
ddlb_dsn.AddItem(ls_dsn_list[li_index])
Next
else
messagebox('错误','读取ODBC数据源列表失败!')
return 0
end if
return 1
...全文
13 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
icedian 2002-03-26
ole_dsn.object.GetDataSourceList(ls_dsn_list) //此调用出错//试试
不好使
回复
killerdanny 2002-03-25
http://www.csdn.net/expert/topic/597/597661.xml?temp=.8129846

http://www.csdn.net/Expert/TopicView2.asp?id=414446&datebasetype=now

看看
回复
killerdanny 2002-03-25
ole_dsn.object.GetDataSourceList(ls_dsn_list) //此调用出错//试试
回复
相关推荐
发帖
非技术版
创建于2007-09-28

379

社区成员

PowerBuilder 非技术版
申请成为版主
帖子事件
创建了帖子
2002-03-25 09:47
社区公告
暂无公告