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

[icedian]

再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

[killerdanny]

ole_dsn.object.GetDataSourceList(ls_dsn_list) //此调用出错//试试

[killerdanny]

http://www.csdn.net/expert/topic/597/597661.xml?temp=.8129846

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

看看

[icedian]

ole_dsn.object.GetDataSourceList(ls_dsn_list) //此调用出错//试试
不好使