OLEObject adoCn
OLEObject adoRs
OLEObject adoFld
int adUseClient
int i
int nFieldCount
string str
adoCn = CREATE OLEObject
adoCn.ConnectToNewObject("ADODB.Connection")
adoRs = CREATE OLEObject
adoFld= CREATE OLEObject
adoRs.ConnectToNewObject("ADODB.Recordset")
adoCn.Provider = "Microsoft.Jet.OLEDB.4.0"
adoCn.ConnectionString ="Data Source=Excel路径+文件名称+后缀;Extended Properties=Excel 8.0;"
adUseClient=3
adoCn.CursorLocation = adUseClient
adoCn.Open
adoRs.ActiveConnection =adoCn
adoRs.open("SELECT * FROM [工作表名称$] ORDER BY Name " )
adoRs.MoveFirst()
DO WHILE NOT adoRs.EOF
nFieldCount=adoRs.Fields.Count
nFieldCount=nFieldCount - 1
long ll_Row
ll_Row = dw_1.InsertRow(0)
for i=0 to nFieldCount
adoFld=adoRs.Fields[i]
str=adoFld.value
dw_1.SetItem(ll_Row,adoFld.name,str)
next
adoRs.MoveNext()
LOOP
PowerBuilder Excel文件导入数据窗口
最新推荐文章于 2022-06-01 12:39:21 发布