access创建问题

Question

动态创建access，但是我现在实现的是只能在自己本地的机器上创建一个access库，我现在像在服务器上面创建，怎么办？
  dbnew:=CreateOleObject('ADOX.Catalog');
  dbnew.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DbName);
  adoq1.Close;
  adoq1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+dbname+';Persist Security Info=False';
怎么处理这个问题？急阿

Answer 1

procedure TLogSys.CreateLogDb;
var
  CreateAccess: OLEVariant;
begin
  IF not fileExists(string(SYSPATH)+'\SYSTEM_LOG.MDB') then
  try
    CreateAccess := CreateOleObject('ADOX.Catalog');
    try
      CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+string(SYSPATH)+'\SYSTEM_LOG.MDB;Jet OLEDB:Database Password=123);
      //Application.ProcessMessages;
    finally
      CreateAccess := Unassigned;
    end;
  except
    Exit;
  end;
end;

Answer 2

procedure TLogSys.CreateLogDb;
var
  CreateAccess: OLEVariant;
begin
  IF not fileExists(string(SYSPATH)+'\SYSTEM_LOG.MDB') then
  try
    CreateAccess := CreateOleObject('ADOX.Catalog');
    try
      CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+string(SYSPATH)+'\SYSTEM_LOG.MDB;Jet OLEDB:Database Password=123);
      //Application.ProcessMessages;
    finally
      CreateAccess := Unassigned;
    end;
  except
    Exit;
  end;
end;SYSPATH这个应该是一个网络地址，怎么写他，怎么得到他？谢谢了很急阿