關於:OLE Automaction 部件出錯 |
缺席
|
tomc
一般會員 發表:41 回覆:35 積分:15 註冊:2003-07-27 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
tomc
一般會員 發表:41 回覆:35 積分:15 註冊:2003-07-27 發送簡訊給我 |
|
sos_admin
版主 發表:121 回覆:697 積分:768 註冊:2003-07-23 發送簡訊給我 |
Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=yourpass;Data Source=test.mdb;user id=youruser;Persist Security Info=False 我想您是连access 数据库的吧,上面提供一个方法是对加密的数据库的!
下面这个是没有密码的数据库的 Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=test.mdb;user id=;Persist Security Info=False 如果您升级文件有问题,到这儿下载哦
http://211.139.95.162/myclass/download/list.asp?id=40 發表人 - sos_admin 於 2003/09/01 19:22:58
|
tomc
一般會員 發表:41 回覆:35 積分:15 註冊:2003-07-27 發送簡訊給我 |
procedure TForm5.SumValue;
{公用模塊計算總數}
var
CM:string; //菜名
Dj:string; //單價
i:integer;
pa:string;
begin
{計算各菜式總數然後顯示到表Dbgrid2中}
pa:='d:\菜式表.mdb';
{打開菜式表}
ADOQuery3.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=' pa ';user id=;Persist Security Info=False'; adoquery3.Close;
adoquery3.SQL.text:='select * from 菜式';
adoquery3.Open;
recount:=adoquery3.RecordCount; adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select 日期,時間,取餐方式,外送單號,sum(合計) as 合計,優惠');
adoquery3.Close;
adoquery3.SQL.text:='select * from 菜式';
adoquery3.Open;
while(not adoquery3.Eof) do
begin
cm:=adoquery3.fieldbyname('CS_CM').value;
adoquery1.SQL.add(',sum(' cm ') as ' cm);
adoquery3.Next;
end;
adoquery1.SQL.add(' from 銷售表');
adoquery1.SQL.Add('where 日期 Between #' formatdatetime('yyyy/mm/dd',datetimepicker1.date) '# and #' formatdatetime('yyyy/mm/dd',datetimepicker2.date) '#' 'group by 日期,時間,取餐方式,外送單號,優惠');
adoquery1.Open ;
datasource1.dataset:=adoquery1;
dbgrid1.DataSource:=datasource1;
ADOQuery2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=' pa ';user id=;Persist Security Info=False';
adoquery2.close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select 日期,sum(合計) as 合計,sum(優惠) as 優惠卡');
adoquery3.Close;
adoquery3.SQL.text:='select * from 菜式';
adoquery3.Open;
while(not adoquery3.Eof) do
begin
cm:=adoquery3.fieldbyname('CS_CM').value;
adoquery2.SQL.add(',sum(' cm ') as ' cm);
adoquery3.Next;
end; adoquery2.SQL.add(' from 銷售表');
adoquery2.SQL.Add(' where 日期 Between #' formatdatetime('yyyy/mm/dd',datetimepicker1.date) '# and #' formatdatetime('yyyy/mm/dd',datetimepicker2.date) '# group by 日期');
adoquery2.Open ; datasource2.dataset:=adoquery2;
dbgrid2.DataSource:=datasource2; ADObb.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=' pa ';user id=;Persist Security Info=False';
adobb.close;
adobb.SQL.Clear;
adobb.SQL.Add('select sum(合計) as 合計,sum(優惠) as 優惠卡');
//adobb為總計
//adoquery3為菜式表
adoquery3.Close;
adoquery3.SQL.text:='select * from 菜式';
adoquery3.Open;
while(not adoquery3.Eof) do
begin
//從菜式表中得到菜名和單價
cm:=adoquery3.fieldbyname('CS_CM').value;
dj:=adoquery3.fieldbyname('CS_JG').value;
adobb.SQL.add(',sum(' cm ')*' dj ' as ' cm );
adoquery3.Next;
end;
adobb.SQL.add(' from 銷售表');
adobb.SQL.Add(' where 日期 Between #' formatdatetime('yyyy/mm/dd',datetimepicker1.date) '# and #' formatdatetime('yyyy/mm/dd',datetimepicker2.date) '#');
adobb.Open ; adocc.dataset:=adobb;
dbgrid3.DataSource:=adocc; end; 以上是我的程式碼片段,我想應該沒有問題,因為以前都可以運行沒問題,只是重新裝了Jet4.0之後,就出現這種情況!
我安裝了版主給我的MDAC2.7 sp1還是不行,還是出現"OLE Automation ?部件?" 發表人 - tomc 於 2003/09/02 08:34:50
------
交流.學習 |
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
tomc
一般會員 發表:41 回覆:35 積分:15 註冊:2003-07-27 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |