B
Bhaskar Prasad Thamma
Hi
I am writing a HTML file ,using Vbscript i am accessing Excel sheet data
and Dbase file data using ADO and displaying them in HTML Table format.
It worked fine on windows 2000 Pro with a warning message saying "This
program is using a Data source accross domains". so, I enabled this feature
in IE properties -->Security->Access Data source accross Domain to ENABLED.
Then It works fine in Windows 2000 Pro.
I am not able to run the same file in Windows XP sp2.
The problem running the file in XP sp2 OS.
1. Warning messages:"ADO security warning: This website is using your
identity to access a datasource. If you trust this website click ok to
continue otherwise cancel". And after this the application hangs.
2. Error message: "Unexpected error from External Datbase Driver 15877".
Sample Code
-----------
sub window_onload()
Set cn = CreateObject("adodb.connection")
set rsExcel = CreateObject("adodb.Recordset")
Dim Filstr
FilStr="v:\gold\template\Goals.xls"
ConStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Filstr &";Extended
Properties='Excel 8.0;HDR=Yes;IMEX=1'"
cn.Open ConStr
cn.CursorLocation=3
sqlq="Select * from [Sheet2$]"
rsExcel.Open sqlq,cn,2,3
I am writing a HTML file ,using Vbscript i am accessing Excel sheet data
and Dbase file data using ADO and displaying them in HTML Table format.
It worked fine on windows 2000 Pro with a warning message saying "This
program is using a Data source accross domains". so, I enabled this feature
in IE properties -->Security->Access Data source accross Domain to ENABLED.
Then It works fine in Windows 2000 Pro.
I am not able to run the same file in Windows XP sp2.
The problem running the file in XP sp2 OS.
1. Warning messages:"ADO security warning: This website is using your
identity to access a datasource. If you trust this website click ok to
continue otherwise cancel". And after this the application hangs.
2. Error message: "Unexpected error from External Datbase Driver 15877".
Sample Code
-----------
sub window_onload()
Set cn = CreateObject("adodb.connection")
set rsExcel = CreateObject("adodb.Recordset")
Dim Filstr
FilStr="v:\gold\template\Goals.xls"
ConStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Filstr &";Extended
Properties='Excel 8.0;HDR=Yes;IMEX=1'"
cn.Open ConStr
cn.CursorLocation=3
sqlq="Select * from [Sheet2$]"
rsExcel.Open sqlq,cn,2,3