小弟想做个程序，望高手指点！！！急.............啊........

[liaofz]

小弟想做个程序，主要功能是：能打开excel文件，以这个excel文件中的某一字段为关键字在数据库中的一个表中查询，最后显示结果是这个excel文件的字段和表中满足关系的字段，能在这基础上进行查询统计。
这个在pb中如何实现啊？？？？还是有其他什么方法更简单？？
望高手指点！！！！！！！！痛苦中..............

[dragonbird]

建立数据窗口，选择数据源为外部，excel file.
然后，再放到窗口上。
查询，过滤统计可以直接成数据窗口，也可以用script写

[liaofz]

多谢，那怎样实现用这个excel文件中的一个字段的值在数据库中查询显示出来呢？？？？？？？？？？

[sjlion]

1楼不是告诉你放在窗口上吗？那就从上边取得你指定的excel字段的值，在数据库里查询不就行了吗？

[玉儿o0]

用ole也可以..
为啥非要用excel

[magic_qxj]

我原来有写过一段类似的读取excel的代码，给你参考一下：
li_FileNum = GetFileOpenName("Select File", &
+pathname, filename, "DOC", &
+ "文本文件 (*.TXT),*.TXT," &
+ "XLS (*.XLS),*.XLS," &
+ "Doc Files (*.DOC),*.DOC")

IF li_FileNum <> 1 THEN
messagebox("选择文件","请选择表!")
return 0
end if



if pos(upper(filename),'XLS') > 0 then
SetPointer(hourglass!)
ole_excel = CREATE oleobject
if ole_excel.ConnectToObject(pathname) = 0 THEN // 连接OLE

以下代码写在行和列的循环里：
if not IsNull(ole_excel.Application.workbooks(1).worksheets(1).cells(ll_i,1).Value) THEN
ls_s=ole_excel.Application.workbooks(1).worksheets(1).cells(ll_i,1).Value
此处也可用下面两句获取单元格的值：
ole_excel.Application.workbooks(1).worksheets(1).cells(ll_i,ll_j).Copy()
ls_temp = Clipboard()
end if
end if