盒子论坛 v2.1

我在用Delphi编写程序时，用TADOQuery直接连接Access
数据库。(Delphi7.0 与Windows2000 server)当打开时总出错。
  源代码如下：

form1.connectstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data

Source='+ExtractFilePath(ParamStr(0))+'Database\record.mdb;Pe

rsist Security Info=False';
query1.Close;
    query1.SQL.Clear;
    query1.SQL.Text:='select * from detail order by

type,content';
    query1.Open;

错误提示如下：
  Project Project1.exe raised exception class
EOleException with message '未知'.Process stopped.
use step or run to continue.
----------------------------------------------
mpszicsy

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/9/30 8:09:23

5楼：

to :fancy JvHidControllerClass控件是用来做什么的？
to :swallowlove224

resourcestring
   adocs2= 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;' +
          'Data Source=%s;Mode=Share Deny None;Extended Properties="";' +
          'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";' +
          'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;' +
          'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;' +
          'Jet OLEDB:Global Bulk Transaction_s=1;Jet OLEDB:New Database Password="";' +
          'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;' +
          'Jet OLEDB:Don't Copy Locale on Compact=False;' +
          'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';

//-----------------------------------------------------------
......
......
   ADOTable1.Close ;
    ADOTable1.Connection :=nil;
    ADOConnection1.Close ;
    ADOConnection1.ConnectionString :=Format(adocs2,[DBName]);

    ADOQuery1.Connection :=ADOConnection1;
    ADOQuery1.SQL.Clear ;
    ADOQuery1.SQL.Assign(creatememo1.Lines );
    ADOQuery1.ExecSQL;
    ADOQuery1.Close ;
    ADOQuery1.Connection :=nil;

    ADOTable1.Connection :=ADOConnection1;
    ADOTable1.Open;
    ADOTable1.Append ;
    ADOTable1.FieldByName('节点名').AsString := '网页特效收集器';
    ADOTable1.FieldByName('文件路径').AsString :=';
    ADOTable1.FieldByName('节点层次').AsString :='0';
    ADOTable1.FieldByName('节点类型').AsString :='4';
    ADOTable1.Post ;
  except
    ShowMessage('数据库创建失败！');
    Exit;
  end;
end;

----------------------------------------------

信息

登陆以后才能回复