關於: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 發送簡訊給我 |
發表時間：2003-09-01 17:18:57
IP:218.18.xxx.xxx 未訂閱
系統時間：2024-05-09 4:15:00
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |